※ 引述《suny999 (滿20篇了...)》之銘言：
: 抱歉各位前輩，在下 AutoCAD 學齡不到兩個月，自學亂摸索+查help，
: 繪圖的指令懂的並不多，個人喜歡寫程式，所以由 Lisp 切入學 CAD。
: 問題來了，AutoCAD 只找到關閉圖層的功能，找不到非選取物件獨顯，
: 只找到一個方法，先選取物件後再3D環轉(3dorbit)，但離開就沒了，
: 像 ABAQUS、PATRAN 之類的軟體都有選取物件獨顯的功能，
: 請問 AutoCAD 有內建指令嗎？如果沒有的話，只好自己寫 Lisp 了。
剛查了help發現有visible的屬性，所以寫了一個簡單的程式：
(抱歉剛學 LISP 不太習慣傳統的格式)
;_
;_ Create by Suny 2009.05.29
;_
(VL-LOAD-COM)
(setq
AcadObj(if AcadObj AcadObj(vlax-get-acad-object))
AcadDoc(if AcadDoc AcadDoc(vla-get-ActiveDocument AcadObj))
SelSets(if SelSets SelSets(vla-get-SelectionSets AcadDoc))
ff:ss (if ff:ss ff:ss (vla-add SelSets "ff Selection"))
ff:sa (if ff:sa ff:sa (vla-add SelSets "All")) )
(defun c:ff ()
(vla-Select ff:sa acSelectionSetAll)
(if (=(vla-get-count ff:ss)0) (ff:first) (ff:ghost))
(if (=(vla-get-count ff:ss)0) (ff:visible ff:sa :vlax-true)) )
(defun ff:visible (ff:vis:ss ff:vis:visibility)
(vlax-for obj ff:vis:ss (vla-put-Visible obj ff:vis:visibility)) )
(defun ff:first()
(PROMPT "\nFirst mode: select the objects to be visible only.")
(vla-SelectOnScreen ff:ss)
(ff:visible ff:sa :vlax-false)
(ff:visible ff:ss :vlax-true ) )
(defun ff:ghost()
(PROMPT "\nGhost mode: Select to hide. <none to restore>:")
(vla-clear ff:ss)
(vla-SelectOnScreen ff:ss)
(ff:visible ff:ss :vlax-false) )
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.169.200.130