社区 › Auto Lisp › 救命啊！想画一个o系列

mrbradley1 发表于 2022-7-6 09:40:51

救命啊！想画一个o系列

有人能帮我用lisp文件吗。我想在两个点之间画一系列45度的线来代表焊缝，见附件。
 
如果可能，还可以指定45度线的长度和间距。
 
我对lisp文件没有太多经验，如果可以的话，请帮助我

SOliver 发表于 2022-7-6 09:44:25

你就不能把线和长度结合起来吗

mdbdesign 发表于 2022-7-6 09:49:45

边界框和内部图案填充以及删除边界框怎么样？爆炸舱口后？

Ahankhah 发表于 2022-7-6 09:50:40

我认为最好使用hatch对象来获得标记。
注意：以下代码中没有错误跟踪：
（defun C:DrawWeld（）（setq len（getdist“\n指定长度：”）（setq ang 45.0）（setq obj pt（entsel“\n选择对象：”）（setq obj（car obj pt））（setq dist（getdist“\n指定线之间的距离：”）（命令“.COPY”obj“\u Displacement”“\u NONe”（strcat（rtos len）”

Ahankhah 发表于 2022-7-6 09:55:34

mdbdesign，当我编写代码时，您的回复被添加到线程中。正如你所见，我和你一样认为解决方案。。。

mdbdesign 发表于 2022-7-6 09:58:29

我喜欢它。已在工具栏中。

mrbradley1 发表于 2022-7-6 10:00:24

谢谢大家的回复，考虑了阵列和舱口，但我使用了很多，并试图找到一个简单的方法绕过它。。。。。啊哈，你写的代码，这行得通吗？

Ahankhah 发表于 2022-7-6 10:05:14

Bradley1先生，它工作正常。刚才我在AutoCAD 2012中测试了它

mdbdesign 发表于 2022-7-6 10:07:25

 
你觉得2012年的工作怎么样？

SOliver 发表于 2022-7-6 10:10:29

但是，您可以尝试查看图案填充偏移并相应地计算比例；我觉得有必要让你们回到我最初的评论中，也许用创建的线条创建一个块以保持整洁。希望不要太厚颜无耻的评论：哈哈：

查看完整版本: 救命啊！想画一个o系列