如何在文字前面直接加φ

晓雨

谢谢龙版主

BDYCAD

看了龙龙仔版10的代码, 我花了几分钟改善了一下. 呵呵 ; BDYCAD 改善
(defun C:TTT (/ OBJ RUN-IF RUN-WHILE SEL)
(SETQ run-while 0)
(SETVAR "CMDECHO" 0)
(while run-while
(setq SEL (entsel "\rSelect Text:"))
(IF SEL
(PROGN (SETQ OBJ (vlax-ename->vla-object (car SEL)) run-if (vla-get-textprefix OBJ))
(if (eq run-if "%%c")
(vla-put-textprefix OBJ "")
(vla-put-textprefix OBJ "%%c")))
(setq run-while nil)
)
)
(SETVAR "CMDECHO"1)
(princ)
)

龙龙仔

textprefix只对DIM有效,再想想要用在看起来像TEXT的物件!!

BDYCAD

改好了. 不过有些长. 你可以简化吗? (defun C:TTT (/ OBJ RUN-IF RUN-WHILE SEL)
(SETQ run-while 0)
(SETVAR "CMDECHO" 0)
(while run-while
(setq SEL (entsel "\rSelect Text:"))
(IF SEL
(PROGN
(SETQ OBJ (vlax-ename->vla-object (car SEL))
objn (vla-get-objectname OBJ))
(if (wcmatch objn "*Text,ATT*,*Dim*")
(if(wcmatch objn "*Dim*")
(progn
(setq run-if (vla-get-textprefix OBJ))
(if (eq run-if "%%c")(vla-put-textprefix OBJ "") (vla-put-textprefix OBJ "%%c"))
)
(progn
(setq run-if (substr(vla-get-textstring OBJ) 1 3))
(if (eq run-if "%%c")
(vla-put-textstring OBJ (substr(vla-get-textstring OBJ) 4 (strlen (vla-get-textstring OBJ))))
(vla-put-textstring OBJ (strcat "%%c"(vla-get-textstring OBJ))))
)
)))
(setq run-while nil)
)
)
(SETvar "CMDECHO"1)
(princ)
)

无痕

2. (defun c:pretext (/ ss i e o)
3.    (setq ss (ssget '((0 . "*TEXT,DIM*,ATT*")))
4.   i -1)
5.    (while (setq e (ssname ss (setq i (1+ i))))
6.        (setq o (vlax-ename->vla-object e))
7.        (if (vlax-property-available-p o 'textprefix)
8.            (vla-put-textprefix o "%%c")
9.            (vla-put-textstring o (strcat "%%c" (vla-get-textstring o)))
10.        )
11.    )(princ)
12. )

(defun c:pretext (/ ss i e o)    (setq ss (ssget '((0 . "*TEXT,DIM*,ATT*")))   i -1)    (while (setq e (ssname ss (setq i (1+ i))))        (setq o (vlax-ename->vla-object e))        (if (vlax-property-available-p o 'textprefix)            (vla-put-textprefix o "%%c")            (vla-put-textstring o (strcat "%%c" (vla-get-textstring o)))        )    )(princ) )

龙龙仔

;;把它改为函数支持各种[前]加减文字(LAI-ABCDEF)=批量改[各种]名称
;;再加个参数改为各种[前/后]加减文字(ABCDEF%%D)---功能效重要(简化看需要)
(if (eq (STRCASE run-if T) "%%c") ;注意:大小写(%%c=%%C)
(vla-put-textstring
OBJ
(substr (vla-get-textstring OBJ)
4
;;(strlen (vla-get-textstring OBJ))
)
)
(vla-put-textstring
OBJ
(strcat "%%c" (vla-get-textstring OBJ))
)
)

hjj_huang

%%C