[討論]LISP判斷 功能
3 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[討論]LISP判斷 功能
大家好,今天小弟我想請問各位前輩一個關於LISP判斷的問題
我寫了一個LISP,只要一呼叫它,它就會在畫面一固定處畫出一個備註欄。
LISP如下:
(defun c:note()
(setq osn (getvar 'osnapcoord))
(setq olayer (getvar 'clayer))
(setvar 'osnapcoord 1)
(setvar 'cmdecho 0)
(command "-layer" "s" "0" "")
(command "-layer" "m" "f" "")
(command "pline" "25,15" "152,15" "152,45" "25,45" "25,15" "25,25" "152,25" "152,35" "25,35" "")
(command "-layer" "s" "tex" "")
(command "-layer" "m" "t" "")
(command "-layer" "c" "6" "t" "")
(command "text" "j" "mc" "88.5,40" "5" "0" "Notes" "")
(command "text" "j" "mc" "88.5,30" "5" "0" "1." "")
(command "text" "j" "mc" "88.5,20" "5" "0" "2." "")
(command "-layer" "s" olayer "")
(setvar 'osnapcoord osn)
(princ)
)
我想請問一下,如果我已經下過一次這個指令,再下第二次時我是不是有機會能在這LISP之中加入某種判斷,讓CAD知道此標註欄已經存在,進而使LISP去執行另一個命令
總之我希望我能用同一個指令讓這個備註欄開啟、關閉、開啟、關閉
我寫了一個LISP,只要一呼叫它,它就會在畫面一固定處畫出一個備註欄。
LISP如下:
(defun c:note()
(setq osn (getvar 'osnapcoord))
(setq olayer (getvar 'clayer))
(setvar 'osnapcoord 1)
(setvar 'cmdecho 0)
(command "-layer" "s" "0" "")
(command "-layer" "m" "f" "")
(command "pline" "25,15" "152,15" "152,45" "25,45" "25,15" "25,25" "152,25" "152,35" "25,35" "")
(command "-layer" "s" "tex" "")
(command "-layer" "m" "t" "")
(command "-layer" "c" "6" "t" "")
(command "text" "j" "mc" "88.5,40" "5" "0" "Notes" "")
(command "text" "j" "mc" "88.5,30" "5" "0" "1." "")
(command "text" "j" "mc" "88.5,20" "5" "0" "2." "")
(command "-layer" "s" olayer "")
(setvar 'osnapcoord osn)
(princ)
)
我想請問一下,如果我已經下過一次這個指令,再下第二次時我是不是有機會能在這LISP之中加入某種判斷,讓CAD知道此標註欄已經存在,進而使LISP去執行另一個命令
總之我希望我能用同一個指令讓這個備註欄開啟、關閉、開啟、關閉
jaco4942- 初級會員
- 文章總數 : 65
年齡 : 32
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 5749
威望值 : 14
注冊日期 : 2009-12-01
brucechang- 一般會員
- 文章總數 : 6
年齡 : 61
來自 : 台北
職業 : 商
愛好 : 系統規劃.VBA
個性 : 溫和
使用年資 : 15
使用版本 : 2016
經驗值 : 3536
威望值 : 24
注冊日期 : 2015-05-10
回復: [討論]LISP判斷 功能
可以,但具體上要如何判斷blosk是否存在呢???
jaco4942- 初級會員
- 文章總數 : 65
年齡 : 32
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 5749
威望值 : 14
注冊日期 : 2009-12-01
回復: [討論]LISP判斷 功能
就是在每次插入圖塊前,先尋找圖面是否有圖塊~
明~- 高級會員
- 文章總數 : 307
年齡 : 44
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 7195
威望值 : 667
注冊日期 : 2009-12-24
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章