lisp to add a block on closed multiple polylines

[land]

i need to insert a block on many polylines at one time .

[fuccaro]

Just *any* point of the polylines?

[fuccaro]

(defun c:pp()
  (setq ssp (ssget '((0 . "LWPOLYLINE"))))
  (repeat (setq i (sslength ssp))
    (setq p1 (ssname ssp (setq i (1- i)))
	  a (assoc 10 (entget p1)))
    (entmake (list (cons 0 "INSERT") a (cons 2 "sample_block")))
    )
  )

Define a block named "sample_block", launch this lisp and select the polylines (all at once)

[mhupp]

If you want only closed polylines modify @fuccaro lisp.

 

(setq ssp (ssget '((0 . "LWPOLYLINE")(70 . 1))))

 

[land]

Worked well my friend thank you. But is it possible to modify it so that the block is defined within AutoCAD itself, so that when a command is given, it asks for the name of the block, and then it is executed?,and to be align on polylines at mid of this.

@fuccaro

 

 

 

21 hours ago, fuccaro said:

(defun c:pp()
  (setq ssp (ssget '((0 . "LWPOLYLINE"))))
  (repeat (setq i (sslength ssp))
    (setq p1 (ssname ssp (setq i (1- i)))
	  a (assoc 10 (entget p1)))
    (entmake (list (cons 0 "INSERT") a (cons 2 "sample_block")))
    )
  )

 

 

Edited August 23, 2023 by land

[fuccaro]

(defun c:pp()
  (setq BlockName (getstring "Enter a block name: " ))
  (setq ssp (ssget '((0 . "LWPOLYLINE"))))
  (repeat (setq i (sslength ssp))
    (setq p (entget (ssname ssp (setq i (1- i))))
	  a (assoc 10 p)
	  b (assoc 10 (cdr (member a p)))
	  c (mapcar '(lambda (x y) (* 0.5 (+ x y))) (setq a (cdr a)) (setq b (cdr b)))
	  )    
    (entmake (list (cons 0 "INSERT") (cons 10 c) (cons 2 BlockName)(cons 50 (angle a b))))
    )
  )

Not sure what "align on polylines" means. I use the first two points of polylines to place the block. This could be wrong if the polyline starts with an arc...

There is no error trap in this Lisp, so when prompted, enter a valid block name.

 

[land]

Worked well thank you.

 

2 hours ago, fuccaro said:

(defun c:pp()
  (setq BlockName (getstring "Enter a block name: " ))
  (setq ssp (ssget '((0 . "LWPOLYLINE"))))
  (repeat (setq i (sslength ssp))
    (setq p (entget (ssname ssp (setq i (1- i))))
	  a (assoc 10 p)
	  b (assoc 10 (cdr (member a p)))
	  c (mapcar '(lambda (x y) (* 0.5 (+ x y))) (setq a (cdr a)) (setq b (cdr b)))
	  )    
    (entmake (list (cons 0 "INSERT") (cons 10 c) (cons 2 BlockName)(cons 50 (angle a b))))
    )
  )

Not sure what "align on polylines" means. I use the first two points of polylines to place the block. This could be wrong if the polyline starts with an arc...

There is no error trap in this Lisp, so when prompted, enter a valid block name.

 

 

 

 

[fuccaro]

Glad to help