这个功能不错，请高手们弄一个

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

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

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

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

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

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

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

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

显示全部楼层 · 发表于 2012-11-2 19:42

提示: 作者被禁止或删除内容自动屏蔽

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

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

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

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

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

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

不支持引线类型吗？

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

没钱了。。。。。

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

tanle2020 发表于 2012-11-4 18:04
不支持引线类型吗？

程序的主体部分支持“引线”、“圆”、“圆弧”、“直线”、“多段线”，需要小改一下程序。
将：
(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

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

烦请下载我37楼上传的测试图纸，希望能解决。图纸里的文字与引线是关联的，引线的位置、长度都会随文字改变。

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

浪子白该用户已被删除	发表于 2012-11-2 19:42 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
浪子白该用户已被删除
	回复使用道具举报显身卡

这个功能不错，请高手们弄一个

本帖子中包含更多资源

评分