\ \ \
\ATION\ \
)
)
(cond
((and
(not (vlax-erased-p source));存在
(not (vlax-erased-p target));存在
(vlax-read-enabled-p source);可读
(vlax-write-enabled-p target);可写 )
(vlax-put-property
target
propName
(vlax-get-property source propName);修改 )
)
(T (princ \
)
)
(T (princ \
)
)
;;24.1 [功能] 用一个对象的'(图层 线型...)修改另一个对象的图层 线型...等
;; 示例: (MJ:MapPropertyList '(\
(defun MJ:MapPropertyList (propList source target)
(foreach prop propList
(MJ:CopyProp prop source target) ) )
;;25.1 [功能] 配置文件集合
(defun MJ:Profiles ()
(vla-get-Profiles (MJ:AcadPrefs)) )
;;25.2 [功能] 设置配置文件
;; 示例: (MJ:SetProfile \
(defun MJ:SetProfile (pname)
(vl-load-com)
(vla-put-ActiveProfile
(vla-get-Profiles
(vla-get-Preferences
*ACAD*
)
)
pname ) )
;;25.3 [功能] 重新装载配置文件
;; 示例: (MJ:ProfileReLoad \
(defun MJ:ProfileReLoad (name ARGname)
(cond
((= (vlax-get-property (MJ:Profiles) 'ActiveProfile) name)
;; or following code.
;;(= (vla-get-ActiveProfile (MJ:Profiles)) name)
(princ \
)
((and
(MJ:ProfileExists-p name)
(findfile ARGname)
)
(MJ:ProfileDelete name)
(MJ:ProfileImport name ARGname)
(vla-put-ActiveProfile (MJ:Profiles) name)
)
((and
(not (MJ:ProfileExists-p name))
(findfile ARGname)
)
(MJ:ProfileImport name ARGname)
(vla-put-ActiveProfile (MJ:Profiles) name)
)
((not (findfile ARGname))
(princ (strcat \
) ) )
;;25.4 [功能] 重启默认配置文件
;; 示例: (MJ:ProfileReset \
(defun MJ:ProfileReset (strName)
(if (MJ:ProfileExists-p strName)
(vlax-Invoke-Method
(MJ:Profiles)
'ResetProfile
strName
)
(princ (strcat \ ) )
;;25.5 [功能] 输出配置文件
;; ARGS: arg-file(string), profile-name(string), T(Boolean)
;; 示例: (MJ:ProfileExport \
(defun MJ:ProfileExport (strName strFilename BooleReplace)
(if (MJ:ProfileExists-p strName)
(if (not (findfile strFilename))
(progn
(vlax-Invoke-Method
(vlax-Get-Property (MJ:AcadPrefs) \
'ExportProfile
strName
strFilename ) T
)
(if BooleReplace
(progn
(vl-file-delete (findfile strFilename))
(if (not (findfile strFilename))
(progn
(vlax-Invoke-Method
(vlax-Get-Property (MJ:AcadPrefs) \