[LISP程序]：给大家一个基于tch3.x的超级编辑命令！

zdarc

;;文本编辑

2. 
   
3. [FONT=courier new]
   
4. (defun dxf (n e) (cdr (assoc n e)))
   
5. (defun ddtext (ss / txt)
   
6.   (if (and ss
   
7.            (transws ss 0)
   
8.            (setq txt (txtedit (dxf 1 (entget (ssname ss 0)))))
   
9.       )
   
10.     (while (slb_slb 0) (chslb 1 txt 8 (parea "公共文字")))
    
11.   )
    
12. )
    
13. (defun c:dd (/ ss e qj dt)
    
14.   (_@ld "words")
    
15.   (princ "\n请选取要编辑的文本、尺寸或属性<退出>: ")
    
16.   (if (setq ss (ssget (list (cons 0 "TEXT,MTEXT,INSERT,DIMENSION"))))
    
17.     (progn
    
18.       (setq e  (ssname ss 0)
    
19.             qj (dxf 0 (entget e))
    
20.       )
    
21.       (cond ((= qj "MTEXT") (command "ddedit" e ""))
    
22.             ((= qj "TEXT") (ddtext ss))
    
23.             ((= qj "INSERT") (command "ddatte" e))
    
24.             ((= qj "DIMENSION")
    
25.              (setq dt (getstring "\n新的尺寸值<实际尺寸>:"))
    
26.              (command "dim1" "newtext" dt e "")
    
27.             )
    
28.       )
    
29.     )
    
30.   )
    
31.   (princ)
    
32. )[/FONT]

<br /> [FONT=courier new]<br /> (defun dxf (n e) (cdr (assoc n e)))<br /> (defun ddtext (ss / txt)<br />   (if (and ss<br />            (transws ss 0)<br />            (setq txt (txtedit (dxf 1 (entget (ssname ss 0)))))<br />       )<br />     (while (slb_slb 0) (chslb 1 txt 8 (parea "公共文字")))<br />   )<br /> )<br /> (defun c:dd (/ ss e qj dt)<br />   (_@ld "words")<br />   (princ "\n请选取要编辑的文本、尺寸或属性<退出>: ")<br />   (if (setq ss (ssget (list (cons 0 "TEXT,MTEXT,INSERT,DIMENSION"))))<br />     (progn<br />       (setq e  (ssname ss 0)<br />             qj (dxf 0 (entget e))<br />       )<br />       (cond ((= qj "MTEXT") (command "ddedit" e ""))<br />             ((= qj "TEXT") (ddtext ss))<br />             ((= qj "INSERT") (command "ddatte" e))<br />             ((= qj "DIMENSION")<br />              (setq dt (getstring "\n新的尺寸值<实际尺寸>:"))<br />              (command "dim1" "newtext" dt e "")<br />             )<br />       )<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

nfreebooter

请问这个命名怎么用的，谢谢

mrdchen

有什么用？怎么用？

xnt

有什么功能阿

yqf951039

有什么用？怎么用？

梦断江南

这个程序的功能是 用一个 dd 指令对TEXT,MTEXT,INSERT（实际上是块中的属性）,DIMENSION等进行文本编辑修改。

mrdchen

说说如何用。

unhack

acad自带的ddatte命令也可以啊，很方便的

laoguang

我一直用自带的dd，很方便的

hgyu

怎么用啊！这是什么文本啊！

lhh2002

我去试试看

english

新手上路,还望赐教!
咋用？

7188772

11楼的，说得好

ycjcjjj

怎么自动 加载 到天正中啊?