如何在文字前面直接加φ

sqqr

求教：如何在文字及尺寸前面直接加φ？

meflying

文字前：直接在文字前面写φ


尺寸：在前缀里加φ


两者都需要选择支持φ的字体才可以显示

sqqr

不好意思，是我没表达清楚。



我是想能不能通过编程序，然后关联一个工具按钮，


选中文字或是尺寸之后，即可自动加上φ。

hkzwsy

好像是在文字前面加 "%%C"

meflying

(vla-put-textprefix (vlax-ename->vla-object (car (entsel))) "%%c")

sqqr

谢谢飞哥！！！



可是在一个单行文本的数字前面该按钮并不起效果呀，


还望飞哥多多指教！我好像见英科宇的机械工程师有这一功能。

龙龙仔

2. (defun C:TT (/ STR OBJ)
3.    (setq
4.        STR  (strcat  "%%c"
5.     (vla-get-textstring
6.        (setq
7.            OBJ  (vlax-ename->vla-object (car (entsel "\n选TEXT:")))
8.        )
9.     )
10.   )
11.    )
12.    (vla-put-textstring OBJ STR)
13.    (princ)
14. )

(defun C:TT (/ STR OBJ)    (setq        STR  (strcat  "%%c"     (vla-get-textstring        (setq            OBJ  (vlax-ename->vla-object (car (entsel "\n选TEXT:")))        )     )   )    )    (vla-put-textstring OBJ STR)    (princ) )

sqqr

龙哥的程序能否与飞哥的复合在一起，这样，点击文本数字or尺寸数字均可添加φ


也许有难度

晓雨

但我要在尺寸数值前面加呢,怎么办

龙龙仔

2. ;;所有文字加%%c
3. ;;BY 龙龙仔(LUCAS)
4. ;;临时写的,最好再加个反功能....
5. (defun C:TT (/ SEL ENT STR OBJ)
6.    (if (setq SEL (nentsel "\nSelect Text:"))
7.        (progn
8.            (setq ENT (car SEL))
9.            (if (wcmatch (cdr (assoc 0 (entget ENT))) "*TEXT,ATT*")
10.   (progn
11.      (setq  STR (strcat "%%c"
12.              (vla-get-textstring
13.                  (setq
14.         OBJ (vlax-ename->vla-object
15.                    ENT
16.                )
17.                  )
18.              )
19.            )
20.      )
21.      (vla-put-textstring OBJ STR)
22.      (if (> (length SEL) 2)
23.          ;;(command "_.REGEN")
24.          (entupd (last (last SEL)))
25.      )
26.   )
27.            )
28.        )
29.    )
30.    (princ)
31. )

;;所有文字加%%c ;;BY 龙龙仔(LUCAS) ;;临时写的,最好再加个反功能.... (defun C:TT (/ SEL ENT STR OBJ)    (if (setq SEL (nentsel "\nSelect Text:"))        (progn            (setq ENT (car SEL))            (if (wcmatch (cdr (assoc 0 (entget ENT))) "*TEXT,ATT*")   (progn      (setq  STR (strcat "%%c"              (vla-get-textstring                  (setq         OBJ (vlax-ename->vla-object                    ENT                )                  )              )            )      )      (vla-put-textstring OBJ STR)      (if (> (length SEL) 2)          ;;(command "_.REGEN")          (entupd (last (last SEL)))      )   )            )        )    )    (princ) )