请帮助修改此l

CAD USER · 发表于 2022-7-5 18:23:04

尊敬的用户：，

我已经下载了这个Lisp，它的工作很好，但我需要在这方面做一些更改，
这个Lisp绘制管道在多线，但我需要它在线实体，
任何人都可以修改此lisp。。。。

提前感谢。。。

Cad64 · 发表于 2022-7-5 18:35:40

我已将您的问题转移到Autolisp部分：http://www.cadtutor.net/forum/forumdisplay.php?21-AutoLISP Visual LISP amp DCL

为了获得最佳结果，请始终尝试在论坛中与您的问题最相关的部分发布。

ymg3 · 发表于 2022-7-5 18:50:38

我看了代码，这是一个真正的意大利面。

看起来它是用来绘制多段线和所有这些部分的
已被删除。

简单地分解多行线就可以得到行。

ymg公司

Lee Mac · 发表于 2022-7-5 18:59:52

FWIW，这是程序的源代码。

ymg3 · 发表于 2022-7-5 19:15:18

因此，在身体功能中，被删除的部分得到了确认
将绘制风管管路，直线部分为直线，弯头部分为多段线
而不是MLINE

在下面，我删除了多行并激活了行/行模式。
在身体功能中有两个类似的部分。

copy


(if (and (= "Segmented" dpipeelb)
                  (not (equal ang1 ang2 0.000001))
             )
            (progn
               ;(command "_.mline" "_st" "DUCT_PIPE" "_S" (cadar seglst) "_J" "_Z")
               ;(mapcar 'command mllst)
               ;(command "")
;-----------------------------------------------------------------------------------------------------------
                     (setvar "PLINEWID" 0.0)                                                              
                     (command "_.pline")                                                                  
                     (mapcar 'command ptLst)                                                              
                     (command "_c")                                                                       
                     (setq SegCnt 0)                                                                      
                     (while (< SegCnt (1- SegNum))                                                        
                        (command "_.line" (nth SegCnt ptlst) (nth (- (length ptlst) 3 SegCnt) ptlst) "")  
                        (setq SegCnt (1+ SegCnt))                                                         
                     )                                                                                    
                     (setvar "PLINEWID" dpipepWd)                                                         
;-----------------------------------------------------------------------------------------------------------
            )
         )

对于肘部，您必须在相同的功能中四处查看。
可能有点困难，因为在半径模式下弯头使用凸出。
绘制后，始终可以分解LW多段线。

我附上激活LWPLY模式的源代码。

ymg公司
管道LWP。LSP

CAD USER · 发表于 2022-7-5 19:29:55

谢谢大家关心。。。。
我感谢你们所有人。。。。。

[编程交流] 请帮助修改此l

发表回复

精选推荐