设置配色系统路径。 支持的平台:仅窗口 属性值只读:不 类型:字符串 彩色书路径。 言论没有额外的评论。 例子工 务 局: Sub Example_ColorBookPath() 'This example changes the color book path 'and then sets it to its original string Dim pref As AutoCAD.AcadPreferencesFiles Set pref = AcadApplication.Preferences.Files Dim defCBPath As String Dim changedCBPath As String defCBPath = pref.ColorBookPath MsgBox "The current color book path is " & defCBPath pref.ColorBookPath = "c:\winnt;c:\temp" changedCBPath = pref.ColorBookPath MsgBox "The changed color book path is " & changedCBPath pref.ColorBookPath = defCBPath End Sub Visual LISP: (vl-load-com) (defun c:Example_ColorBookPath() ;; This example changes the color book path ;; and then sets it to its original string (setq acadObj (vlax-get-acad-object)) (setq pref (vla-get-Files (vla-get-Preferences acadObj))) (setq defCBPath (vla-get-ColorBookPath pref)) (alert (strcat "The current color book path is " defCBPath)) (vla-put-ColorBookPath pref "c:\\winnt;c:\\temp") (setq changedCBPath (vla-get-ColorBookPath pref)) (alert (strcat "The changed color book path is " changedCBPath)) (vla-put-ColorBookPath pref defCBPath) ) |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-1-8 19:08
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.