tangjunasd58 发表于 2016-7-17 19:15:35

谁能把这个步骤做成一个命令的功能性插件

谁能把这个步骤做成一个命令的功能性插件 手工画是竖向的XL线是有的。画一条直线=》偏移一个高度=》LI获取曲线的长度=》复制曲线的长度=》输入偏移命令+粘贴曲线的长度=》偏移好=》画矩形

999999 发表于 2020-9-15 09:40:33

学习学习，，谢谢各位啦

kozmosovia 发表于 2016-7-17 20:40:34

做个矩形水平拉伸动态块，长度字段关联到多线段长度就行了。

tangjunasd58 发表于 2016-7-17 20:47:12

我是想要选择曲线后直接得到矩形，使用方式是 输入（或拾取高度）=》选择曲线=》生成矩形

kozmosovia 发表于 2016-7-17 20:52:18

随手直接打的代码
(if (and (Setq pl (car (entsel "\n Pick Polyline <exit>")))
(setq pt (getpoint "\n Pick point <Exit>:"))
)
(progn
(setq xx (vla-get-length (vlax-ename->vla-object pl)))
(command "_.Rectangle" pt (list (+ xx (car pt))(+ (cadr pt) 100.0))
))

qinleilei 发表于 2016-7-17 21:37:12

kozmosovia 发表于 2016-7-17 20:52 static/image/common/back.gif
随手直接打的代码
(if (and (Setq pl (car (entsel "\n Pick Polyline ")))
(setq pt (getpoint "\n Pick ...

大神呀，代码随手打，
帮我看下这个
http://bbs.mjtd.com/thread-172720-1-1.html

tangjunasd58 发表于 2016-7-17 21:52:32

kozmosovia 发表于 2016-7-17 20:52 static/image/common/back.gif
随手直接打的代码
(if (and (Setq pl (car (entsel "\n Pick Polyline ")))
(setq pt (getpoint "\n Pick ...

能弄完整点吗，加载 输入的列表有缺陷

tangjunasd58 发表于 2016-7-17 21:58:35

kozmosovia 发表于 2016-7-17 20:52 static/image/common/back.gif
随手直接打的代码
(if (and (Setq pl (car (entsel "\n Pick Polyline ")))
(setq pt (getpoint "\n Pick ...

搞好了，要是那个高度能自己输入或拾取就好了。

tangjunasd58 发表于 2016-7-17 22:12:11

kozmosovia 发表于 2016-7-17 20:52 static/image/common/back.gif
随手直接打的代码
(if (and (Setq pl (car (entsel "\n Pick Polyline ")))
(setq pt (getpoint "\n Pick ...

搞好了，谢谢了。。。

tangjunasd58 发表于 2016-7-18 22:06:03

kozmosovia 发表于 2016-7-17 20:52 static/image/common/back.gif
随手直接打的代码
(if (and (Setq pl (car (entsel "\n Pick Polyline ")))
(setq pt (getpoint "\n Pick ...

能搞个支持圆，椭圆的吗

kozmosovia 发表于 2016-7-19 12:11:57

(setq pl (vlax-ename->vla-object pl)
      xx (vlax-curve-getDistAtPoint pl (vlax-curve-getEndPointpl))
)
页: [1] 2
查看完整版本: 谁能把这个步骤做成一个命令的功能性插件