[討論]關於改選性質LISP的問題

由 **as920029as** 周五 2 10月 - 14:07

因為有點久遠沒碰LISP
手邊也沒甚麼資料當時是上網自學所以零零散散的沒學得很好
我想寫一個按一下那個物件然後把物件線行改成我要的這樣
已下是我寫的程式但中間不知道該怎寫
(setq en (entsel "線"))
(setq en2 (entget (car en)))
(setq en3 (cdr (assoc 6 en2)))
目前到這邊= =然後不知道該怎用啥去改
想把原先預設值的線型改成我要的"CENTER"
這樣有大大能給點建議或提示嗎

由 **Atsai** 周六 3 10月 - 14:31

(defun c:tt (/ os ss obj)
(vl-load-com)
(setq os (getvar "osmode"))
(setvar "cmdecho" 0)
(if (= (tblsearch "LTYPE" "CENTER") nil)
(progn
(setq acadlinPath (findfile "acadiso.lin"))
(if acadlinPath
(command "linetype" "l" "CENTER" acadlinPath "")
)
)
)
(setq ss (ssget '((0 . "line,*polyline"))))
(setq i 0)
(repeat (sslength ss)
(setq obj (vlax-ename->vla-object (ssname ss i)))
(vla-put-Linetype obj "CENTER")
(setq i (1+ i))
)
(setvar "osmode" os)
)