[LISP程序]：cad小工具

lclac · 发表于 2004-1-27 21:49:53

CAD12以后的版本多有把字符分开的功能
如果有认真去看ACAD菜单还可以把此功能
直接放到边菜单上

zhouxj · 发表于 2004-2-15 14:47:50

还行，很好用的小工具

chenzwei · 发表于 2004-2-25 00:00:17

是的
挺好用的
我下了

tc405003 · 发表于 2004-3-18 21:53:25

我也给大家上传一个，多交流一下吧
(defun C:th(/ ent1 el1 e1 txt1 ent2 el2 e2 txt2 txt tst ent)
(setvar "CMDECHO" 0)
(setq tst T)
(setq ent1 (car (entsel "\nPick first text: ")))
(if (/= ent1 nil)
  (progn
(setq el1 (entget ent1))
(setq e1 (cdr (assoc -1 el1)))
(if (= "TEXT" (cdr (assoc 0 el1)))
   (progn
      (while tst
      (setq txt1 (cdr (assoc 1 (entget e1))))
      (setq ent2 (car (entsel "\nPick next Text: ")))
      (if (/= ent2 nil)
         (progn
            (setq el2 (entget ent2))
            (setq e2 (cdr (assoc -1 el2)))
            (if (= "TEXT" (cdr (assoc 0 el2)))
            (progn
               (setq txt2 (cdr (assoc 1 el2)))
                  (command "erase" e2 "")
                  (setq txt (strcat txt1 txt2))
                  (update 1 txt el1)
            )
            (princ "\nNext object is not a TEXT !")
            )
         )
         (setq tst nil)
      )
      )
   )
   (princ "\nFirst object is not a TEXT !")
)
  )
)
(redraw)
(princ)
)

ywx0576 · 发表于 2004-3-19 19:18:15

很不错，多谢各位！

hmxiong · 发表于 2004-3-25 11:13:08

应该作用不是很大吧
cad里面很少用到

yfywk · 发表于 2004-3-26 17:24:24

cad的et扩展工具就可以实现各位以上的问题

zwg0831 · 发表于 2004-3-27 12:25:34

不错挺好用的呀

maillq992 · 发表于 2004-3-27 13:31:37

试试看，

xjxing · 发表于 2004-3-28 21:33:03

2004下能用吗？最好说明适用版本。

timnis · 发表于 2004-3-29 12:14:51

不错,比ET的要好.

密密麻麻 · 发表于 2004-3-29 17:07:57

lisp很难做吗？

tomtom · 发表于 2004-3-30 19:12:38

不难

随心所欲 · 发表于 2004-4-1 11:05:25

好象用不起哦

cobra001 · 发表于 2004-4-1 14:02:20

谢了

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