社区 › Auto Lisp › 从命令Li更改配置文件

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

从命令Li更改配置文件

我一直在两个配置文件之间来回切换
想知道是否可以通过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

未经测试。。。
(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更改配置文件