如何用VLISP程序设定cad的样版路径？

挚友01

如何用VLISP程序设定cad的样版路径？

Lisphk

使用 activex  Preferences对象，具体看帮助手册。

vla-put-TemplateDwgPath

[JavaScript] 纯文本查看 复制代码

(vl-load-com)
(defun c:Example_TemplateDwgPath()
    ;; This example returns the current setting of
    ;; TemplateDwgPath. It then changes the value, and finally
    ;; it resets the value back to the original setting.
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; Retrieve the current TemplateDWGPath value
    (setq currTemplateDWGPath (vla-get-TemplateDwgPath (vla-get-Files preferences)))
    (alert (strcat "The current value for TemplateDwgPath is " currTemplateDWGPath))
    
    ;; Change the value for TemplateDWGPath
    (setq newTemplateDWGPath "TestTemplateDWGPath")
    (vla-put-TemplateDwgPath (vla-get-Files preferences) newTemplateDWGPath)
    (alert (strcat "The new value for TemplateDwgPath is " newTemplateDWGPath))
    
    ;; Reset TemplateDWGPath to its original value
    (vla-put-TemplateDwgPath (vla-get-Files preferences) currTemplateDWGPath)
    (alert (strcat "The TemplateDwgPath value is reset to " currTemplateDWGPath))
)

挚友01

非常非常的感谢，先研究研究！

yoyoho

感谢分享程序，3Q