cxs259 发表于 2011-7-26 16:28:28

请教Z版,查找的结果只为单纯的AA34,不要关联含有AA34的其他内容,如AA34-等,谢谢!

;选中文字做圆圈标记并显示数量 明经 ZZXXQQ 2011.1.27

(defun c:TT()
(setvar "cmdecho" 0)
(setq stxt (getstring "\n输入标记<屏选> :"))
(if (and (= stxt "")
          (setq s1 (entsel "\n选择标记 :"))
          (setq ent (entget(car s1)))
          (= (cdr(assoc 0 ent)) "TEXT"))
(setq stxt (cdr(assoc 1 (entget(car s1)))))
)
(if (setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat "*" stxt "*"))))) (progn
(setq i 0)
(repeat (sslength ss)
   (setq en (ssname ss i))
   (vla-getboundingbox(vlax-ename->vla-object en) 'minp 'maxp)
   (setq minp (vlax-safearray->list minp)
         maxp (vlax-safearray->list maxp))
   (setq pt (polar minp (angle minp maxp) (/ (Distance minp maxp) 2)))
(command ".CIRCLE" pt 700)
   (setq i (1+ i))
)
(princ "\n")
(princ (sslength ss))
))
(setvar "CMDECHO" 1)
(princ)
)

cxs259 发表于 2011-7-26 22:27:40

请求其他高手出手了,因为CAD自带的查找功能也是会把B1查找的结果关联B11等
页: [1]
查看完整版本: 请教Z版,查找的结果只为单纯的AA34,不要关联含有AA34的其他内容,如AA34-等,谢谢!