abcdef1234 发表于 2022-8-3 19:05:44

VP 解除

;VPFL - VP Freeze Layer;(discussion forum routine, modified by XANADU);(defun c:VZ ( / ent cLayer pLayer)(setq ent (car(entsel "\nSelect object to VP-freeze layer: ")))(setq cLayer (getvar "clayer"))(setq pLayer (cdr (assoc 8 (entget ent))))(if (= pLayer cLayer) (command "_.layer" "_s" "0" "_off" pLayer "") (command "_.vplayer" "_f" pLayer "_c" ""))(prompt (strcat "Layer " pLayer " frozen in current viewport"))(princ))      
         
         
         
      使用 vp freeze lisp
         
      我想在视口中解冻 lisp

Emmanuel Delay 发表于 2022-8-3 20:16:18

解冻，这与冻结相反。
;; unfreeze layer in Viewport(defun c:ulvp ( / lay)    (setq lay (getstring "\nLayer to unfreeze: "))    (command "_VPLAYER" "Thaw" lay "Current" ""))         
页: [1]
查看完整版本: VP 解除