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

请帮助修改此l

尊敬的用户：，
 
我已经下载了这个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
 
在下面，我删除了多行并激活了行/行模式。
在身体功能中有两个类似的部分。
 

(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

谢谢大家关心。。。。
我感谢你们所有人。。。。。
页: [1]
查看完整版本: 请帮助修改此l