本帖最后由 cumtjh 于 2011-6-25 12:42 编辑
zhynt 发表于 2011-6-24 02:18 http://bbs.mjtd.com/static/image/common/back.gif
更新内容：
1、修改了几处错误。
2、修改了文件读取方式（文件对话框直接到文件所在目录）。
能不能修改为多段线的支持，而不仅仅是圆弧曲线，能做出沿着路径整列形式更好
就像下面的一样 ，但由于该工具没有提供源码 没法修改成自己的自动绘制程序
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=42551&highlight=%C2%B7%BE%B6%D5%F3%C1%D0
很好用的小程序~~~
本帖最后由 raimo 于 2011-6-28 21:07 编辑
zhynt 发表于 2011-6-20 21:05 static/image/common/back.gif
也来凑个热闹(改了一下）
修改了一下，相对完美了一些。
报告zhynt..今天在使用你9楼发布的那个lsp程序中发现一个BUG..
当不小心把等分数输错,等分数为1,或者是小于1的时候会陷入死循环..不停的画等分线,直到按esc中断才停..
检查后发现缺少了等分数值校验部分.我自己的办法是在程序中找到这个位置,加入红色部分代码就好了..供大家参考...
.....................
(setq en2 (car ent)
pta (cadr ent)
pt1 (cdr (assoc 10 (entget en1)))
pt2 (cdr (assoc 11 (entget en1)))
pt3 (cdr (assoc 10 (entget en2)))
pt4 (cdr (assoc 11 (entget en2)))
l1 (distance pt1 pt2)
l2 (distance pt3 pt4)
jianju (getreal "\n请输入分隔间距 :<20>")
n (getint "\n请输入需等分个数 :<3>")
)
(if (null n)
(setq n 3)
)
(while (<= n 1)
(setq n (getint "\n输入错误,请重新输入大于1的等分数 :"))
)
(if (null jianju)
(setq jianju 20)
.....................
本帖最后由 cumtjh 于 2011-7-1 01:14 编辑
raimo 发表于 2011-6-28 21:04 http://bbs.mjtd.com/static/image/common/back.gif
报告zhynt..今天在使用你9楼发布的那个lsp程序中发现一个BUG..
当不小心把等分数输错,等分数为1,或者是小 ...
改天把验证曲线路径阵列 写个详细要求 请大家帮忙写下原理基本跟上面相同
能不能修改为多段线的支持?可能沿某一折线形多段线阵列呢？
我这我不懂，就是希望阵列块与多段线等长平行阵列呢？
希望高手编个小程序，指点一下大家，zhynt能否试试调试啊？·期待中。。。。。
有此程序可以节省大量时间
这个还不完美哈哈。。如果用于栏杆不是那么好用~
也来凑个热闹
flytoday 发表于 2012-5-29 13:27 static/image/common/back.gif
这个还不完美哈哈。。如果用于栏杆不是那么好用~
好工具不是万精油型的，是针对某种重复多操繁琐的操作而作特别定制的。画栏杆就得找画栏杆的工具