yjr111 发表于 2012-11-2 18:16:39

USER2128 发表于 2012-11-2 10:40 static/image/common/back.gif
楼主发话了，就把程序贴出来，希望能领到赏。
程序经调试，应该能达到楼主的要求。
附件收1个币，大家别怪 ...

单就题意而说，程序基本满足，虽然ssget不是我本意，但解决了单点难以解决的智能判断选取范围问题，也不失为一种思路，感谢参与，目前为止最佳答案归你了

USER2128 发表于 2012-11-2 18:51:07

悬赏兑现了，严大侠言而有信！非常感谢严大侠赏赐！功夫没有白费。

yjr111 发表于 2012-11-2 19:05:21

本帖最后由 yjr111 于 2012-11-2 19:06 编辑

这个程序自己也用了点时间写了，与USER2128的思路很不一样，虽然框选范围问题是个难点，但对付一般情况应该足够，现在也把源程序贴出来，供大伙拍砖，因为刚花了888大洋，所以回点血，收费高点，请大伙见谅！程序在一楼，请移步下载

浪子白 发表于 2012-11-2 19:42:31

tianyi1230 发表于 2012-11-3 13:30:27

购买下严哥的作品，学习学习

ddisddis 发表于 2012-11-4 15:32:15

试了一下，cad2006，用了几次后命令提示栏里最下一行就没东西了。
建议增加任何图元，比如块，自定义实体等

tanle2020 发表于 2012-11-4 18:04:13

本帖最后由 tanle2020 于 2012-11-4 18:08 编辑

不支持引线类型吗？

simpleye 发表于 2012-11-4 19:50:40

没钱了。。。。。

USER2128 发表于 2012-11-4 21:06:14

tanle2020 发表于 2012-11-4 18:04 static/image/common/back.gif
不支持引线类型吗？

程序的主体部分支持“引线”、“圆”、“圆弧”、“直线”、“多段线”，需要小改一下程序。
将：
(defun c:test ()
(setq ss (ssget '((0 . "*TEXT,*LINE"))))
改为：
(defun c:zbm ()
(setq ss (ssget '((0 . "TEXT,*LINE,INSERT,CIRCLE,ARC"))))

2012年11月4日之前所发程序缺陷：
对“多行文本”不支持，不能在“UCS”坐标系下使用。
如果有同行继续关注，我将改进上述缺陷。

tanle2020 发表于 2012-11-6 07:37:00

USER2128 发表于 2012-11-4 21:06
程序的主体部分支持“引线”、“圆”、“圆弧”、“直线”、“多段线”，需要小改一下程序。
将：
(def ...

烦请下载我37楼上传的测试图纸，希望能解决。图纸里的文字与引线是关联的，引线的位置、长度都会随文字改变。
页: 1 2 3 [4] 5 6 7 8 9
查看完整版本: 这个功能不错，请高手们弄一个