【转帖】我编的cad 文字处理小软件,请指导交流
 

我编的cad 文字处理小软件,请指导交流
www.dimcax.com
我编的cad 文字处理小软件,请指导交流
;;;;error operater for chain program
(defun txt_wrong (msg)
(defun *error* (s)
(if old_error (setq *error* old_error))
(princ)
)
(exit)
)
(defun c:txt_copy()
(setq door nil)
(princ "请选择第一个文字对象")
(while (not door)
(setq ent1 (entsel))
(if (= nil ent1)(txt_wrong nil)
(if (= "text" (cdr (assoc 0 (entget (car ent1 )))))
(setq door t)(princ "所选非文字,请再选!")))
)
(setq lib1 (entget (car ent1)))
(setq txt1 (cdr (assoc 1 lib1)))
(princ "请选择下一个文字对象")
(while t
(setq door nil)
(while (not door)
(setq ent2 (entsel))
(if (= nil ent2)(txt_wrong nil)
(if (= "text" (cdr (assoc 0 (entget (car ent2 )))))
(setq door t)(princ "所选非文字,请再选!")))
)
(setq txt2 (cdr (assoc 1 (entget (car ent2 )))))
(setq txt1 (strcat txt1 txt2))
(setq lib1
(subst (cons 1 txt1)
(assoc 1 lib1)
lib1
)
)
(entmod lib1)
(setq lib1 (entget (car ent1)))
(princ)
)
)

怎么没人顶,????????

怎么用撒

编的不错,其功能是将所选的多个字符串组成一个字符串

连接单行文字的程序,用起来还可以,不错.

怎么用安 我确实想顶 但是我连怎么用都不知道 lz说一下安??

怎么用