[求助]：标注文字修改lsp程序

ld80721

我想要个标注文字修改lsp程序
望高手赐予
谢谢

似水无痕

我这里以前搞了一个，有点太幼稚，给楼主用用，也请大家多提宝贵意见！

2. ;;;*****************************************;;;
   
3. ;;;---本程序c:dimmodify可修改修改标注文字---;;;
   
4. ;;;*****************************************;;;
   
5. 
   
6. (defun c:dimmodify (/ ent1 ss1 object data_modified)
   
7.   (setvar "cmdecho" 0)
   
8.   (princ "\n请选择要修改的标注：")
   
9.   (setq        ss1    (ssget ":S" '((0 . "DIMENSION")))
   
10.         ent1   (ssname ss1 0)
    
11.         object (entget ent1)
    
12.   )
    
13.   (redraw ent1 3)
    
14.   (setq        data_modified
    
15.          (getstring "\n输入空格为恢复原始尺寸\n修改为：")
    
16.   )
    
17.   (setq
    
18.     object (subst (cons 1 data_modified) (assoc 1 object) object)
    
19.   )
    
20.   (entmod object)
    
21.   (princ)
    
22. )

;;;*****************************************;;;<br /> ;;;---本程序c:dimmodify可修改修改标注文字---;;;<br /> ;;;*****************************************;;;<br /> <br /> (defun c:dimmodify (/ ent1 ss1 object data_modified)<br />   (setvar "cmdecho" 0)<br />   (princ "\n请选择要修改的标注：")<br />   (setq        ss1    (ssget ":S" '((0 . "DIMENSION")))<br />         ent1   (ssname ss1 0)<br />         object (entget ent1)<br />   )<br />   (redraw ent1 3)<br />   (setq        data_modified<br />          (getstring "\n输入空格为恢复原始尺寸\n修改为：")<br />   )<br />   (setq<br />     object (subst (cons 1 data_modified) (assoc 1 object) object)<br />   )<br />   (entmod object)<br />   (princ)<br /> )

ld80721

修改后不知为何尺寸线变成了虚线,请试试查查原因.
谢谢

似水无痕

2楼程序已经更改过来了，你再试试！请教了Underway兄，在此向他致谢！

ll_j

可以利用老的标注命令：

2. (defun c:nt()(command "dim1" "newtext"))

(defun c:nt()(command "dim1" "newtext"))

ld80721

非常感谢,好了.

北斗七星

这个程序太简单了，只是将标注用文字替代一下，我写了一个，能修改前后缀及公差，且不用文字替代，这样在修改时数字能更改。提供对话框。

似水无痕

最初由 北斗七星 发布
[B]这个程序太简单了，只是将标注用文字替代一下，我写了一个，能修改前后缀及公差，且不用文字替代，这样在修改时数字能更改。提供对话框。 [/B]

楼上能把原代码共享么，谢谢！

大雪无痕

CAD自带的有

sincereheart

cad2006 里有更强大的标注修改功能，你应该好好研究和利用。

qjcpj

看看这个：
http://www.xdcad.net/forum/showthread.php?s=&threadid=291469

wytxl2002

向各位网友学习！