Topic: Update SECTIONPLANE with lisp

[kruuger]

hello

is there any method to automatically auto update all sections (blocks) genereted by _SECTIONPLANE command ?
clicking on every section/right click/generate is very annoying 

thanks
kruuger

[RolandOrzabal]

hello

is there any method to automatically auto update all sections (blocks) genereted by _SECTIONPLANE command ?
clicking on every section/right click/generate is very annoying 

thanks
kruuger

agree! i find it annoying too
hopefully there is...

[togores]

Maybe this could help. The sectioned object must be a solid as the ActiveX GenerateSectionGeometry does not accept Surfaces or Meshes.

Code: [Select]

(defun c:sect-gen  (/ ss i)
  (prompt "\nSelect Section objects: ")
  (setq ss (ssget '((0 . "SECTIONOBJECT")))
        i  0)
  (while (setq sec (ssname ss i))
    (setq sec (vlax-ename->vla-object sec)
          pt1 (vlax-safearray->list
                (vlax-variant-value (vla-get-coordinate sec 0)))
          pt2 (vlax-safearray->list
                (vlax-variant-value (vla-get-coordinate sec 1))))
    (if (setq ssol (ssget "_C" pt1 pt2 '((0 . "3DSOLID"))))
      (progn (setq obj-3dsol
                    (vlax-ename->vla-object (ssname ssol 0)))
             (vla-GenerateSectionGeometry
               sec obj-3dsol 'BoundaryObjs 'FillObjs
               'BackGroundObjs 'ForegroundObjs 'CurveTangencyObjs)
             (setq i (1+ i))))))


[kruuger]

Maybe this could help. The sectioned object must be a solid as the ActiveX GenerateSectionGeometry does not accept Surfaces or Meshes.

Code: [Select]

(defun c:sect-gen  (/ ss i)
  (prompt "\nSelect Section objects: ")
  (setq ss (ssget '((0 . "SECTIONOBJECT")))
        i  0)
  (while (setq sec (ssname ss i))
    (setq sec (vlax-ename->vla-object sec)
          pt1 (vlax-safearray->list
                (vlax-variant-value (vla-get-coordinate sec 0)))
          pt2 (vlax-safearray->list
                (vlax-variant-value (vla-get-coordinate sec 1))))
    (if (setq ssol (ssget "_C" pt1 pt2 '((0 . "3DSOLID"))))
      (progn (setq obj-3dsol
                    (vlax-ename->vla-object (ssname ssol 0)))
             (vla-GenerateSectionGeometry
               sec obj-3dsol 'BoundaryObjs 'FillObjs
               'BackGroundObjs 'ForegroundObjs 'CurveTangencyObjs)
             (setq i (1+ i))))))


thanks for interesting. this one generates section from solid.
my goal is to update already inserted section (block) generated by sectionplane command.
each section (block) is connected with section plane. there are dozen of them.

kruuger

[togores]

my goal is to update already inserted section (block) generated by sectionplane command.
each section (block) is connected with section plane. there are dozen of them.

Maybe you could post a sample DWG of how is this "connection" made.
Haven't done it before, but... maybe.

[kruuger]

my goal is to update already inserted section (block) generated by sectionplane command.
each section (block) is connected with section plane. there are dozen of them.

Maybe you could post a sample DWG of how is this "connection" made.
Haven't done it before, but... maybe.

hello togores
please see sample file. there are two sections.
1. click one of them
2. right click Generate 2d/3d
3. create button
you should see how section change
repetaing 1-3 is very tiring 

thanks
kruuger

[togores]

Hi kruuger, I've been looking at it, but the SECTION object's ActiveX stuff seems to be a bit buggy... There is a property in the AcadSectionTypeSettings where the linked section block should appear (DestinationBlock), but I haven't been able to get or put the destinaton block in it. However, the section does have this reference as we can see exploring the entity lists through entget (retrieving its settings entity).
There could be a simpler way when doing this by programming: making a group with the generated geometry entities giving it a name that you can identify later.
Nevertheless, maybe some other swamper with more experience with this kind of object could help.

[mkweaver]

This will get the entity name for the block insertion that is associated with a sectionobject:

Code: [Select]

(cdr
   (assoc
     331
     (entget
       (cdr
         (assoc
           360
           (entget SectionObjectEName)
         )
       )
     )
   )
 )

[togores]

This will get the entity name for the block insertion that is associated with a sectionobject:

Have you succeeded in assigning it to the DestinationBlock property?

[mkweaver]

This will get the entity name for the block insertion that is associated with a sectionobject:

Have you succeeded in assigning it to the DestinationBlock property?

I haven't tried that yet. So far I have made that assignment with the built in command, then used code to put the block and sectionplane into a group.