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

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

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

不行啊，长老？

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

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

cxs259 发表于 2011-6-25 18:27:53

长老，不是有错误，只是比例圆圈还是用不了
(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:29

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

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




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

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

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

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

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

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

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

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

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

27、28、29楼的问题如果能得到解决，本程序就比CAD所带的查找功能强大多了
页: 1 2 [3] 4 5 6 7 8 9 10 11 12
查看完整版本: 已解决：查找文字后，定位并统计数量