;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: ;;; Edited: ;;; (DEFUN C:MLTHT () (VL-LOAD-COM) (IF ureal nil (LOAD "ureal" "\nFile UREAL.LSP not loaded! ") ) ;_ end of if ;;; (IF dimscl ;;; nil ;;; (LOAD "dimscl" "\nFile DIMSCL.LSP not loaded! ") ;;; ) ;_ end of if ;;; (dimscl) (SETQ new-mlt-ht (ureal 1 "" "New MLeader height (full scale print height)" (IF new-mlt-ht new-mlt-ht 0.11 ) ;_ end of IF ) ;_ end of ukword ) ;_ end of SETQ ;;; (SETQ new-mlt-wid ;;; (ureal ;;; 1 ;;; "Unchanged" ;;; "New mltibute width factor, or nchanged" ;;; (IF new-mlt-wid ;;; new-mlt-wid ;;; 1.0 ;;; ) ;_ end of IF ;;; ) ;_ end of ukword ;;; ) ;_ end of SETQ (SETQ selected-mlt (NENTSEL)) (IF (AND selected-mlt (EQ (CDR (ASSOC 0 (ENTGET (CAR selected-mlt)))) "MULTILEADER") ) ;_ end of AND (PROGN (SETQ mltobj (VLAX-ENAME->VLA-OBJECT (CAR selected-mlt))) (VLAX-PUT-PROPERTY mltobj 'TextHeight new-mlt-ht) (VLAX-PUT-PROPERTY mltobj 'ArrowheadSize (* (/ new-mlt-ht 0.110) (VLAX-GET-PROPERTY mltobj 'ArrowheadSize))) (VLAX-PUT-PROPERTY mltobj 'DoglegLength (* (/ new-mlt-ht 0.110) (VLAX-GET-PROPERTY mltobj 'DoglegLength))) (VLAX-PUT-PROPERTY mltobj 'LandingGap (* (/ new-mlt-ht 0.110) (VLAX-GET-PROPERTY mltobj 'LandingGap))) (VLAX-PUT-PROPERTY mltobj 'TextWidth (* (/ new-mlt-ht 0.110) (VLAX-GET-PROPERTY mltobj 'TextWidth))) ) ;_ end of PROGN (PROGN (PRINC "\nNO MULTILEADER WAS SELECTED! ") (PRINC) ) ;_ end of PROGN ) ;_ end of IF (PRINC) ) ;_ end of DEFUN (DEFUN C:SHOWMLTH () (VL-LOAD-COM) ;;; (IF dimscl ;;; nil ;;; (LOAD "dimscl" "\nFile DIMSCL.LSP not loaded! ") ;;; ) ;_ end of if ;;; (dimscl) (SETQ selected-mlt (NENTSEL)) (IF (AND selected-mlt (EQ (CDR (ASSOC 0 (ENTGET (CAR selected-mlt)))) "MULTILEADER") ) ;_ end of AND (PROGN (SETQ mltobj (VLAX-ENAME->VLA-OBJECT (CAR selected-mlt))) (SETQ this-mlt-ht (VLAX-GET-PROPERTY mltobj 'TextHeight)) (PRINC (STRCAT "\n\n\t\tMultileader value:......: " (VLAX-GET-PROPERTY mltobj 'TextString) ) ;_ end of STRCAT ) ;_ end of PRINC (PRINC (STRCAT "\n\t\tMultileader height......: " (RTOS this-mlt-ht 2 3) ) ;_ end of STRCAT ) ;_ end of PRINC ;;; (PRINC (STRCAT "\n\t\tmltibute width factor: " ;;; (RTOS this-mlt-wid 2 3) ;;; ) ;_ end of STRCAT ;;; ) ;_ end of PRINC (PRINC) ) ;_ end of PROGN (PROGN (PRINC "\nNO MULTILEADER WAS SELECTED! ") (PRINC) ) ;_ end of PROGN ) ;_ end of IF (PRINC) ) ;_ end of DEFUN (PRINC) ;|«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! ***|;