具有文字替代的标注

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

copy

 (wcmatch (vla-get-textoverride entA) "**"))

Good catch MR.

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

copy

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

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

You got it

[编程交流] 具有文字替代的标注

发表回复

精选推荐

浏览过的版块