[原创]边界轮廓线程序，支持line arc circle *polyline spline ellipse insert

paulpipi · 发表于 2020-8-17 22:55

很好的东东，

刘炎华 · 发表于 2020-8-19 12:21

BDYCAD 发表于 2003-9-20 08:56
我自己很久以前寫了一個,不知適不適合你.試試看.呵呵

(defun c:ee (/ a)

能改一下吗？判断连接后的线是否闭合，在命令行给出提示。谢谢！

love_cq · 发表于 2020-12-5 23:45

精华，学习了。就是没有封闭的时候生成不了外轮廓线。

jianjun2 · 发表于 2021-3-9 10:57

值得收藏。。。。

lizhiyong_11 · 发表于 2021-5-25 23:12

提示我，错误：参数太多
大家有和我一样的吗，怎么解决呢？

轮回 · 发表于 2021-12-29 17:37

2003年啊，牛逼，

qazxswk · 发表于 2022-1-30 21:48

在浩辰CAD2022上测试，不行。

78946299 · 发表于 2022-5-9 19:42

精华，学习了。

Bdj · 发表于 2022-6-10 13:54

厉害啊，大佬，03年我还在玩泥巴

Bdj · 发表于 2022-6-24 17:12

本帖最后由 Bdj 于 2022-6-24 17:25 编辑

这几天在测试这个程序，刚开始的时候在CAD2014里面测试还是没有问题的，但是后来不知怎地，程序出现了问题，然后一直提示：
已提取 2 个环。
已创建 2 个面域。
BOUNDARY 已创建 2 个面域
无效的选项关键字。
; 错误: 函数被取消
输入选项 [闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/反转(R)/放弃(U)]:
将程序放在CAD2015中测试又没有问题，真是起来怪了。

经过各种测试后发现了出现这种问题的原因是系统变量的问题，通过反查PEDIT命令得知：
如果 PEDITACCEPT 系统变量设定为 1，将不显示该提示，选定对象将自动转换为多段线。
也就是说我的这个系统变量不知何时被设置成了1，导致源代码:
(command "_.pedit" ent "_y" "_j" ss "" "")
这句中的关键字”Y"无效，所以才出现了命令行中“无效的选项关键字。”的提示。

更改建议是，先将该系统变量用变量记录下来，然后将其设置为0，然后这段程序结束后，在恢复成原来的系统变量:
……
(setq peacpt (getvar "PEDITACCEPT"))
(setvar "PEDITACCEPT" 0)
(command "_.pedit" ent "_y" "_j" ss "" "")
(setvar "PEDITACCEPT" peacpt)
……
如下图：

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

[原创]边界轮廓线程序，支持line arc circle *polyline spline ellipse insert

本帖子中包含更多资源