锁定视口
我正在尝试锁定所有视口。然而，我的宏不工作。有人能帮我吗？
（DEFUN C:LV（）（命令“MV”“”“L”“”“ALL”“）（princ）） 试试这个，而不是我的创作：
;;;CADALYST 07/06Tip2129: LV.lspViewport Lock and Unlock (c) Theodorus Winata
;;; Function: Lock/Unlock Viewports
;;; Command Line: LV
;;; Description: By locking the Display you ensure your
;;; model view will not accidentally shift
;;; if you activate the viewport
;;;
;;; Developed by Theodorus Winata
;;; April 2006
;;;
(defun get-objects ()
(setq DPL (vlax-ename->vla-object (ssname SSG CNT))
CNT (1+ CNT)
);;setq
);;get-objects
;;;********** Error Handler **********
(defun ERR (msg)
(princ)
);;ERR
;;;********** Main Program **********
(defun C:LV (/ CME CNT DPL *ERROR* OP SSG)
(vl-load-com)
(setq *ERROR* ERR
CME (getvar "CMDECHO")
);;setq
(setvar "CMDECHO" 0)
(if (= (getvar "TILEMODE") 1) (setvar "TILEMODE" 0))
(command "pspace")
(setq SSG (ssget "X" (list (cons 0 "VIEWPORT")))
CNT 0
);;setq
(initget "Yes No")
(setq OP (getkword "Display locked <Y>: "))
(cond
((or (= OP nil) (= OP "Yes"))
(repeat (sslength SSG)
(get-objects)
(vla-put-DisplayLocked DPL :vlax-true)
);;repeat
(prompt "\n\tAll Viewports Locked...!")
);;"Yes"
((= OP "No")
(repeat (sslength SSG)
(get-objects)
(vla-put-DisplayLocked DPL :vlax-false)
);;repeat
(prompt "\n\tAll Viewports Unlocked...!")
);;"No"
);;cond
(setvar "CMDECHO" CME)
(princ)
);;C:LV
(princ
;(strcat
; "LV.LSP v1.0 (Copyright 2006 by "
; "\"Theo Winata and You\") loaded...!"
;)
)
(princ)
非常感谢。
然而，因为我把我的lisp程序放在一个程序中，我尽量节省内存，因为加载需要很长时间
有人能帮我做以下事情吗？
（DEFUN C:LV（）（命令“MV”“”“L”“”“ALL”“）（princ）） 试试这个：
(DEFUN C:LV () (COMMAND "_.VPORTS" "L" "ON" "ALL" "")(princ)) 这个宏是否可以用于新按钮？
如果没有，如何为执行该功能的按钮创建宏？
（显示外观打开和关闭） （DEFUN C:LV（）（命令“MView”“L”“ON”“ALL”“）（princ））
脚踏板 谢谢你！ 不客气！
脚踏板
我相信，正如我所做的那样，你们会意识到，把它们结合起来并不是最好的政策。我想是的，现在我有一个启动lsp例程，可以自动加载或加载我的所有lsp。这家公司还拥有我所有的设置变量和我想要的任何其他自定义设置。这样，当我坐下来看新版autocad时。我将我的lsp文件夹添加到支持路径中，将我的一个启动lsp文件添加到appload中的启动中，然后我就可以开始了。重新启动cad时，所有autocad设置都已就绪。
我走这条路线的最大原因是它更容易更新我的日常生活。
页:
[1]