ZHOUFEN564555 发表于 2019-3-26 22:27:50

提取当前写好的单行文字，增加在已经有的标注后面

各位大师，前辈，跪求一个程序,图中已经有写好的单行文字，提取当前写好的单行文字，增加在已经有的标注后面！类似于把标注和图中的单行文字合并。

1291500406 发表于 2019-3-27 08:56:44

本帖最后由 1291500406 于 2019-3-27 14:42 编辑

(defun C:bb()(setq bbdim (strcat "<>"(cdr (assoc 1 (entget(car(entsel "\n必强提示请选择文字:")))))))(command "dim1" "newtext"bbdim)(princ))

ZHOUFEN564555 发表于 2019-3-27 12:40:46

1291500406 发表于 2019-3-27 08:56
(defun C:bb()(setq bbdim (strcat ""(cdr (assoc 1 (entget(car(entsel "\n必强提示请选择文字:")))))))(c ...

感谢楼上大师,十分谢谢!

ZHOUFEN564555 发表于 2019-4-26 22:30:24

1291500406 发表于 2019-3-27 08:56
(defun C:bb()(setq bbdim (strcat ""(cdr (assoc 1 (entget(car(entsel "\n必强提示请选择文字:")))))))(c ...

你好，可否做到完成上面的应用，删掉原来提取的文字

1291500406 发表于 2019-4-28 13:17:53

ZHOUFEN564555 发表于 2019-4-26 22:30
你好，可否做到完成上面的应用，删掉原来提取的文字
(defun C:bb( / bb bb1)(setq bb(entsel "\n必强提示请选择文字:"))
(setq bb1 (strcat "<>"(cdr (assoc 1 (entget(car bb))))))
(command "erase" bb"")(bb_dimtxt bb1)(princ))
(defun bb_dimtxt (a)(command "dim1" "newtext"a)(princ))

ZHOUFEN564555 发表于 2019-4-28 22:16:57

非常感谢的啊

ZHOUFEN564555 发表于 2019-4-29 12:30:03

出现错误提示：NO fanction definition :BB_dimtxt.

1291500406 发表于 2019-4-29 12:40:06

本帖最后由 1291500406 于 2019-4-29 15:19 编辑

ZHOUFEN564555 发表于 2019-4-29 12:30
出现错误提示：NO fanction definition :BB_dimtxt.NO fanction definition意思是bb_dimtxt
(defun bb_dimtxt (a)(command "dim1" "newtext"a)(princ))   未定义

换个顺序bb_dimtxt，严格顺序是先定义后调用

(defun bb_dimtxt (a)(command "dim1" "newtext"a)(princ))
(defun C:bb( / bb bb1)(setq bb(entsel "\n必强提示请选择文字:"))
(setq bb1 (strcat "<>"(cdr (assoc 1 (entget(car bb))))))
(command "erase" bb"")(bb_dimtxt bb1)(princ))

ZHOUFEN564555 发表于 2019-5-7 22:53:00

非常感谢的啊
页: [1]
查看完整版本: 提取当前写好的单行文字，增加在已经有的标注后面