[問題]lisp修改問題

若干年前取得這個lisp檔,詳細來源已不可考

印象中在CAD2010之後的版本就不能用了

所以這個lisp一直停用了很多年直到這兩天才又想起了這個lisp,也自己試了很多遍還是一樣不能用

執行之後就會出現

下面的訊息

不再支援 DIMASO，DIMASSOC 已經被設定為 1。圖塊「DOT」未定義


** 指令不會透通地被呼叫 **

; 錯誤: 函數被取消

這是lisp檔裡面的內容還請各位大神過目

(command "STYLE" "A-1 "ROMANS,stsl" txt1A "0.75" "0.0" "" "" "")
 (command "STYLE" "B-2" "ROMAND,stsl" txt2A "0.8" "0.0" "" "" "")
 (command "STYLE" "B" "simplex,chineset" txt2 "0.8" "0.0" "" "" "")
 (command "STYLE" "C" "ROMAND,chineset" txt3 "0.8" "0.0" "" "" "")
 (command "STYLE" "D" "ROMAND,chineset" txt3 "0.8" "0.0" "" "" "")
 (command "STYLE" "A" "simplex,chineset" txt1 "0.75" "0.0" "" "" "")
 (setvar "DIMALT" 0)
 (setvar "DIMALTD" 1)
 (setvar "DIMALTF" 25.4)
 (setvar "DIMASO" 1)
 (setvar "DIMASZ" 0.180)
 (setvar "DIMCEN" 0.09)
 (setvar "DIMDLE" 0.0)
 (setvar "DIMCLRD" 0)
 (setvar "DIMCLRE" 0)
 (setvar "DIMCLRT" 7)
 (setvar "DIMDLI" 0.380)
 (setvar "DIMEXE" 0.180)
 (setvar "DIMEXO" 0.250)
 (setvar "DIMGAP" 0.090)
 (setvar "DIMLFAC" 1.0)
 (setvar "DIMLIM" 0)
 (setvar "DIMRND" 0.0)
 (setvar "DIMSAH" 0)
 (setvar "DIMSCALE" DIMS)
 (setvar "DIMSE1" 0)
 (setvar "DIMSE2" 0)
 (setvar "DIMSHO" 1)
 (setvar "DIMSOXD" 0)
 (setvar "DIMTAD" 1)
 (setvar "DIMTFAC" 1.0)
 (setvar "DIMTIH" 0)
 (setvar "DIMTIX" 1)
 (setvar "DIMTM" 0.0)
 (setvar "DIMTOFL" 1)
 (setvar "DIMTOH" 1)
 (setvar "DIMTOL" 0)
 (setvar "DIMTP" 0.0)
 (setvar "DIMTSZ" 0.0)
 (setvar "DIMTVP" 0.0)
 (setvar "DIMTXT" 0.18)
 (setvar "DIMZIN" 0)
 (COMMAND "DIM" "SAVE" "D1" "Y" ^C^C)
 (setvar "DIMTAD" 0)
 (COMMAND "DIM" "SAVE" "LEADER" "Y" ^C^C)
 (setvar "DIMASZ" 0.08)
 (setvar "DIMTAD" 1)
 (COMMAND "DIM" "DIMBLK" "DOT" ^C^C)
 (COMMAND "DIM" "SAVE" "D2" "Y" ^C^C)
 (COMMAND "DIM" "RESTORE" "D1" ^C^C)
 (setvar "LTSCALE" ltss)
 (command "LAYER" "N" "CEN" "C" "1" "CEN" "L" "CENTER" "CEN" "")
 (command "LAYER" "N" "DIM" "C" "2" "DIM" "L" "CONTINUOUS" "DIM" "")
 (command "LAYER" "N" "HI" "C" "3" "HI" "L" "HIDDEN" "HI" "")
 (command "LAYER" "N" "HATCH" "C" "2" "HATCH" "L" "CONTINUOUS" "HATCH" "")
 (command "LAYER" "N" "SM" "C" "6" "SM" "L" "CONTINUOUS" "SM" "")
 (command "LAYER" "N" "ST" "C" "5" "ST" "L" "CONTINUOUS" "ST" "")
 (command "LAYER" "N" "TEXT" "C" "7" "TEXT" "L" "CONTINUOUS" "TEXT" "")

依小弟對lisp完全門外漢的猜測應該是

(setvar "DIMASO" 1)

(COMMAND "DIM" "DIMBLK" "DOT" ^C^C)

這兩段應該要修正,可是不知道該怎麼改才對?


第二個問題 小弟小想把"D"字型 "ROMAND,chineset" 設定成"標楷體"

把語法改成

(command "STYLE" "D" "kaiu.ttf" txt3 "0.8" "0.0" "" "" "")

可是改完之後會出現 「字體檔不存在。4.9」


勞煩各位大神開示

以上感謝各位大大過目

最好能提供完整LISP 裡面有些變數數據..無從得知是什麼.~

shenhung 寫到:最好能提供完整LISP 裡面有些變數數據..無從得知是什麼.~

感謝shenhung大大的回覆,完整lisp如下

(defun C:CC01 ()
 (setvar "cmdecho" 0)
 (setvar "blipmode" 1)
 (setvar "osmode" 33)
 (setq a13 (strcase (getstring "\DWG. Sheet is A1 or A3:")))
 (if (= a13 "") (setq a13 "A1"))
 (setq dwsc (getreal "\nPlotter Scale:<1.0>"))
 (if (= dwsc nil) (setq dwsc 1.0))
 (setq mss 0.7)                        ;A1 to A3 Scale
 (if (= a13 "A1")
     (progn
        (setq txt1A (* (* 2.5 dwsc) 1.0))
        (setq txt1 (* (* 3.0 dwsc) 1.0))
        (setq txt2A (* (* 4.0 dwsc) 1.0))
        (setq txt2 (* (* 5.0 dwsc) 1.0))
        (setq txt3 (* (* 6.0 dwsc) 1.0))
        (setq txt4 (* (* 7.0 dwsc) 1.0))
        (setq dims (* (* 15.0 dwsc) 1.0))
        (setq ltss (* (* 10.0 dwsc) 1.0))
 )   )
 (if (= a13 "A3")
     (progn
        (setq txt1A (* (* 2.5 dwsc) mss))
        (setq txt1 (* (* 3.0 dwsc) mss))
        (setq txt2A (* (* 4.0 dwsc) mss))
        (setq txt2 (* (* 5.0 dwsc) mss))
        (setq txt3 (* (* 6.0 dwsc) mss))
        (setq txt4 (* (* 7.0 dwsc) mss))
        (setq dims (* (* 15.0 dwsc) mss))
        (setq ltss (* (* 10.0 dwsc) mss))
 )   )
 (command "STYLE" "A-1" "ROMANS,stsl" txt1A "0.75" "0.0" "" "" "")
 (command "STYLE" "B-1" "ROMAND,stsl" txt2A "0.8" "0.0" "" "" "")
 (command "STYLE" "B" "simplex,chineset" txt2 "0.8" "0.0" "" "" "")
 (command "STYLE" "C" "ROMAND,chineset" txt3 "0.8" "0.0" "" "" "")
 (command "STYLE" "D" "ROMAND,chineset" txt3 "0.8" "0.0" "" "" "")
 (command "STYLE" "A" "simplex,chineset" txt1 "0.75" "0.0" "" "" "")
 (setvar "DIMALT" 0)
 (setvar "DIMALTD" 1)
 (setvar "DIMALTF" 25.4)
 (setvar "DIMASO" 1)
 (setvar "DIMASZ" 0.180)
 (setvar "DIMCEN" 0.09)
 (setvar "DIMDLE" 0.0)
 (setvar "DIMCLRD" 0)
 (setvar "DIMCLRE" 0)
 (setvar "DIMCLRT" 7)
 (setvar "DIMDLI" 0.380)
 (setvar "DIMEXE" 0.180)
 (setvar "DIMEXO" 0.250)
 (setvar "DIMGAP" 0.090)
 (setvar "DIMLFAC" 1.0)
 (setvar "DIMLIM" 0)
 (setvar "DIMRND" 0.0)
 (setvar "DIMSAH" 0)
 (setvar "DIMSCALE" DIMS)
 (setvar "DIMSE1" 0)
 (setvar "DIMSE2" 0)
 (setvar "DIMSHO" 1)
 (setvar "DIMSOXD" 0)
 (setvar "DIMTAD" 1)
 (setvar "DIMTFAC" 1.0)
 (setvar "DIMTIH" 0)
 (setvar "DIMTIX" 1)
 (setvar "DIMTM" 0.0)
 (setvar "DIMTOFL" 1)
 (setvar "DIMTOH" 1)
 (setvar "DIMTOL" 0)
 (setvar "DIMTP" 0.0)
 (setvar "DIMTSZ" 0.0)
 (setvar "DIMTVP" 0.0)
 (setvar "DIMTXT" 0.18)
 (setvar "DIMZIN" 0)
 (COMMAND "DIM" "SAVE" "D1" "Y" ^C^C)
 (setvar "DIMTAD" 0)
 (COMMAND "DIM" "SAVE" "LEADER" "Y" ^C^C)
 (setvar "DIMASZ" 0.08)
 (setvar "DIMTAD" 1)
 (COMMAND "DIM" "DIMBLK" "DOT" ^C^C)
 (COMMAND "DIM" "SAVE" "D2" "Y" ^C^C)
 (COMMAND "DIM" "RESTORE" "D1" ^C^C)
 (setvar "LTSCALE" ltss)
 (command "LAYER" "N" "CEN" "C" "1" "CEN" "L" "CENTER" "CEN" "")
 (command "LAYER" "N" "DIM" "C" "2" "DIM" "L" "CONTINUOUS" "DIM" "")
 (command "LAYER" "N" "HI" "C" "3" "HI" "L" "HIDDEN" "HI" "")
 (command "LAYER" "N" "HATCH" "C" "2" "HATCH" "L" "CONTINUOUS" "HATCH" "")
 (command "LAYER" "N" "SM" "C" "6" "SM" "L" "CONTINUOUS" "SM" "")
 (command "LAYER" "N" "ST" "C" "5" "ST" "L" "CONTINUOUS" "ST" "")
 (command "LAYER" "N" "TEXT" "C" "7" "TEXT" "L" "CONTINUOUS" "TEXT" "")
) ;defun

以上再請各位大神過目

CC01.LSP 修正檔載點:
https://www.dropbox.com/s/qdcqtoctm8cgd6b/CC01.lsp?dl=0


修正後LSP
(defun C:CC01 ()
(setvar "cmdecho" 0)
(setvar "blipmode" 1)
(setvar "osmode" 33)
(setq a13 (strcase (getstring "\DWG. Sheet is A1 or A3:")))
(if (= a13 "") (setq a13 "A1"))
(setq dwsc (getreal "\nPlotter Scale:<1.0>"))
(if (= dwsc nil) (setq dwsc 1.0))
(setq mss 0.7)                        ;A1 to A3 Scale
(if (= a13 "A1")
    (progn
       (setq txt1A (* (* 2.5  dwsc) 1.0))
       (setq txt1  (* (* 3.0  dwsc) 1.0))
       (setq txt2A (* (* 4.0  dwsc) 1.0))
       (setq txt2  (* (* 5.0  dwsc) 1.0))
       (setq txt3  (* (* 6.0  dwsc) 1.0))
       (setq txt4  (* (* 7.0  dwsc) 1.0))
       (setq dims  (* (* 15.0 dwsc) 1.0))
       (setq ltss  (* (* 10.0 dwsc) 1.0))
)   )
(if (= a13 "A3")
    (progn
       (setq txt1A (* (* 2.5  dwsc) mss))
       (setq txt1  (* (* 3.0  dwsc) mss))
       (setq txt2A (* (* 4.0  dwsc) mss))
       (setq txt2  (* (* 5.0  dwsc) mss))
       (setq txt3  (* (* 6.0  dwsc) mss))
       (setq txt4  (* (* 7.0  dwsc) mss))
       (setq dims  (* (* 15.0 dwsc) mss))
       (setq ltss  (* (* 10.0 dwsc) mss))
)   )
(command "STYLE" "A-1" "ROMANS,chineset"  txt1A "0.75" "0.0" "" "" "")  ;原STSL 不是大字體.修正為chineset
(command "STYLE" "B-1" "ROMAND,chineset"  txt2A "0.8" "0.0" "" "" "")   ;原STSL 不是大字體.修正為chineset
(command "STYLE" "B"   "simplex,chineset" txt2  "0.8" "0.0" "" "" "")
(command "STYLE" "C"   "ROMAND,chineset"  txt3  "0.8" "0.0" "" "" "")
(command "STYLE" "D"   "標楷體"           txt3  "0.8" "0.0" "" "")      ;修正為標楷體.
(command "STYLE" "A"   "simplex,chineset" txt1  "0.75" "0.0" "" "" "")
(setvar "DIMALT" 0)
(setvar "DIMALTD" 1)
(setvar "DIMALTF" 25.4)
(setvar "DIMASSOC" 1)                                                    ;DIMASO 修正為DIMASSOC
(setvar "DIMASZ" 0.180)
(setvar "DIMCEN" 0.09)
(setvar "DIMDLE" 0.0)
(setvar "DIMCLRD" 0)
(setvar "DIMCLRE" 0)
(setvar "DIMCLRT" 7)
(setvar "DIMDLI" 0.380)
(setvar "DIMEXE" 0.180)
(setvar "DIMEXO" 0.250)
(setvar "DIMGAP" 0.090)
(setvar "DIMLFAC" 1.0)
(setvar "DIMLIM" 0)
(setvar "DIMRND" 0.0)
(setvar "DIMSAH" 0)
(setvar "DIMSCALE" DIMS)
(setvar "DIMSE1" 0)
(setvar "DIMSE2" 0)
(setvar "DIMSHO" 1)
(setvar "DIMSOXD" 0)
(setvar "DIMTAD" 1)
(setvar "DIMTFAC" 1.0)
(setvar "DIMTIH" 0)
(setvar "DIMTIX" 1)
(setvar "DIMTM" 0.0)
(setvar "DIMTOFL" 1)
(setvar "DIMTOH" 1)
(setvar "DIMTOL" 0)
(setvar "DIMTP" 0.0)
(setvar "DIMTSZ" 0.0)
(setvar "DIMTVP" 0.0)
(setvar "DIMTXT" 0.18)
(setvar "DIMZIN" 0)
(COMMAND "DIM" "SAVE" "D1" "Y" ^C^C)
(setvar "DIMTAD" 0)
(COMMAND "DIM" "SAVE" "LEADER" "Y" ^C^C)
(setvar "DIMASZ" 0.08)
(setvar "DIMTAD" 1)
;(COMMAND "DIM" "DIMBLK" "DOT" ^C^C)   ;取消  尺寸箭頭設定為圖塊 DOT .請在DDIM內設定.  
(COMMAND "DIM" "SAVE" "D2" "Y" ^C^C)
(COMMAND "DIM" "RESTORE" "D1" ^C^C)
(setvar "LTSCALE" ltss)
(command "LAYER" "N" "CEN" "C" "1" "CEN" "L" "CENTER" "CEN" "")
(command "LAYER" "N" "DIM" "C" "2" "DIM" "L" "CONTINUOUS" "DIM" "")
(command "LAYER" "N" "HI" "C" "3" "HI" "L" "HIDDEN" "HI" "")
(command "LAYER" "N" "HATCH" "C" "2" "HATCH" "L" "CONTINUOUS" "HATCH" "")
(command "LAYER" "N" "SM" "C" "6" "SM" "L" "CONTINUOUS" "SM" "")
(command "LAYER" "N" "ST" "C" "5" "ST" "L" "CONTINUOUS" "ST" "")
(command "LAYER" "N" "TEXT" "C" "7" "TEXT" "L" "CONTINUOUS" "TEXT" "")
(PRINC)
) ;defun

shenhung 寫到:CC01.LSP 修正檔載點:
https://www.dropbox.com/s/qdcqtoctm8cgd6b/CC01.lsp?dl=0

感謝shenhung大的回覆

剛剛測試過了 可是還是出現 字體檔不存在。4.2

我是不是該把C:\Windows\Fonts 裡面的標楷體字型 放到 CAD的Font資料夾內才讀的到?

以下是指令列截圖 還請shenhung大幫幫忙

https://i.servimg.com/u/f42/20/33/00/35/cc0110.jpg