[编程申请]：关于加括号--估计是没人能做出来啦

coldhope

原贴内容：关于给文字（单行/多行），尺寸标注加括号:

文件里有很多数字，单行多行都有，还有尺寸标注，比如：2000 ，3500，4500等，有没有那样的命令，不用自己编辑文字，一个一个的去加括号，把他们变成：（2000），（3500），（4500）等，还有<>中括号  


斑竹，谢谢你的回复。这几个月一直在国外，没时间上来。
试了你的程序，情况如下
---------------------------------------
Command: test

Font not available.Unknown command "0". Press F1 for help.
Unknown command "1". Press F1 for help.
Unknown command "0". Press F1 for help.
Unknown command "TEST". Press F1 for help.
Unknown command "TEST". Press F1 for help.
---------------------------------------

另外，跟日文系统，cad版本没关系把？我用的是cad2005英文,系统是日文的。还有，能给尺寸标注批量加括号么？即等回复，再次谢谢


原贴连接    http://www.xdcad.net/forum/showt ... 3165749#post3165749

另外，下附两个程序，都能正常使用，能修改尺寸，能改单多行文字，但是各有优缺点：TF---尺寸内容修改后用不了，如--尺寸内容的<>去掉，换成4300时；TG---多行文字用不了；另外这两个命令都不能选择括号种类。

2. 
   
3.   [FONT=courier new]
   
4. (defun C:tf (/ ENT HOLDECHO HOLDOSMODE I N SS)
   
5.   (vl-load-com)
   
6.   (if (setq ENT (ssget '((0 . "DIMENSION,*TEXT"))))
   
7.     (progn
   
8.       (setq HOLDECHO (getvar "CMDECHO"))
   
9.       (setvar "CMDECHO" 0)
   
10.       (setq HOLDOSMODE (getvar "OSMODE"))
    
11.       (setvar "OSMODE" 0)
    
12.       (setq N (sslength ENT)
    
13.      I 0
    
14.       )
    
15.       (while (< I N)
    
16. (setq SS (vlax-ename->vla-object (ssname ENT I)))
    
17. (cond
    
18.    ((wcmatch (vla-get-objectname SS) "*Dimension")
    
19.     (cond
    
20.       ((= (vla-get-textoverride SS) "")
    
21.        (vla-put-textoverride
    
22.   SS
    
23.   (strcat "(<>)")
    
24.        )
    
25.       )
    
26.       ((wcmatch (vla-get-textoverride SS) "*<>*")
    
27.        (vla-put-textoverride
    
28.   SS
    
29.   (strcat "(" (vla-get-textoverride SS) ")")
    
30.        )
    
31.       )
    
32.       (vla-put-textoverride
    
33.        SS
    
34.        (strcat "(" (rtos (vla-get-measurement SS) 2 2) ")")
    
35.       )
    
36.     )
    
37.    )
    
38.    (t
    
39.     (vla-put-textstring
    
40.       SS
    
41.       (strcat "(" (vla-get-textstring SS) ")")
    
42.     )
    
43.    )
    
44. )
    
45. (setq I (1+ I))
    
46.       )
    
47.       (setvar "OSMODE" HOLDOSMODE)
    
48.       (setvar "CMDECHO" HOLDECHO)
    
49.     )
    
50.   )
    
51.   (princ)
    
52. )
    
53. 
    
54. 
    
55.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun C:tf (/ ENT HOLDECHO HOLDOSMODE I N SS)<br />   (vl-load-com)<br />   (if (setq ENT (ssget '((0 . "DIMENSION,*TEXT"))))<br />     (progn<br />       (setq HOLDECHO (getvar "CMDECHO"))<br />       (setvar "CMDECHO" 0)<br />       (setq HOLDOSMODE (getvar "OSMODE"))<br />       (setvar "OSMODE" 0)<br />       (setq N (sslength ENT)<br />      I 0<br />       )<br />       (while (< I N)<br /> (setq SS (vlax-ename->vla-object (ssname ENT I)))<br /> (cond<br />    ((wcmatch (vla-get-objectname SS) "*Dimension")<br />     (cond<br />       ((= (vla-get-textoverride SS) "")<br />        (vla-put-textoverride<br />   SS<br />   (strcat "(<>)")<br />        )<br />       )<br />       ((wcmatch (vla-get-textoverride SS) "*<>*")<br />        (vla-put-textoverride<br />   SS<br />   (strcat "(" (vla-get-textoverride SS) ")")<br />        )<br />       )<br />       (vla-put-textoverride<br />        SS<br />        (strcat "(" (rtos (vla-get-measurement SS) 2 2) ")")<br />       )<br />     )<br />    )<br />    (t<br />     (vla-put-textstring<br />       SS<br />       (strcat "(" (vla-get-textstring SS) ")")<br />     )<br />    )<br /> )<br /> (setq I (1+ I))<br />       )<br />       (setvar "OSMODE" HOLDOSMODE)<br />       (setvar "CMDECHO" HOLDECHO)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> <br />   [/FONT]<br />

2. 
   
3.   [FONT=courier new]
   
4. (defun c:tg() ;(setq e (car((entsel))))
   
5.     (setq ss (ssget '((0 . "TEXT,DIMENSION")))
   
6. i  -1)
   
7.   (while (setq e (ssname ss (setq i (1+ i))))
   
8.     (setq obj (vlax-ename->vla-object e))
   
9.     (if (= "TEXT" (cdr(assoc 0 (entget e))))
   
10.       (vla-put-TextString obj (strcat "(" (vla-get-TextString obj)")"))
    
11.       (vla-put-Textoverride obj (strcat "(" (if(wcmatch (setq dimt (vla-get-textoverride obj)) "")"<>" dimt) ")"))
    
12.     )
    
13.   )(princ)
    
14. )
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:tg() ;(setq e (car((entsel))))<br />     (setq ss (ssget '((0 . "TEXT,DIMENSION")))<br /> i  -1)<br />   (while (setq e (ssname ss (setq i (1+ i))))<br />     (setq obj (vlax-ename->vla-object e))<br />     (if (= "TEXT" (cdr(assoc 0 (entget e))))<br />       (vla-put-TextString obj (strcat "(" (vla-get-TextString obj)")"))<br />       (vla-put-Textoverride obj (strcat "(" (if(wcmatch (setq dimt (vla-get-textoverride obj)) "")"<>" dimt) ")"))<br />     )<br />   )(princ)<br /> )<br />   [/FONT]<br />

binbin

命令 test1 是加()
命令 test2 加<>

注意不要在倭国混饭

caoyin

既然“估计是没人能做出来啦”，那你还发此帖??

支持二楼观点-------------------------注意不要在倭国混饭

and2008

最初由 binbin 发布
[B]命令 test1 是加()
命令 test2 加<>

注意不要在倭国混饭 [/B]

你的程序加载了出现下面提示，这是咋个回事？请解释下，谢谢。

“; 错误: ARXLOAD 失败”

Underway

ObjectARX有版本相映的要求

lb5221111

很多都可以的，比如文修大师

qjcpj

该功能编程应该是很简单的，以前写过一个，你search一下。

KERRYWM

应该不会很难，给我一点时间，我也能写得出来，强烈鄙视楼主！

leeyuan

鄙视楼主的为人，既然说没人写出来，那你还在这死乞白赖要编程申请！

hdlyt11

这种程序小意思了，应该很简单啊

hcjtjjgk

学习一下

zhang8755

楼主就是想刺激大家，找骂吧

solidbullet

如果选择一次括号 再选择一次就巴括号删除就号了

fatant

下不了!!!!!!!!!!!!!!!!!!!!!!!!!