[問題]lisp線性的變更判斷?
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[問題]lisp線性的變更判斷?
請問各位大大,lisp在寫更換線性時,寫判斷式時無法判斷?
指令: !ent6
"HIDDENX10"
當查詢時還是舊的資料!
求救,請問下小弟該如何改才能變更線性!
- 代碼:
(DEFUN C:CCLT();;程式名CCLT
(setvar "cmdecho" 0)
(if (not (tblsearch "ltype" "HIDDEN"));;判斷無此線型
(command "-LINETYPE" "L" "HIDDEN" "" "");;載入線型
)
(princ "\n選擇要變更成虛線之物件:");;印出"文字"
(setq ss (ssget));;選物件
(setq i 0)
(repeat (sslength ss);;迴圈
(setq ent (ssname ss i));;設定選的ss圖元資料至ent
(setq entdata (entget ent));;解析出data
(setq ent_6 (cdr (assoc 6 entdata)));;取出6的資訊
(if (= ent_6 nil);;如果裡面沒有資訊
(progn
(setq entdata (cons (cons 6 "HIDDEN") entdata));;裡面沒有資訊時寫入
(setq entdata (subst (cons 6 "HIDDEN") (ASSOC 6 entdata) entdata));;裡面有資訊時寫入
)
)
(entmod entdata);;重新載入data資料
(setq i (1+ i))
)
(princ)
)
指令: !ent6
"HIDDENX10"
當查詢時還是舊的資料!
求救,請問下小弟該如何改才能變更線性!
jock1626- 一般會員
- 文章總數 : 20
年齡 : 42
來自 : 桃園
職業 : 繪圖員
愛好 : 睡覺
個性 : 是個人吧
使用年資 : 5年
使用版本 : 2016
經驗值 : 993
威望值 : 6
注冊日期 : 2022-05-19
回復: [問題]lisp線性的變更判斷?
因為你多放了progn
導致if判斷ent_6後的執行程式
沒有跟有資訊的執行程式都併入了沒有資訊的結果
導致有資訊的執行程式沒有動作
去掉progn後修改如下
導致if判斷ent_6後的執行程式
沒有跟有資訊的執行程式都併入了沒有資訊的結果
導致有資訊的執行程式沒有動作
去掉progn後修改如下
- 代碼:
(DEFUN C:CCLT();;程式名CCLT
(setvar "cmdecho" 0)
(if (not (tblsearch "ltype" "HIDDEN"));;判斷無此線型
(command "-LINETYPE" "L" "HIDDEN" "" "");;載入線型
)
(princ "\n選擇要變更成虛線之物件:");;印出"文字"
(setq ss (ssget));;選物件
(setq i 0)
(repeat (sslength ss);;迴圈
(setq ent (ssname ss i));;設定選的ss圖元資料至ent
(setq entdata (entget ent));;解析出data
(setq ent_6 (cdr (assoc 6 entdata)));;取出6的資訊
(if (= ent_6 nil);;如果裡面沒有資訊
(setq entdata (cons (cons 6 "HIDDEN") entdata));;裡面沒有資訊時寫入
(setq entdata (subst (cons 6 "HIDDEN") (ASSOC 6 entdata) entdata));;裡面有資訊時寫入
)
(entmod entdata);;重新載入data資料
(setq i (1+ i))
)
(princ)
)
naruto018- 中級會員
- 文章總數 : 224
年齡 : 32
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 4490
威望值 : 564
注冊日期 : 2016-11-29
Tiger&蘋果爸 and jock1626 like this post
回復: [問題]lisp線性的變更判斷?
naruto018 寫到:因為你多放了progn
導致if判斷ent_6後的執行程式
沒有跟有資訊的執行程式都併入了沒有資訊的結果
導致有資訊的執行程式沒有動作
去掉progn後修改如下
感謝大大!
這樣改完之後可以順利運行!
jock1626- 一般會員
- 文章總數 : 20
年齡 : 42
來自 : 桃園
職業 : 繪圖員
愛好 : 睡覺
個性 : 是個人吧
使用年資 : 5年
使用版本 : 2016
經驗值 : 993
威望值 : 6
注冊日期 : 2022-05-19
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章