Create regions out of different layers and place them in their correspondent layer, is it possible?

[manso86]

Hi guys,

I would like to create a AutoLISP but I am still very new to it and I believe I need a lot of time, perhaps you can help?

I need to create create regions out of polylines and allocate these new regions into the layer of the polylines it was created from. The region command does the first step but it allocates all the new region in the same layers so I am trying to make the process quicker not do go one-by-one.

Could anyone help?

Regards,

[Sea-Haven · Accepted solution]

Look at Create regions out of different layers and place them in their correspondent layer, is it possible? ...

[paullimapa · Accepted solution]

Give attached RegByLyr.lsp a try.

Routine cycles through all layers and converts closed lwpolylines to regions and changes them to the corresponding layer.

[komondormrex · Accepted solution]

hey,

sure it is possible

(defun c:closed_pline_region nil
	(vlax-map-collection (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
			'(lambda (object)
				(if (and 
						 (= "AcDbPolyline" (vla-get-objectname object))
						 (minusp (vlax-get object 'closed))
					)
						(progn
							(vla-put-layer
								(car (vlax-invoke (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)))) 
															  'addregion 
															  (list object)
												  )
								)
							    (vla-get-layer object)
							)
					 		(vla-erase object) 
						)
				)
			)
	)
	(princ)
)

[manso86]

Thanks a lot @Sea-Haven , this works perfectly and very quick response! 

[manso86]

Hello @paullimapa awesome this also works, thanks a lot for your help! looking forward to getting into the autolisp world!

[manso86]

@komondormrex Thanks a lot! you guys are awesome! very quick response and works as I wanted ! 🙏

[paullimapa]

Glad to have helped. As you can see there are more than one way to get it done. That’s what’s so fascinating about programming. Enjoy the learning process and cheers!!!