Scribd Logo
Upload

Welcome to Scribd!

  • 26 views

    Convert2dsolids LSP

    Uploaded by

    Aleida Rodríguez
    This document contains AutoLISP code to convert 3D solids in a drawing to 2D polylines and hatches in the current space (model or paper). The code gets all objects classified as solids, extracts the coordinates to define 2D polylines, adds hatches using each polyline as the outer loop, and copies properties like color and layer from the original solid. Running the defined "cd" command executes this conversion.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd

    Convert2dsolids LSP

    Uploaded by

    Aleida Rodríguez
    26 views1 page
    This document contains AutoLISP code to convert 3D solids in a drawing to 2D polylines and hatches in the current space (model or paper). The code gets all objects classified as solids, extracts the coordinates to define 2D polylines, adds hatches using each polyline as the outer loop, and copies properties like color and layer from the original solid. Running the defined "cd" command executes this conversion.

    Original Title

    convert2dsolids.LSP

    Copyright

    © © All Rights Reserved

    Available Formats

    TXT, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document contains AutoLISP code to convert 3D solids in a drawing to 2D polylines and hatches in the current space (model or paper). The code gets all objects classified as solids, extracts the coordinates to define 2D polylines, adds hatches using each polyline as the outer loop, and copies properties like color and layer from the original solid. Running the defined "cd" command executes this conversion.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    26 views1 page

    Convert2dsolids LSP

    Uploaded by

    Aleida Rodríguez
    This document contains AutoLISP code to convert 3D solids in a drawing to 2D polylines and hatches in the current space (model or paper). The code gets all objects classified as solids, extracts the coordinates to define 2D polylines, adds hatches using each polyline as the outer loop, and copies properties like color and layer from the original solid. Running the defined "cd" command executes this conversion.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    of 1

    ;;;Posted by Jeff Mishler

    ;;;forums.autodesk.com - Visual LISP AutoLISP and General Customization


    ;;;01-20-2005
    (defun get_space ()
    (if (= (getvar "cvport") 1)
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
    )
    );; get_space

    (defun convert2dsolids (/ 2dcoords coords count hatch obj pline space ss)
    (and (setq ss (ssget '((0 . "SOLID"))))
    (setq count -1)
    (setq space (get_space))
    (while (< (setq count (1+ count))
    (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss count)))
    (setq coords (vlax-get obj 'coordinates))
    (setq 2dcoords (list (car coords)(cadr coords)))
    (setq coords (cdr (cdr (cdr coords))))
    (setq 2dcoords (append 2dcoords (list (car coords)(cadr coords))))
    (setq coords (cdr (reverse (cdr (cdr (cdr coords))))))
    (setq 2dcoords (append 2dcoords (list (cadr coords)(car coords))))
    (setq coords (reverse coords)) (setq 2dcoords (append 2dcoords (list (car
    coords)(cadr coords))))
    (setq pline (vlax-invoke space 'addlightweightpolyline 2dcoords))
    (vla-put-closed pline :vlax-true)
    (setq hatch (vlax-invoke space 'addhatch acHatchPatternTypePredefined
    "SOLID" :vlax-true))
    (vlax-invoke hatch 'appendouterloop (list pline))
    (vla-put-color pline (vla-get-color obj))
    (vla-put-color hatch (vla-get-color obj))
    (vla-put-layer pline (vla-get-layer obj))
    (vla-put-layer hatch (vla-get-layer obj))
    (vla-delete obj)
    )
    )
    );; convert2dsolids

    (defun c:cd ()
    (convert2dsolids)
    (princ)
    );; cd

    You might also like