664571221 发表于 2022-4-12 15:30:34

各位大神看看这样一个文字功能怎么弄

输入TT提示拾取H,拾取800后，继续提示拾取高度，拾取500后，继续提示拾取直径，拾取030后   形成这样的文字H=800CM,G=500你好，D=030我好，以此类推   如果某个提示后回车未拾取则不形成对于的比如提示高度未拾取500继续回车提示下一个 形成 H=800CM,D=030我好

ZZXXQQ 发表于 2022-4-12 21:30:40

本帖最后由 ZZXXQQ 于 2022-4-15 00:02 编辑

(defun c:tt ( / txt1 txt2 txt3 txt)
(setq txt "")
(setq s1 (entsel "\n选择H: "))
(setq ent (entget(car s1)))
(if (wcmatch (cdr(assoc 0 ent)) "*TEXT")
(setq txt1 (cdr(assoc 1 ent)))
)
(setq s2 (entsel "\n选择高度: "))
(setq ent2 (entget(car s2)))
(if (wcmatch (cdr(assoc 0 ent2)) "*TEXT")
(setq txt2 (cdr(assoc 1 ent2)))
)
(setq s3 (entsel "\n选择直径: "))
(setq ent3 (entget(car s3)))
(if (wcmatch (cdr(assoc 0 ent3)) "*TEXT")
(setq txt3 (cdr(assoc 1 ent3)))
)
(if txt1 (setq txt (strcat txt "H=" txt1 " cm")))
(if txt2 (setq txt (strcat txt ",G=" txt2 "你好")))
(if txt3 (setq txt (strcat txt ",D=" txt3 "我好")))
txt
)

664571221 发表于 2022-4-12 20:07:17

各位大神帮忙看下，我自己先顶贴一下

664571221 发表于 2022-4-13 08:29:38

ZZXXQQ 发表于 2022-4-12 21:30
(defun c:tt ( txt1 txt2 txt3 txt)
(setq txt "")
(setq s1 (entsel "\n选择H: "))


谢谢Z大，非常感谢

664571221 发表于 2022-4-13 08:47:28

ZZXXQQ 发表于 2022-4-12 21:30
(defun c:tt ( txt1 txt2 txt3 txt)
(setq txt "")
(setq s1 (entsel "\n选择H: "))


; 错误: 参数太少   你好z大提示这个

78946299 发表于 2022-4-13 21:38:20

ZZXXQQ 发表于 2022-4-12 21:30
(defun c:tt ( txt1 txt2 txt3 txt)
(setq txt "")
(setq s1 (entsel "\n选择H: "))


664571221 发表于 2022-4-14 08:39:40

78946299 发表于 2022-4-13 21:38


你可以运行？？？

ZZXXQQ 发表于 2022-4-15 00:04:20

三楼已经更改。再试试看。

999999 发表于 2022-4-16 16:31:41

664571221 发表于 2022-4-18 15:21:47

ZZXXQQ 发表于 2022-4-12 21:30
(defun c:tt ( / txt1 txt2 txt3 txt)
(setq txt "")
(setq s1 (entsel "\n选择H: "))


Z大就是比如某个可能不选直接跳过这样可以不可以修改下
页: [1]
查看完整版本: 各位大神看看这样一个文字功能怎么弄