已解决：查找文字后，定位并统计数量

Andyhon · 发表于 2011-6-25 14:27

(command ".CIRCLE" pt 50)
==>
(command ".CIRCLE" pt 按比例大小设定)

cxs259 · 发表于 2011-6-25 14:36

不行啊，长老？

Andyhon · 发表于 2011-6-25 14:45

您怎么样改/ 用 !?
请贴出错误讯息

cxs259 · 发表于 2011-6-25 18: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 按比例大小设定)
(setq i (1+ i))
  )
  (princ "\n")
  (princ (sslength ss))
))
(setvar "CMDECHO" 1)
(princ)
)

Andyhon · 发表于 2011-6-25 20:01

(command ".CIRCLE" pt 50)
==>
(command ".CIRCLE" pt 按比例大小设定)

50 是大了 / 小了 !?
50 与您所谓的比例是何关系!?

水沙漠 · 发表于 2011-6-28 23:31

试试看这个查找功能怎样？

cxs259 · 发表于 2011-7-27 22:25

查找的结果只包括单纯的AA34，不要含有如AA34-3，准AA34-6m等，行不行啊？
谢谢，盼复

hdlyt11 · 发表于 2011-7-28 10:05

他是希望圆圈能根据文字的高度变化而变化，(command ".CIRCLE" pt 50)当文字为300高或者更高的时候，50显然太小了，可以把50设置为文字高度的变量

hdlyt11 · 发表于 2011-7-28 10:08

做的再完美一些，建议将标记圆圈单独设置为“标记”层，为红色，不可打印

cxs259 · 发表于 2011-7-28 21:54

27、28、29楼的问题如果能得到解决，本程序就比CAD所带的查找功能强大多了

账号		自动登录	找回密码
密码			注册

[源码] 已解决：查找文字后，定位并统计数量

点评