[编程交流] 到多行文字反应器的线路距离

(vl-load-com)    ;Loads ActiveX
    ;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;
    ;          LINE PREDEFINED          ;
    ;                        This Function predefines a line by its object handle/ObjID         ;
    ;                     ;
    ;                     ;
    ;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;
(defun C:line-predefined ()  ;Defines Predefined Line
 (setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
    ; Set Equal AcadDocument to Active Document in Acad
 (setq mspace (vla-get-modelspace acadDocument))
    ; Set Equal MSpace to Mspace in AcadDocument
 (setq ename-line (handent "10BE")) ; Set Equal Ename-line to Entity Name Of Handle "10BE"
 (setq vlaobject-line (vlax-ename->vla-object ename-line))
    ; Set Equal Vlaobject-line to VLA Object of Ename-line
 (setq ename-mtext (handent "10D1")) ; Set Equal Ename-mtext to Entity Name Of Handle "10D1"
 (setq vlaobject-mtext (vlax-ename->vla-object ename-mtext))
    ; Set Equal Vlaobject-mtext to VLA Object of Ename-mtext
 (setq lineReactor
 (vlr-object-reactor
   (list vlaobject-line)
   "Line Reactor"
   '((:vlr-modified . print-length))
 )
 )     ; Set Equal lineReactor to vla-object-reactor for vla-object-line that executes print-length 
 (princ)    ; Exit Quietly
)     ;defun
    ;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;
    ;          PRINT LENGTH TO MTEXT CONTENTS        ;
    ;                        This Function prints the length of a line predefined by its object handle/ObjID       ;
    ;         To the contents of a predefined Mtext Object        ;
    ;                     ;
    ;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;
(defun print-length (notifier-object reactor-object parameter-list)
 (If
   (cond ((vlax-property-available-p vlaobject-mtext "Contents")
   (vlax-put-property
     vlaobject-mtext
     (vlax-property-available-p notifier-object "Length")
   )
  )
 
   ((vlax-property-available-p notifier-object "Length")
    ; Checks if property "Length" of notifier-object (vlaobject-line) is avaible to edit 
     (vl-string-subst "ReplaceMe" "Ben" "")
   ) 
   )     ;cond
 )
 
 (princ)    ; Exit Quietly 
)     ;defun
(princ)     ; Exit Quietly