topic Re: Get Region Boundary in Visual LISP, AutoLISP and General Customization Forum

Get Region Boundary

Ysuuny — Wed, 27 Nov 2024 13:51:44 GMT

Hello!!

I'm developing it with civil3d c# and it's not solved, so I'm leaving a post.

I only want to bring the outer line (polyline) from the region with a hole in the middle

- I explode the region, but it's hard to join because it's remain to the middle line
- I've also checked if it's in the area based on the point criteria, but it's not working well

I also referred to this library(GeometryExtensionsR19, brep) and worked hard...

Please help me,, 😉

Re: Get Region Boundary

Joe-Bouza — Wed, 27 Nov 2024 14:03:46 GMT

LINEWORKSHRINKWRAP ?

Re: Get Region Boundary

paullimapa — Wed, 27 Nov 2024 19:26:14 GMT

Manually this is how I let AutoCAD create the new inner & outer PLINEs from the REGION

Enter command:

BPOLY

In the Boundary Creation dialog under Boundary set click New and select the Region and hit Enter:

The Boundary Creation dialog re-appears and this time click on Pick Points but this time select the space that makes up the REGION:

If successful AutoCAD will show selected the new PLINE boundaries generated:

Hit Enter to complete the command.

Now you've got the PLINEs automatically generated for you:

Re: Get Region Boundary

paullimapa — Wed, 27 Nov 2024 19:35:29 GMT

Also this is how I would do it with lisp code:

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/how-to-use-bpoly-function/m-p/12773148/highlight/true#M466033

;;;--- aec_setmrk is used w/ (aec_getmrk) it sets pt. marker (defun aec_setmrk () (command "_.Point" "@") (setq aec_pt-mrk (entlast)) (entdel aec_pt-mrk) (princ) ) ;defun ;;;--- aec_getmrk starts at aec_pt-mrk (aec_setmrk) retrieves to current entity (defun aec_getmrk (/ aec_ss) (if aec_pt-mrk (progn (setq aec_ss (ssadd)) (while (setq aec_pt-mrk (entnext aec_pt-mrk)) (ssadd aec_pt-mrk aec_ss) ) (setq aec_pt nil) aec_ss ) ) ;if ) ;defun (if (setq bp (getpoint "\nSelect Internal Point: ")) ; select point in middle of REGION (progn (aec_setmrk) ; set beginning marker (command "._-Boundary" "_non" bp "") ; create boundaries (if (setq ss (aec_getmrk))(sssetfirst nil ss)) ; highlight them ) ) ; if