[编程申请]：寸法值变更

lizhongf

烦请各位高手帮忙：
      编写一命令，对于已存在尺寸标注，使用这一命令能快速在该尺寸值前面加上特定符号，如：1500 ------> *1500，1500 ------> W=1500等，类似格式刷命令，只是在尺寸值前面加上特定符号（“*”和“W=”）。
      要求在2004或2002平台下，最好是2004。
    谢谢。

ll_j

这些功能使用不多，个人认为一般使用acad功能即可，在2002下编辑标注是很方便的。
你将下面一段代码加到acad.lsp中，以后可以使用nt修改标注文字：
(defun c:Nt()(command "dim1" "new"))

eachy

最初由 lizhongf 发布
[B]烦请各位高手帮忙：
      编写一命令，对于已存在尺寸标注，使用这一命令能快速在该尺寸值前面加上特定符号，如：1500 ------> *1500，1500 ------> W=1500等，类似格式刷命令，只是在尺寸值前面加上特定符号（“*... [/B]

2. 
   
3. ;;用于按测量值标注的Dimsion
   
4. (vl-load-com)
   
5. (defun c:test (/ ss e str obj dis string)
   
6.   (setq str (getstring "\n前缀: "))
   
7.   (princ "\n选择标注.....")
   
8.   (setq        ss (ssget '((0 . "dimension")))
   
9.         n  0
   
10.   )
    
11.   (repeat (sslength ss)
    
12.     (setq obj (vlax-ename->vla-object (ssname ss n)))
    
13.     (vla-put-TextOverride
    
14.       obj
    
15.       (vlax-make-variant (strcat str "<>"))
    
16.     )
    
17.     (setq n (1+ n))
    
18.   )
    
19.   (princ)
    
20. )
    
21. 
    

<br /> ;;用于按测量值标注的Dimsion<br /> (vl-load-com)<br /> (defun c:test (/ ss e str obj dis string)<br />   (setq str (getstring "\n前缀: "))<br />   (princ "\n选择标注.....")<br />   (setq        ss (ssget '((0 . "dimension")))<br />         n  0<br />   )<br />   (repeat (sslength ss)<br />     (setq obj (vlax-ename->vla-object (ssname ss n)))<br />     (vla-put-TextOverride<br />       obj<br />       (vlax-make-variant (strcat str "<>"))<br />     )<br />     (setq n (1+ n))<br />   )<br />   (princ)<br /> )<br /> <br />

lizhongf

谢谢斑竹、青铜长老这么快就给回复，谢谢。

ydf7332462

ll_j 的new不是加prefix；eachy 的可能会实现，且批量
也可Ddim中设prefix-->dim upd

xzk1019

我怎么也用不了上面的lsp

lsjjm

如果修改的尺寸不多，使用ddedit即可。下面的小程序可批量处理添加直径符号。
(defun c:test ()      
  (vl-load-com)
  (princ "\nSelect Dimension:")
  (setq ents (ssget) n 0)
  (while (< n (sslength ents))
    (setq ent (vlax-ename->vla-object (ssname ents n)))
    (vlax-put-property ent 'textprefix "%%c")
    (setq n (1+ n))
  );
  (princ)  
);defun

eachy

最初由 xzk1019 发布
[B]我怎么也用不了上面的lsp [/B]

看你的提示 setqss 错误，检查下setq 与 ss 间是否有空格。