To Create Offset Lines

[bedyr]

Hi,

How can I do this? Anybody know about that.

https://knowledge.autodesk.com/support/autocad-utility-design/learn-explore/caas/CloudHelp/cloudhelp...

[kajanthangavel]

I think, this posibile only 'Autocad Electrical'...😀

[bedyr]

I think it is possible but we dont know how. 😁

[devitg]

What ACAD  do you use???

Please upload a sample.dwg with a BEFORE and AFTER 

[bedyr]

I am using autocad for mac 2020. You can see link above what I am saying.

[cadffm]

Find the different.

[bedyr]

I know that. I am saying that can I create this option on autocad?

[cadffm]

1. Not "in AutoCAD" but "in AutoCAD for MAC" (often an important different)

2. I don't know about this Option in detail, just from yourr Link, because i don't know "Autocad Design Utility"/"ADU"

3. Perhaps you are searching for the OBJECT SNAP PARALLEL ?

Sorry if not, i am out.

[Sea-Haven]

Its very doable picking a sequence of lines or plines then drawing say two parallel lines along that route. I would expect something exists already. Maybe search for just that "Route lisp" there is a lot of  stuff out there if you use a car gps it has route built in. Check Cadtutor.net as well I think it was there. I have something but it would need a bit more smarts added to it as it was purpose written, draws 4 lines.

[bedyr]

I want to like that lisp but in this lisp I couldnt change offset direction. Can we change this for two options?
I will click a point and with mouse action choose offset direction.

(defun c:PF (/ dd mm p1 p2 is nk1 nk2)
  (setq dd t)
  (setq mm 5)
  (setq obj (vlax-get-acad-object))
  (setq doc (vla-get-ActiveDocument obj))
  (setq ms (vla-get-ModelSpace doc))
  (if (setq p1 (getpoint "\nFirstPoint:"))
    (progn
      (while dd
	(if (setq p2 (getpoint p1 "\nOtherPoint:"))
	  (progn
	    (setq ss (ssget "c" p2 p2))
	    (if	ss
	      (setq is -)
	      (setq is +)
	    )
	    (setq nk1 p1
		  nk2 (polar p1 (angle p1 p2) (is (distance p1 p2) mm))
	    )
	    (vla-addline ms (vlax-3d-point nk1) (vlax-3d-point nk2))
	    (setq p1 nk2)
	  )
	  (progn
	    (setq dd nil)
	  )
	)
      )
    )
  )
  (princ)
)