Please help to modified this lisp routine

Dear Users,

I have downloaded this Lisp, and it's work great, but i need some changes in this,

this Lisp draw duct in MLINE but i need it in line entity,

anybody can modified this lisp....

Thanks in advance...

I have moved your question to the Autolisp section: http://www.cadtutor.net/forum/forumdisplay.php?21-AutoLISP-Visual-LISP-amp-DCL

For best results, always try to post in the section of the forum that is most relevant to your question.

I've looked at the code, it's a real spaghetti.

Looks like it used to work drawing in polyline and all these sections

have been rem'd out.

Simply exploding the MLINES would give you LINES.

ymg

FWIW, here is the source of the program.

So confirmed, in the body function the section that are rem'd out

will draw your duct run with straight section in LINE and elbow in LWPOLYLINE

instead of MLINE

Below I've rem'd out the MLINE and activated the LINE/LWPOLY mode.

There are two sections like this in the body function.

(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)                                                         
;-----------------------------------------------------------------------------------------------------------
	    )
         )

For the elbows you will have to look around in the same function.

Might be a little more difficult as bulge are used for elbows in radius mode.

You could always explode the LWpolyline after it is drawn.

I attach the source code with the LWPoly mode activated.

ymg

ductlwp.LSP

Thanks, Everyone to Concern....

I am appreciate to all of you.....