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

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大就是比如某个可能不选直接跳过这样可以不可以修改下

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

点评

评分