In normal scenario yes, but i use this for drawing ventilation schemes and its quite differentiated channel allocations which is impossible. Also i would have to maunaly change every curve of first polyline (bend to outer and inner line) to make good offset for this to work.
for example
also i am using this code
(defun offset-lines (ale /)
(setq offset-distance ale)
(if lines
(progn
(setq i 0)
(while (< i (sslength lines))
(setq sel (ssname lines i))
(command "odsuń" offset-distance sel basept "")
(setq i (1+ i))
)
(setq newobjs (ssget "_L"))
(if newobjs
(progn
(setvar "FILLETRAD" 0)
(repeat (setq n (sslength newobjs))
(command "_.fillet" "_polyline" (ssname newobjs (setq n (1- n))))
)
(princ "\nNo new objects created.")
)
)
(princ "\nNo lines selected.")
)
(princ)
)
)
(defun delaypoint ()
(initget "200 28 bez")
(setq chosenOption (getkword "\n odsunięcie o ile: [200/28/bez] <28>: "))
(cond
((equal chosenOption "200")
(progn
(setq lines (ssget '((0 . "LINE,ARC,LWPOLYLINE"))))
(setq basept (getpoint "\nSelect base point: "))
(offset-lines "270")
)
)
((equal chosenOption "28")
(progn
(setq lines (ssget '((0 . "LINE,ARC,LWPOLYLINE"))))
(setq basept (getpoint "\nSelect base point: "))
(offset-lines "98")
)
)
((equal chosenOption "bez"))
)
(princ)
)
(defun c:dpipe (/ oldWd oldFil oldEch lEnt pl1 pl2 vLst1 vLst2 *error*)
(vl-load-com)
(delaypoint)
(defun GetPlineVer (plObj)
(mapcar 'cdr
(vl-remove-if-not
'(lambda (x) (= (car x) 10))
(entget plObj)
)
)
) ; end of GetPLineVer
(defun *error* (msg)
(setvar "CMDECHO" oldEch)
(setvar "FILLMODE" oldFil)
(princ)
) ; end of *error*
(setq duct:pWd 140.0)
(setq oldFil (getvar "FILLMODE")
oldEch (getvar "CMDECHO")
) ; end setq
(mapcar 'setvar
'("CMDECHO" "FILLMODE")
'(0 0)
)
(if (entlast) (setq lEnt (entlast)))
(princ "\nSpesify start point: ")
(command "_.pline" pause)
(command "_w" duct:pWd duct:pWd)
(while (= 1 (getvar "CMDACTIVE"))
(command pause)
(princ "\nSpecify next point: ")
) ; end while
(if
(not
(equal lEnt (entlast))
)
(progn
(setq promien "420")
(setq promien2 (+ (atoi promien) 70))
(setq lEnt (entlast))
(command "_.fillet" "_r" promien2)
(command "_.fillet" "_p" lEnt)
(setq lEnt (vlax-ename->vla-object lEnt)
pl1 (car
(vlax-safearray->list
(vlax-variant-value
(vla-Offset lEnt (/ duct:pWd 2))
)
)
)
pl2 (car
(vlax-safearray->list
(vlax-variant-value
(vla-Offset lEnt (- (/ duct:pWd 2)))
)
)
)
vLst1 (GetPlineVer
(vlax-vla-object->ename pl1)
)
vLst2 (GetPlineVer
(vlax-vla-object->ename pl2)
)
) ; end setq
(vla-put-ConstantWidth pl1 0.0)
(vla-put-ConstantWidth pl2 0.0)
(vla-Delete lEnt)
) ; end progn
) ; end if
(setvar "CMDECHO" oldEch)
(setvar "FILLMODE" oldFil)
(princ)
) ; end
which draw vent pipes (1 pipe is 2 seperate polylines filleted with 420/560) also i am using offsets to make "support lines" to draw other channels next to eachother, or next to wall for example
