社区 › Auto Lisp › 所有线路到一条线路

lutcus 发表于 2022-7-6 10:56:09

 
圆角不是快速方式。佩蒂特也是。。尤其是你有很多线和柱脚要连接。我得到的剧本是最好的方式。这比我想象的要多。只需选择全部并键入lisp cmd！只要两步！默认autocad中没有更好的命令。。或者我不知道。。。所以再次感谢大家！！

eldon 发表于 2022-7-6 10:57:08

我希望没有Lisp程序的普通人会使用具有多个选项的Pedit，并以模糊距离连接，并设法一次连接所有内容。
 
这个论坛使得将AutoCAD与Lisps结合使用而不是使用内置命令变得过于简单

alanjt 发表于 2022-7-6 11:00:32

我完全同意。一点宏并没有错，但首先应该学会使用并熟练理解AutoCAD。 
PEdit>多个。。。
Command: pe PEDIT Select polyline or : m
Select objects: Specify opposite corner: 3 found

Select objects:

Enter an option : j
Join Type = Extend
Enter fuzz distance or <0.0000>:
2 segments added to polyline

Enter an option :

Lee Mac 发表于 2022-7-6 11:05:40

这里有一个我使用的过于复杂的代码-它让我不得不选择“多个”。。。
 

(defun c:pj ( / *error* vl ov ss )

(defun *error* ( msg )
   (and ov (mapcar 'setvar vl ov))
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " msg " **"))
   )
   (princ)
)

(setq vl '("CMDECHO" "PEDITACCEPT") ov (mapcar 'getvar vl))
(mapcar 'setvar vl '(0 1))

(if (setq ss (ssget "_:L" '((0 . "LINE,ARC,LWPOLYLINE"))))
   (command "_.pedit" "_M" ss "" "_J" "" "")
)

(mapcar 'setvar vl ov)
(princ)
)
 
但我同意你应该先学习这个程序，然后再进行定制。

alanjt 发表于 2022-7-6 11:07:30

哦，是的，仅供参考：不能连接不共线的线。

ReMark 发表于 2022-7-6 11:09:09

希望电力能在未来很长一段时间内持续供应。我可以想象这些用户中的一些人试图用铅笔、直尺和几个三角形手工绘制一幅画。除非你说得很有趣，否则在黑板上写东西就不会Lisp程序！

Lee Mac 发表于 2022-7-6 11:15:23

 
嗯？
 
....

lpseifert 发表于 2022-7-6 11:17:55

我认为他的意思是共面

alanjt 发表于 2022-7-6 11:21:26

哎呀，谢谢你。

Guest balajibth 发表于 2022-7-6 11:22:47

我使用了这两个lisp。。但在连接所有顶点后，现在。。。假设我连接3条线意味着我只需要2个端点和一个中点顶点。。。。我要删除的剩余顶点。。Hw如何通过lisp实现这一点？？

查看完整版本: 所有线路到一条线路