8/24/2023 0 Comments Download wipeout cena) ) ) ) ) ( setq p_lst ( cddr p_lst )) ) ) ) ( trans ( cdar p_lst ) ent 0 ) ) ( * dist ( setq n ( 1+ n ))) ) ) 0 Lst ( cons ( trans ( vlax-curve-getPointAtDist ( vlax-curve-getEndParam obj ) ) ) ( vlax-curve-getDistAtPoint ( trans ( cdaddr p_lst ) ent 0 ) ) ( vlax-curve-getDistAtParam ) ) ( if ( /= 0 ( cdadr p_lst )) ( progn ( setq prec ( 1+ ( fix ( * 25 ( sqrt ( abs ( cdadr p_lst ))))))ĭist ( / ( - ( if ( cdaddr p_lst ) ( vlax-curve-getDistAtPoint ( cons ( append ( cdr ( assoc 10 p_lst )) ( list ( cdr ( assoc 38 ( entget ent )))) ) ![]() ) ) ) ) ( T ( setq p_lst ( vl-remove-if-not ' ( lambda ( x ) ( or ( = ( car x ) 10 ) ( = ( car x ) 42 ) ) ) ( entget ent ) ) ) ( while p_lst ( cons ( trans ( vlax-curve-getPointAtDist obj ( * dist ( setq n ( 1+ n )))) 0 ( vlax-get obj 'Normal ) ) ~Greg OB2WO (gile) -Gilles Chanteau- 10/03/07 Creates a "Wipeout" from an object (circle, ellipse, or polyline with arcs) Works whatever the current ucs and object OCS ( defun c:ob2wo ( / ent lst nor ) ( vl-load-com ) ( if ( and ( setq ent ( car ( entsel ))) ( member ( cdr ( assoc 0 ( entget ent ))) ' ( "CIRCLE" "ELLIPSE" "LWPOLYLINE" ) ) ( setq lst ( ent2ptlst ent )) ( setq nor ( cdr ( assoc 210 ( entget ent )))) ) ( progn ( vla-StartundoMark ( vla-get-ActiveDocument ( vlax-get-acad-object )) ) ( makeWipeout lst nor ) ( initget "Yes No" ) ( if ( = ( getkword "\nDelete source object? : " ) "Yes" ) ( entdel ent ) ) ( vla-EndundoMark ( vla-get-ActiveDocument ( vlax-get-acad-object )) ) ) ) ) ENT2PTLST Returns the vertices list of the polygon figuring the curve object Coordinates defined in OCS ( defun ent2ptlst (ent / obj dist n lst p_lst prec ) ( vl-load-com ) ( if ( = ( type ent ) 'ENAME ) ( setq obj ( vlax-ename->vla-object ent )) ) ( cond (( member ( cdr ( assoc 0 ( entget ent ))) ' ( "CIRCLE" "ELLIPSE" )) ( setq dist ( / ( vlax-curve-getDistAtParam Thanks to Giles Chanteau for his routines and for his presence on the various forums always willing to ask and answer question in a pleasant manner, Thanks again Giles Shown below, The wipeouts have been created and the original selected object remains. The above picture shows a Hatched area with some curved closed shapes. Hatch with various shapes covering the hatch so make sure that the layer you want it on is set current, By default, “No” is selected and the object will remain and the wipeout that is created is placed on the current layer.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |