[编程交流] 无法修改MacAlign Mtex

(defun c:pipesize (); / sset item ctr check)
(if (= pipesize "1/2") 
(setq pipesize (strcat "\\A;{\\H0.7x;\\S1#2;}" (chr 34)))
)
(if (= pipesize "3/4") 
(setq pipesize (strcat "\\A;{\\H0.7x;\\S3#4;}" (chr 34)))
)
(if (= pipesize "1/2") 
(setq pipesize (strcat "\\A;{\\H0.7x;\\S1#2;}" (chr 34)))
)
(if (= pipesize "1") 
(setq pipesize (strcat "1" (chr 34)))
)
(if (= pipesize "1 1/4") 
(setq pipesize (strcat "\\A1;1{\\H0.7x;\\S1#4;}" (chr 34)))
)
(if (= pipesize "1 1/2") 
(setq pipesize (strcat "\\A1;1{\\H0.7x;\\S1#2;}" (chr 34)))
)
(if (= pipesize "2") 
(setq pipesize (strcat "2" (chr 34)))
)
(if (= pipesize "2 1/2") 
(setq pipesize (strcat "\\A2;1{\\H0.7x;\\S1#2;}" (chr 34)))
)
(if (= pipesize "3") 
(setq pipesize (strcat "3" (chr 34)))
)
(if (= pipesize "2") 
(setq pipesize (strcat "4" (chr 34)))
)
;(setq pipesize "\\A;{\\H0.7x;\\S3#4;}")
;(setq pipesize "1")
;load the visual lisp extensions
(vl-load-com)
;check for selection
;make the remove layers if they don't exist
(setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
(setq theLayers (vla-get-layers acadDocument))
(setq newLayer (vla-add theLayers "f-text"))
;done makeing new layers
(princ)
;get the selection set
(setq pt (osnap (getpoint "Select Pipe and Text location") "near"))
(while (NOT (NULL PT))
(setq sset (ssget pt))
;set up the counter
(setq ctr 0)
;count the number of entities and loop
(setq item (ssname sset ctr))
;convert to vl object
(setq item (vlax-ename->vla-object item))
;check to see what type of entity it is.
(if (= "AcDbLine" (vla-get-ObjectName item))
;change the lines layer
(setq ang (vlax-get-property item 'Angle))
);if
(if (= "AcDbLine" (vla-get-ObjectName item))
;change the lines layer
(setq ang (vlax-get-property item 'Angle))
);if
;increment the counter
(setq dist (* 1 scalem))
(setq ang2 (+ ang (/ pi 2)))
(setq pt2 (polar pt ang2 dist))
(setq ang (rtd ang))
(princ "\n")
(princ ang)
(cond
((and (>= ang 45) (< ang 135))
(setq ang 90))
((and (>= ang 135) (< ang 225))
(setq ang 0))
((and (>= ang 225) (< ang 315))
(setq ang 90))
((or (>= ang 315) (< ang 45))
(setq ang 0))
)
(setq ang2 (dtr ang))
(setq ang2 (+ ang2 (/ pi 2)))
(setq pt2 (polar pt ang2 dist))
(command "-mtext" pt2 "j" "mc" "R" ang "w"  "90" pipesize "")
(princ)
(setq pt (osnap (getpoint "Select Pipe and Text location") "near"))
)
);defun