Combine individual polylines

[ronjonp]

  On 3/27/2025 at 10:36 PM, Nikon said:

@GLAVCVS  @ronjonp

Thank you, your codes are working well!

Expand  

Glad to help : ) Here's another that is not a block.

(defun c:foo (/ p)
  (while (setq p (getpoint "\\nPick a point: "))
    (entmake (list '(0 . "LWPOLYLINE")
		   '(100 . "AcDbEntity")
		   '(67 . 0)
		   '(8 . "L-MVIEW")
		   '(100 . "AcDbPolyline")
		   '(90 . 4)
		   '(70 . 129)
		   '(38 . 0)
		   '(39 . 0)
		   (cons 10 p)
		   '(40 . 40)
		   '(41 . 40)
		   '(42 . 0)
		   '(91 . 0)
		   (cons 10 (setq p (mapcar '+ '(1000 0) p)))
		   '(40 . 0)
		   '(41 . 0)
		   '(42 . 0)
		   '(91 . 0)
		   (cons 10 (setq p (mapcar '+ '(0 400) p)))
		   '(40 . 40)
		   '(41 . 40)
		   '(42 . 0)
		   '(91 . 0)
		   (cons 10 (setq p (mapcar '+ '(-1000 0) p)))
		   '(40 . 0)
		   '(41 . 0)
		   '(42 . 0)
		   '(91 . 0)
	     )
    )
  )
  (princ)
)

 

Edited March 28 by ronjonp

[Nikon]

  On 3/27/2025 at 10:46 PM, ronjonp said:

Glad to help : ) Here's another that is not a block.

Expand  

@ronjonp huge thank!And this code performs its task well.

The code allows you to insert multiple rectangles...

Edited March 28 by Nikon