[编程申请]：为什么没有人理我呢？太简单？太难？

vivianla

http://www.xdcad.net/forum/showthread.php?threadid=161334

eachy

最初由 vivianla 发布
[B]http://www.xdcad.net/forum/showthread.php?threadid=161334 [/B]

传个带两个块的图上来

vivianla

就是这样的两个块罗，但是看了e2002的提示，我感觉自己的属性是否需要重设的？

e2002

看了你的图,一下是简单的测试性质的代码,如果需要更加完善的,请有时间的大虾们继续给出吧...

2. 
   
3. (if (setq ss (ssget '((0 . "INSERT")(2 . "bg"))))
   
4.   (progn
   
5.     (setq ss-list (lkvl:ss2list ss))
   
6.     (foreach var ss-list
   
7.       (setq ob (vlax-ename->vla-object var)
   
8.             Attribs (vla-getAttributes ob)
   
9.             Attribs-list (vlax-SafeArray->list (vlax-Variant-Value Attribs))
   
10.             Attrib (nth 0 Attribs-list)
    
11.             sText (vla-get-TextString Attrib)
    
12.             iLen  (strlen sText)
    
13.             iLeft (vl-string-search "(" sText)
    
14.             sNum1 (substr sText 1 iLeft)
    
15.             sNum2 (substr sText (+ iLeft 2))
    
16.             sNum2 (vl-string-right-trim ")" sNum2)
    
17.             sNewText (strcat sNum2 "(" sNum1 ")")
    
18.       )
    
19.       (vla-put-Name ob "elev")
    
20.       (vla-put-TextString Attrib sNewText)
    
21.       (mapcar 'vlax-release-object (list Attrib ob))
    
22.     )
    
23.     (setq ss nil)
    
24.   )
    
25. )
    

<br /> (if (setq ss (ssget '((0 . "INSERT")(2 . "bg"))))<br />   (progn<br />     (setq ss-list (lkvl:ss2list ss))<br />     (foreach var ss-list<br />       (setq ob (vlax-ename->vla-object var)<br />             Attribs (vla-getAttributes ob)<br />             Attribs-list (vlax-SafeArray->list (vlax-Variant-Value Attribs))<br />             Attrib (nth 0 Attribs-list)<br />             sText (vla-get-TextString Attrib)<br />             iLen  (strlen sText)<br />             iLeft (vl-string-search "(" sText)<br />             sNum1 (substr sText 1 iLeft)<br />             sNum2 (substr sText (+ iLeft 2))<br />             sNum2 (vl-string-right-trim ")" sNum2)<br />             sNewText (strcat sNum2 "(" sNum1 ")")<br />       )<br />       (vla-put-Name ob "elev")<br />       (vla-put-TextString Attrib sNewText)<br />       (mapcar 'vlax-release-object (list Attrib ob))<br />     )<br />     (setq ss nil)<br />   )<br /> )<br />

e2002

实际上也可以使用command来作这个:
同上先获取旧的insert的各种所需属性和Attrib的值,作字符串处理,删除这个对象,按相同比例插入一个新的替换的块在同一位置,再赋值新insert的Attrib的值为sNewText

这样作的好处在于使用了最简单的代码,实现了最完美的结果...8-)