Re: [問題] AutoCAD 有"隱藏非選取物件"的指令嗎？

看板Cad_Cae (電腦輔助設計)作者suny999 (滿23篇了...)時間16年前 (2009/05/29 13:24)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

※ 引述《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