[求助]：标注文字改为代替值

carrot1983

[php]
;;选择对象的时候按回车退出
(defun c:cd (/ ss txt)
  (while (setq ss (ssget '((0 . "DIMENSION"))))
    (setq txt (getstring "\n标注文字<回车为原值>:"))
    (command "._dimedit" "n" txt ss "")
  )
  (princ)
)

[/php]

176489156

好用

橄榄滋味

四楼的还是不错的,但是很不完善,因为很多的尺寸是有前缀和后缀的,比方说有%%c或者有公差,用tt后全没了,能不能再考虑的完整一些.

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test (/ dimtxt e meatxt n newtxt obj ss)
   
5. ;;;  (p-s nil nil)
   
6.   (setq ss (ssget '((0 . "DIMENSION")))
   
7.         n -1
   
8.   )
   
9.   (setq newtxt (getstring "\nNew dimension text:"))
   
10.   (repeat (sslength ss)
    
11.     (setq e (ssname ss (setq n (1+ n)))
    
12.           obj (vlax-ename->vla-object e)
    
13.           dimtxt (vla-get-textoverride obj)
    
14.           meatxt (rtos (vla-get-measurement obj))
    
15.     )
    
16.     (if (= dimtxt "")
    
17.       (if (/= newtxt "")
    
18.         (vla-put-textoverride obj newtxt)
    
19.         (vla-put-textoverride obj meatxt)
    
20.       )
    
21.       (if (/= newtxt "")
    
22.         (vla-put-textoverride obj (vl-string-subst newtxt "<>" dimtxt))
    
23.         (vla-put-textoverride obj (vl-string-subst meatxt "<>" dimtxt))
    
24.       )
    
25.     )
    
26.   )                                       
    
27. ;;;  (p-e)
    
28. )
    
29.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test (/ dimtxt e meatxt n newtxt obj ss) <br /> ;;;  (p-s nil nil)<br />   (setq ss (ssget '((0 . "DIMENSION")))<br />         n -1<br />   )<br />   (setq newtxt (getstring "\nNew dimension text:"))<br />   (repeat (sslength ss)<br />     (setq e (ssname ss (setq n (1+ n)))<br />           obj (vlax-ename->vla-object e)<br />           dimtxt (vla-get-textoverride obj)<br />           meatxt (rtos (vla-get-measurement obj))<br />     )<br />     (if (= dimtxt "")<br />       (if (/= newtxt "")<br />         (vla-put-textoverride obj newtxt)<br />         (vla-put-textoverride obj meatxt)<br />       )<br />       (if (/= newtxt "")<br />         (vla-put-textoverride obj (vl-string-subst newtxt "<>" dimtxt))<br />         (vla-put-textoverride obj (vl-string-subst meatxt "<>" dimtxt))<br />       )<br />     )<br />   )                                       <br /> ;;;  (p-e)<br /> )<br />   [/FONT]<br />

hanshaiping

各位大侠，我是菜鸟，我想问一下，代码我看到了，也下载了，怎么把代码变成我能使用的快捷键呢？在什么环境（软件）下编写代码，保存成什么格式的文件，怎么在cad中调用

圣天诺杰

(defun c:EQ()(command "dim1" "newtext" "EQ"))
怎么修改即可输入命令后选择标注，也可以先选择标注后输入命令？