[讨论]剛剛寫的一個查找和替換程序

spring

这样就在选择时只选择有包含要找的文字了,可是后面的程序也不会精减啊


哪位大侠再把程序代码精减一下，如何

龙龙仔

;;替换所有文字(注意大小写有别)
;;<CH_TXT NEWTXT OLDTXT>
;;<CH_TXT "LUCAS" "龙龙仔">
;;由於它是偏歷全图可能有点慢(修改一下可用在objectdbx----未试)
(defun DO_IT1 (OBJ / ATT CATT ENT1)
(setq ATT (vlax-variant-value (vla-getattributes OBJ))
CATT (vlax-variant-value
(vla-getconstantattributes OBJ)
)
)
(if (safearray-value ATT)
(foreach ENT1 (vlax-safearray->list ATT)
(DO_IT2 ENT1)
)
)
(if (safearray-value CATT)
(foreach ENT1 (vlax-safearray->list CATT)
(DO_IT2 ENT1)
)
)
) (defun DO_IT2 (ENT / TEXTSTRING STR)
(if (and (vlax-property-available-p ENT 'TEXTSTRING)
(wcmatch (setq STR (vla-get-textstring ENT))
(strcat "*" OLDTXT "*")
)
)
(progn
(setq STR (vl-string-subst NEWTXT OLDTXT STR))
(vla-put-textstring ENT STR)
)
)
) (defun CH_TXT (NEWTXT OLDTXT / APP DOC N ENT STR OBJ_NAME)
(vl-load-com)
(setq APP (vlax-get-acad-object))
(setq DOC (vla-get-activedocument APP))
(vlax-for N (vla-get-blocks DOC)
(vlax-for ENT N
(cond
((and (= (setq OBJ_NAME (vla-get-objectname ENT))
"AcDbBlockReference"
)
(= (vl-catch-all-apply 'vla-get-hasattributes (list ENT))
:vlax-true
)
)
(DO_IT1 ENT)
)
((= OBJ_NAME "AcDbAttributeDefinition")
(if (wcmatch (setq STR (vla-get-tagstring ENT))
(strcat "*" OLDTXT "*")
)
(progn
(setq STR (vl-string-subst NEWTXT OLDTXT STR))
(vla-put-tagstring ENT STR)
)
)
)
(t
(DO_IT2 ENT)
)
)
)
)
(vla-regen DOC acallviewports)
(vlax-release-object DOC)
(vlax-release-object APP)
(princ)
)

行天下

日常灌水，到此一看