Obj )) unnamed_block ))) ( setq obj ( append obj blk )) ( if obj ( progn (setq tmp_blk (vla-insertblock csp (vlax-3d-point '(0. ( vla-get-insertionpoint x )( vla-get-name x ) ( vla-get-xscalefactor x )( vla-get-yscalefactor x ) ( vla-get-zscalefactor x )( vla-get-rotation x )) ( setq blk ( cons x blk ))) ( t ( setq obj ( cons x obj ))))) _foreach ( setq lay ( vla-item lays ( getvar "CLAYER" ))) ( if ( = ( vla-get-lock lay ) :vlax-true )( progn ( vla-put-lock lay :vlax-false ) ( setq loc ( cons lay loc )))) ( if obj ( progn ( vla-copyobjects ( vla-get-activedocument ( vlax-get-acad-object )) ( vlax-make-variant ( vlax-safearray-fill ( vlax-make-safearray vlax-vbobject ( cons 0 ( 1- ( length obj )))) ( setq oname ( strcase ( vla-get-objectname x ))) ( cond (( member oname ' ( "ACDBVIEWPORT" "ACDBATTRIBUTEDEFINITION" "ACDBMTEXT" "ACDBTEXT" )) nil ) (( = oname "ACDBBLOCKREFERENCE" ) ( vla-InsertBlock unnamed_block 0.)) "*U")) ( setq unnamed_block ( vla-add ( vla-get-blocks adoc )( vlax-3d-point inspt ) "*U" )) ( foreach x sel
Uc ( polar Uc ( dtr 90.0 ) ( * 0.5 Y_Len ))) ( if ( and ( > ( car pt ) ( car Lc ))( ( cadr pt ) ( cadr Lc ))( vla-object ( vl-remove-if 'listp ( mapcar 'cadr sel )))) ( setq csp ( vla-objectidtoobject adoc ( vla-get-ownerid ( car sel )))) (setq unnamed_block (vla-add (vla-get-blocks adoc)(vlax-3d-point '(0. This is like the UNION command but for 2D closed areas. This routine is helpful if you have overlapping objects that form a closed area and you would like to combine them into one overall closed object.
0 kommentar(er)
