Topic: How to Entmake region?

[HasanCAD]

How to Entmake region?

[Tharwat]

It's the VBA function 

Code: [Select]

vla-AddRegion

[Tharwat]

Here is one routine I made it from a while , you can use it for your own .

Code: [Select]

(defun c:Addreg (/ *error* TH:UnDo TH:CAD TH:StartUnDo e obj Msapce Eobj TH:UnDo )
  ; THARWAT Nov. 04.2010
  (vl-load-com)
  (defun *error* ( msg )
    (and TH:UnDo (vla-EndUndoMark TH:CAD))
    (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
        (princ (strcat "\n** Error: " msg " **")))
    (princ)
  )
  (setq TH:CAD
       (vla-get-ActiveDocument
           (vlax-get-acad-object ) ))
 (if (and (setq e
(car
   (entsel "\n Select [Rectangle,Circle] :")))
(or (eq (cdr
   (assoc 0 (entget e))) "CIRCLE")
     (eq (cdr
   (assoc 0 (entget e))) "LWPOLYLINE")
)
    )
  (progn
      (setq obj (vlax-ename->vla-object e)
    )
        (setq Msapce (vla-get-ModelSpace TH:CAD)
      )
          (setq Eobj  (vlax-safearray-fill
(vlax-make-safearray vlax-vbObject
  '(0 . 0))(list obj))
)
            (vla-addregion Msapce Eobj)
  (entdel e)
    )
  (princ "\n *** Object is not valid *** ")
  )
(princ)
)
Enjoy.

Tharwat

[HasanCAD]

Here is one routine I made it from a while
...

Thanks

[HasanCAD]

Is there way to addregion by selecting an inrernal point of PLine?

[Tharwat]

What are you planning to do with Internal Point with region ?

[HasanCAD]

Look at attached there are 2 example
- First is OK, but what about second one (right one).
- In case of the target area not a rectangle.

I'm wondering if ADDREGION can do the same by picking an internal point?

[Tharwat]

Look at attached there are 2 example
- First is OK, but what about second one (right one).

Are you trying to make region at the area which is between the big and the small two rectangles ?

- In case of the target area not a rectangle.

It has to be closed to implement or to get the region shape of it .

Tharwat

[HasanCAD]

For this area

[Tharwat]

Region do not accept open areas , it is like a solid mass .

Are you planning to get the areas of things like that afterall ?

[Lee Mac]

Example:

Code: [Select]

(defun c:test ( / space e1 e2 ) (vl-load-com)

  (setq space
    (vlax-get-property (vla-get-ActiveDocument (vlax-get-acad-object))
      (if (= 1 (getvar 'CVPORT))
        'Paperspace
        'Modelspace
      )
    )
  )

  (if
    (and
      (setq e1 (car (entsel "\nSelect Outer Object: ")))
      (vlax-curve-isClosed e1)
      (setq e2 (car (entsel "\nSelect Inner Object: ")))
      (vlax-curve-isClosed e2)
    )
    (vla-Boolean
      (car (vlax-invoke space 'AddRegion (list (vlax-ename->vla-object e1)))) acSubtraction
      (car (vlax-invoke space 'AddRegion (list (vlax-ename->vla-object e2))))
    )
  )

  (princ)
)

[HasanCAD]

Example:
...

Thanks
But is this mean we cant ADDREGION by picking a point?

[Tharwat]

Example:
...

Thanks
But is this mean we cant ADDREGION by picking a point?

What's the benefit of picking points to get REGION instead of Selection Set ? :realmad:

[HasanCAD]

What's the benefit of
...

Where I am working we need some information about the MAS
So we convert a closd area to region then get the needed information by using _massprop

I asked for a lisp to do that staff and a memener at CADTutor.net give me the answer
http://www.cadtutor.net/forum/showthread.php?24528-Lisp-to-find-Center-of-Gravity

But still there is step we cant find a solution
If it is a solid area but has a hall See previous attached

[qjchen]

Example:
...

Thanks
But is this mean we cant ADDREGION by picking a point?

What's the benefit of picking points to get REGION instead of Selection Set ? :realmad:

I think it is possible to do "only picking points", but now the solution is not so perfect.
(1) use command "_boundary" to pick a point , then it would generates some boundary objects
(2) cal each boundary object area
(3) convert all new boundary objects to regions one by one
(4) boolean (the Max area region)-(the other region).
(5) that is what you need?