(DEFUN c:xr2ins (/) (IF (SETQ thisn (NENTSELP)) (IF (AND (EQ (LENGTH thisn) 4) (EQ (LENGTH (LAST thisn)) 2) (EQ (TYPE (CADR (LAST thisn))) 'ENAME) (SETQ this_xr (ENTGET (CADR (LAST thisn)))) (SETQ thisblkname (ASSOC 2 this_xr)) (SETQ thisblk (TBLSEARCH "BLOCK" (CDR thisblkname))) (EQ (BOOLE 1 4 (CDR (ASSOC 70 thisblk))) 4) ) ;_ end of AND (PROGN (SETQ this_layer (CDR (ASSOC 8 this_xr)) this_inspnt (CDR (ASSOC 10 this_xr)) this_xscale (CDR (ASSOC 41 this_xr)) this_yscale (CDR (ASSOC 42 this_xr)) this_zscale (CDR (ASSOC 43 this_xr)) this_rotation (CDR (ASSOC 50 this_xr)) ) ;_ end of SETQ (IF VLA-GET-PATH NIL (VL-LOAD-COM) ) ;_ end of if (SETQ xrefent (CADR (LAST thisn)) ;main xref xrefent (VLAX-ENAME->VLA-OBJECT xrefent) ) ;_ end of SETQ (IF (VLAX-PROPERTY-AVAILABLE-P xrefent 'Path) (PROGN (SETQ old_texteval (GETVAR "texteval")) (SETVAR "texteval" 1) (SETQ xrefpath (VLA-GET-PATH xrefent)) (COMMAND "-xref" "d" (CDR(ASSOC 2 this_xr))) (SETVAR "texteval" old_texteval) (COMMAND "-layer" "m" (CDR thisblkname) "") (COMMAND "-insert" xrefpath this_inspnt this_xscale this_yscale (* 180 (/ this_rotation PI))) ) ) ;_ end of IF ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of if ) ;_ end of defun ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 nil T nil T) ;*** DO NOT add text below the comment! ***|;