marko_ribar 发表于 2022-7-6 09:23:33

Just highlighting those that have overrides :
 

(defun c:chkdims ( / ss ssn ent entA ) (vl-load-com) (setq ss (ssget "_X" '((0 . "*DIMENSION")) )) (repeat (setq ssn (sslength ss))   (setq ent (ssname ss (setq ssn (1- ssn))))   (setq entA (vlax-ename->vla-object ent))   (if (or (= "" (vla-get-textoverride entA)) (wcmatch (vla-get-textoverride entA) "**"))   (redraw ent 1)   (redraw ent 3)   ) )(princ))
 
M.R.

pBe 发表于 2022-7-6 09:29:51

(wcmatch (vla-get-textoverride entA) "**"))
 
Good catch MR.

Lee Mac 发表于 2022-7-6 09:33:04

(sssetfirst nil (ssget "_X" '((0 . "*DIMENSION") (1 . "*[~]*,*]*,*[~*,"))))

pBe 发表于 2022-7-6 09:37:22

 
You got it
页: 1 [2]
查看完整版本: 具有文字替代的标注