从命令Li更改配置文件

ILoveMadoka · 发表于 2022-7-6 11:12:52

我一直在两个配置文件之间来回切换
想知道是否可以通过lisp实现这一点？
想要创建从一个配置文件翻转的快捷方式
一个接一个，需要时再接一个。
轮廓1和轮廓2。

它像setvar那么简单吗？

TIA！！

alanjt · 发表于 2022-7-6 11:31:03

这应该会为您提供所需的信息。）

JohnM · 发表于 2022-7-6 11:44:04

这是我用于mt 2D和3D配置文件切换的内容
只需将2D和3D更改为您的个人资料名称

 
(vl-load-com)
(defun c:po (/ cpr)
 (if (= (getvar "cprofile") "3d")
   (setq cpr "2d")
   (setq cpr "3d")
 )
 (if (= cpr nil)
   (setq cpr "2d")
 )
 (vla-put-ActiveProfile
   (vla-get-Profiles
     (vla-get-Preferences (vlax-get-acad-object))
   )
   cpr
 )
) ;_defun

alanjt · 发表于 2022-7-6 11:50:40

未经测试。。。

copy

(defun c:PTog (/ lst)
 (setq lst '("Profile1" "Profile2"))
 (vl-catch-all-apply
   (function vla-put-activeprofile)
   (list (vla-get-profiles (vla-get-preferences (vlax-get-acad-object)))
         (if (eq (getvar 'cprofile) (car lst))
           (cadr lst)
           (car lst)
         )
   )
 )
 (princ (strcat "Active Profile: "" (getvar 'cprofile) """))
 (princ)
)

ILoveMadoka · 发表于 2022-7-6 12:01:14

太棒了！！

唯一比一个解决方案更好的是有多个解决方案。。。

非常感谢！

alanjt · 发表于 2022-7-6 12:19:58

让生活变得有趣。

不客气。

[编程交流] 从命令Li更改配置文件

发表回复

精选推荐