AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[問題]lisp修改問題 Io15011 [問題]lisp修改問題 2020-310 [問題]lisp修改問題 Oiu15010 [問題]lisp修改問題 2020-211 [問題]lisp修改問題 Oo-2-110 [問題]lisp修改問題 BPl3tjj

[問題]lisp修改問題

2 posters

向下

[問題]lisp修改問題 Empty [問題]lisp修改問題

發表 由 阿杯杯 2021-04-16, 17:06

若干年前取得這個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」


勞煩各位大神開示

以上感謝各位大大過目
阿杯杯
阿杯杯
一般會員
一般會員

文章總數 : 10
年齡 : 35
來自 : 桃園
職業 : 平面工程設計
愛好 : 想鑽研CAD 3D使用
個性 : 挑戰新事物
使用年資 : 5
使用版本 : 2016
經驗值 : 1194
威望值 : 18
注冊日期 : 2018-08-17
男 獅子座 虎

回頂端 向下

[問題]lisp修改問題 Empty 回復: [問題]lisp修改問題

發表 由 shenhung 2021-04-18, 13:03

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

文章總數 : 261
年齡 : 54
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 6698
威望值 : 1071
注冊日期 : 2009-06-03
男 摩羯座 馬

阿杯杯 likes this post

回頂端 向下

[問題]lisp修改問題 Empty 回覆: [問題]lisp修改問題

發表 由 阿杯杯 2021-04-19, 09:25

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

以上再請各位大神過目
阿杯杯
阿杯杯
一般會員
一般會員

文章總數 : 10
年齡 : 35
來自 : 桃園
職業 : 平面工程設計
愛好 : 想鑽研CAD 3D使用
個性 : 挑戰新事物
使用年資 : 5
使用版本 : 2016
經驗值 : 1194
威望值 : 18
注冊日期 : 2018-08-17
男 獅子座 虎

回頂端 向下

[問題]lisp修改問題 Empty 回復: [問題]lisp修改問題

發表 由 shenhung 2021-04-20, 07:32

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
shenhung
高級會員
高級會員

文章總數 : 261
年齡 : 54
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 6698
威望值 : 1071
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

[問題]lisp修改問題 Empty 回復: [問題]lisp修改問題

發表 由 阿杯杯 2021-04-20, 10:49

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
阿杯杯
阿杯杯
一般會員
一般會員

文章總數 : 10
年齡 : 35
來自 : 桃園
職業 : 平面工程設計
愛好 : 想鑽研CAD 3D使用
個性 : 挑戰新事物
使用年資 : 5
使用版本 : 2016
經驗值 : 1194
威望值 : 18
注冊日期 : 2018-08-17
男 獅子座 虎

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[問題]lisp修改問題 Uos15010 [問題]lisp修改問題 BPl3tjj [問題]lisp修改問題 Ziao1510 [問題]lisp修改問題 Oo-2-110 [問題]lisp修改問題 Oooo-110 [問題]lisp修改問題 2020-211