[已解決]LISP-將線型bylayer改成continuous

由 **leoneriol** 2009-08-20, 09:44

我碰到的問題是....當線型為bylayer時....物件群碼是省略的狀態.....
之前是有嘗試使用CHPROP這個指令去達到我想要的更換線型指令
測試的時候是ok...但是正式使用時...系統總是回應我選到的選項是在配置空間然後指令就中止了
(造成只令終止的是無法刪除的viewport,而且也是在圖紙空間,沒有作用平常也看不到選不到,但是卻又可以用filter選到)
所以我就捨棄了使用CHPROP這個指令...改用物件群碼.....
但是我發現我所用的lisp程式對省略的物件群碼無作用....而我又找不到將(6 . "continuous")增加入物件群馬的方式...
請高手們幫幫忙...

(defun chglt ()
(prompt "改線型continuous")
(setq ss nil)
(setq ss (ssget "x" '((0 . "*")(6 . "bylayer"))))
(setq i 0)
(repeat (sslength ss)
(setq en (ssname ss i))
(chgendata en 6 "continuous")
(setq i (1+ i))
)
)

(defun chgendata (#en #qnum #new)
(setq endata(entget #en));;;取得圖元資料
(setq oldlist (assoc #qnum endata))
(setq newlist (cons #qnum #new))
(setq endata (subst newlist oldlist endata))
(entmod endata)
)

由阿希 2009-08-20, 09:51

leoneriol 寫到:我碰到的問題是....當線型為bylayer時....物件群碼是省略的狀態.....
之前是有嘗試使用CHPROP這個指令去達到我想要的更換線型指令
測試的時候是ok...但是正式使用時...系統總是回應我選到的選項是在配置空間然後指令就中止了
(造成只令終止的是無法刪除的viewport,而且也是在圖紙空間,沒有作用平常也看不到選不到,但是卻又可以用filter選到)
所以我就捨棄了使用CHPROP這個指令...改用物件群碼.....
但是我發現我所用的lisp程式對省略的物件群碼無作用....而我又找不到將(6 . "continuous")增加入物件群馬的方式...
請高手們幫幫忙...

(defun chglt ()
(prompt "改線型continuous")
(setq ss nil)
(setq ss (ssget "x" '((0 . "*")(6 . "bylayer"))))
(setq i 0)
(repeat (sslength ss)
(setq en (ssname ss i))
(chgendata en 6 "continuous")
(setq i (1+ i))
)
)

(defun chgendata (#en #qnum #new)
(setq endata(entget #en));;;取得圖元資料
(setq oldlist (assoc #qnum endata))
(setq newlist (cons #qnum #new))
(setq endata (subst newlist oldlist endata))
(entmod endata)
)

不清楚你的程式需求為何 ?
將所有物件線型改成BYLAYER ?

由 **leoneriol** 2009-08-20, 09:55

我的需求是...將所有物件線型為bylayer的..全部改成continuous...

由阿希 2009-08-20, 10:27

leoneriol 寫到:我的需求是...將所有物件線型為bylayer的..全部改成continuous...

就如同你所提問的 "我發現我所用的lisp程式對省略的物件群碼無作用"
如果線型為BYLAYER ~ 則群碼6是不存在的
這時你只要先把自己虛設(6.XXX) 加到資料串列內再去更換即可

沒有 - 加入虛設群馬 - 新群碼取代需設群馬 - 圖面更新 - 完成

由 **leoneriol** 2009-08-20, 10:37

加入虛設群碼.....請問這個動作要怎麼做呢???
我該使用哪一個指令?? 是cons嗎??

由 **leoneriol** 2009-08-20, 10:39

(defun chgendata (#en #qnum #new)
(setq endata(entget #en));;;取得圖元資料
(setq oldlist (assoc #qnum endata))
(setq newlist (cons #qnum #new))
(setq endata (subst newlist oldlist endata))不知是不是再這一行做變動即可??...把subst改成cons??
(entmod endata)
)

由阿希 2009-08-20, 11:03

leoneriol 寫到:(defun chgendata (#en #qnum #new)
(setq endata(entget #en));;;取得圖元資料
(setq oldlist (assoc #qnum endata))
(setq newlist (cons #qnum #new))
(setq endata (subst newlist oldlist endata))不知是不是再這一行做變動即可??...把subst改成cons??
(entmod endata)
)

(setq endata (CONS (cons 6 0) endata)) ; 將群碼點串列加到ENDATA資料串列內
(setq endata (subst newlist oldlist endata)) ;新舊串列替換

由 **leoneriol** 2009-08-20, 11:18

(defun c:addtest()
(setvar "cmdecho" 0);關閉LISP在指令區的操綽回應
;修改
(prompt "改線型continuous")
(setq ss nil)
(setq ss (ssget "x" '((0 . "*")(6 . "bylayer"))))
(setq i 0)
(repeat (sslength ss)
(setq en (ssname ss i))
(addendata en 6 "continuous")
(setq i (1+ i))
)
(setvar "cmdecho" 1);還原LISP在指令區的操綽回應
(prin1)
)
(defun addendata (#en #qnum #new)
(setq endata(entget #en));;;取得圖元資料
(setq endata(cons (cons #qnum #new) endata));;直接將群碼加入endata!!
(entmod endata);;更新Endata
)

太感謝阿希大了!!!!這是我程式最後的樣子....請過目