[分享]：一个简单的修改标注内容的程序

zhynt

这是代码：

2. 
   
3. ;;;
   
4. ;;; 功能 : 修改标注内容(作者：zhynt－张越)
   
5. ;;;
   
6. (setq txt1 "3000");标注的却省值
   
7. (defun editdim ()         ;修改
   
8.    (princ "\n选择需修改的标注 :")
   
9.    (setq p (ssget))
   
10.    (command "dimedit" "n" dim2 "p" "")
    
11.    (setvar "cmdecho" 1)
    
12. )
    
13. (defun editdimr ()          ;还原
    
14.    (princ "\n选择需修改的标注 :")
    
15.    (setq p (ssget))
    
16.    (command "dimedit" "n" "" "p" "")
    
17.    (setvar "cmdecho" 1)
    
18. )
    
19. (defun editdimh ()
    
20.    (princ "\n选择需修改的标注 :")
    
21.    (setq p (ssget))
    
22.    (command "dimedit" "h" "p" "")
    
23.    (setvar "cmdecho" 1)
    
24. )
    
25. (defun c:de (/ dim1 p dim2)
    
26.         (setvar "cmdecho" 0)
    
27.         (princ "\n请输入标注字符,允许汉字和空格。(H->复位)(空格->还原)(空回车->缺省值)<")
    
28.         (princ txt1)
    
29.         (setq dim1 (getstring T ">:"))
    
30.         (cond
    
31.               ((= dim1 " ")(editdimr))
    
32.               ((= dim1 "")(setq dim2 txt1)(editdim))
    
33.               ((= dim1 "H")(editdimh))
    
34.               ((setq txt1 dim1)(setq dim2 dim1)(editdim))
    
35.         )   
    
36. 
    
37. )
    

<br /> ;;;<br /> ;;; 功能 : 修改标注内容(作者：zhynt－张越)<br /> ;;;<br /> (setq txt1 "3000");标注的却省值<br /> (defun editdim ()         ;修改<br />    (princ "\n选择需修改的标注 :")<br />    (setq p (ssget))<br />    (command "dimedit" "n" dim2 "p" "") <br />    (setvar "cmdecho" 1)<br /> )<br /> (defun editdimr ()          ;还原<br />    (princ "\n选择需修改的标注 :")<br />    (setq p (ssget))<br />    (command "dimedit" "n" "" "p" "") <br />    (setvar "cmdecho" 1)<br /> )<br /> (defun editdimh ()<br />    (princ "\n选择需修改的标注 :")<br />    (setq p (ssget))<br />    (command "dimedit" "h" "p" "") <br />    (setvar "cmdecho" 1)<br /> )<br /> (defun c:de (/ dim1 p dim2)<br />         (setvar "cmdecho" 0)<br />         (princ "\n请输入标注字符,允许汉字和空格。(H->复位)(空格->还原)(空回车->缺省值)<")<br />         (princ txt1)<br />         (setq dim1 (getstring T ">:"))<br />         (cond<br />               ((= dim1 " ")(editdimr))<br />               ((= dim1 "")(setq dim2 txt1)(editdim))<br />               ((= dim1 "H")(editdimh))<br />               ((setq txt1 dim1)(setq dim2 dim1)(editdim))<br />         )    <br /> <br /> )<br />

用de命令执行程序。

aeo

有必要这么复杂吗

2. 
   
3. (defun c:dt (/ ww w)
   
4.   (if (setq ww (ssget '((0 . "DIMENSION")) ))(progn
   
5.   (setq w (getstring "new"))
   
6.   (command "dim1" "_newtext" w ww "")
   
7. )))
   

<br /> (defun c:dt (/ ww w)<br />   (if (setq ww (ssget '((0 . "DIMENSION")) ))(progn<br />   (setq w (getstring "new"))<br />   (command "dim1" "_newtext" w ww "")<br /> )))<br />

如果问new时,回答空的话,标值就回到原来的值.

至于文字复位

2. 
   
3. (defun c:dh()(command "_dim1""_hometext"))
   

<br /> (defun c:dh()(command "_dim1""_hometext"))<br />

cxx

其实用ACAD自带的命令dimedit就已经很方便了。

aeo

要快速画图的话,毕竟用自带的命令要慢一点,还要选菜单.

zhynt

啊，原来还可以这样啊，不过我这样作的目的是用一个命令就可以
完成标注文字的修改、还原和复位，还能记住最后输入的值。

dim、dim1一个快被遗忘的东东。呵呵。

1. 
   
2. DIM 和 DIM1 启动标注模式，在标注模式可以使用 AutoCAD 早期
   
3. 版本的标注子命令。（提供 DIM 和 DIM1 仅为了与早期版本兼
   
4. 容。）使用 DIM 命令可以在使用标注命令后仍保持标注模式。如
   
5. 果使用 DIM1 命令，则在执行一个标注命令后立即返回命令提示。
   
6. 
   
7. 
   
8. 命令行：  dim 或 dim1
   
9. 
   
10. 标注:输入标注模式命令
    
11. 
    
12. “标注”提示表示正处于标注模式。在标注模式下，可使用一组专
    
13. 用的标注命令来代替大多数标注命令。要编辑标注模式，请输入
    
14. e 或 exit， 或按 ESC 键。
    
15. 
    
16. 标注模式命令
    
17. 以下命令在 DIM 提示下可用。
    
18. 命令         说明
    
19. EXIT         退出标注模式，并返回命令提示。也可以按 ESC 键退
    
20. 出标注模式。
    
21. REDRAW         重画当前视口。
    
22. 
    
23. STYLE         修改当前文字样式。
    
24. UNDO         或 U 删除最近创建的标注对象，并且取消所有新的标
    
25. 注系统变量设置 退出标注模式时，UNDO 放弃整个标注任务的效
    
26. 果。
    
27. 
    
28. 下表显示了与其他标注模式命令等价的 AutoCAD 命令。关于这些
    
29. 标注模式命令的详细信息，请参见等价的 AutoCAD 命令。  与标
    
30. 注模式命令等价的命令
    
31. 
    
32. 标注模式命令               等价的 AutoCAD命令
    
33. ALIGNED                         DIMALIGNED
    
34. ANGULAR                         DIMANGULAR
    
35. BASELINE                         DIMBASELINE
    
36. CENTER（圆心）                DIMCENTER
    
37. CONTINUE                         DIMCONTINUE
    
38. DIAMETER                        DIMDIAMETER
    
39. HOMETEXT                        DIMEDIT  默认
    
40. HORIZONTAL                 DIMLINEAR 水平
    
41. LEADER                         LEADER
    
42. NEWTEXT                         DIMEDIT 新建
    
43. OBLIQUE                        DIMEDIT 倾斜
    
44. ORDINATE                         DIMORDINATE
    
45. OVERRIDE                         DIMOVERRIDE
    
46. RADIUS                         DIMRADIUS
    
47. RESTORE                         -DIMSTYLE恢复
    
48. ROTATED                         DIMLINEAR 旋转
    
49. SAVE                         -DIMSTYLE保存
    
50. STATUS                         -+DIMSTYLE 状态
    
51. TEDIT                         DIMTEDIT
    
52. TROTATE                         DIMEDIT旋转
    
53. UPDATE                         -DIMSTYLE应用
    
54. VARIABLES                         -DIMSTYLE 变量
    
55. VERTICAL                         DIMLINEAR垂直
    

复制代码