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

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

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

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

学习学习，，谢谢各位啦

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

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

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

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

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

随手直接打的代码
(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

kozmosovia 发表于 2016-7-17 20:52
随手直接打的代码
(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

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

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

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

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

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

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

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

搞好了，谢谢了。。。

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

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

能搞个支持圆，椭圆的吗

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

(setq pl (vlax-ename->vla-object pl)
xx (vlax-curve-getDistAtPoint pl (vlax-curve-getEndPoint pl))
)

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

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

本帖子中包含更多资源

相关帖子