;;;replaces a specific MTEXT starting with the string below with a block named scrnote.dwg ;;;The block's insertion point is extracted from the insertion point of the MTEXT. (DEFUN c:replmnote (/ mtext_ss scrnote mtext_ss cnt this_mtext ins_pt) (SETQ mtext_ss (SSGET "x" (LIST (CONS 0 "MTEXT")))) (SETQ scrnote (FINDFILE "scrnote.dwg")) (IF (AND mtext_ss scrnote) (PROGN (SETQ cnt 0 this_mtext NIL ins_pt NIL ) ;_ end of setq (WHILE (< cnt (SSLENGTH mtext_ss)) (SETQ this_mtext (ENTGET (SSNAME mtext_ss cnt))) (IF (AND (ASSOC 3 this_mtext) (WCMATCH (CDR (ASSOC 3 this_mtext)) "2.) PIPE SEPARATION*") ) ;_ end of and (PROGN (SETQ ins_pt (CDR (ASSOC 10 this_mtext))) (SETQ cnt (SSLENGTH mtext_ss)) ) ;_ end of PROGN ) ;_ end of if (SETQ cnt (1+ cnt)) ) ;_ end of while (IF ins_pt (COMMAND "-insert" scrnote ins_pt 1 1 0) ) ;_ end of IF (ENTDEL (cdr (assoc -1 this_mtext))) ) ;_ end of progn ) ;_ end of if (PRINC) ) ;_ end of defun ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T) ;*** DO NOT add text below the comment! ***|;