[注意]怎样实现这个？

tukuitk

我已经把所选的文字放到一个LIST中了，现在TextList和TagList（所选的属性参照所含的所有属性的Tag的LIST）有全局变量，是已知的了。请飞哥帮忙实现一下。：）

meflying

没有你的TEXTLIST和TAGLIST，没有调试，你自己看看，调调，应该不难，FILL函数是调试过的，所有函数未加错误处理，只是一个功能的实现，，剩下的应该你自己做完成了

2. (defun Fill(entAtt Text tag / entv str att attlist i)
   
3.   (setq entv (vlax-ename->vla-object entAtt))
   
4.   (setq att (vla-getattributes entv))
   
5.   (setq attlist (vlax-safearray->list (vlax-variant-value att)))
   
6.   (setq i 0)
   
7.   (while (< i (length attlist))
   
8.     (if (= (vla-get-tagstring (nth i attlist)) tag)
   
9.       (progn
   
10.         (vla-put-textstring (nth i attlist) text)
    
11.         (setq i (length attlist))
    
12.       )
    
13.     )
    
14.     (setq i (1+ i))
    
15.   )
    
16.   (princ)
    
17. )
    
18. 
    
19. (defun main( / ss i sslist )
    
20.   (prompt "选择属性块...")
    
21.   (setq ss (ssget '((0 . "Insert"))))
    
22.   (setq i 0)
    
23.   (while (< i (sslength ss))
    
24.     (setq sslist (append sslist (list (ssname ss i))))
    
25.     (setq i (1+ i))
    
26.   )
    
27.   (setq sslist (vl-sort sslist '(lambda (e1 e2) (< (caddr (assoc 10 (entget e1))) (caddr (assoc 10 (entget e2)))))))
    
28.   (setq i 0)
    
29.   (while (< i (length taglist))
    
30.     (fill (nth i sslist) (nth i textlist) (nth i taglist))
    
31.     (setq i (1+ i))
    
32.   )
    
33. )
    

(defun Fill(entAtt Text tag / entv str att attlist i)<br />   (setq entv (vlax-ename->vla-object entAtt))<br />   (setq att (vla-getattributes entv))<br />   (setq attlist (vlax-safearray->list (vlax-variant-value att)))<br />   (setq i 0)<br />   (while (< i (length attlist))<br />     (if (= (vla-get-tagstring (nth i attlist)) tag)<br />       (progn<br />         (vla-put-textstring (nth i attlist) text)<br />         (setq i (length attlist))<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br /> <br /> (defun main( / ss i sslist )<br />   (prompt "选择属性块...")<br />   (setq ss (ssget '((0 . "Insert"))))<br />   (setq i 0)<br />   (while (< i (sslength ss))<br />     (setq sslist (append sslist (list (ssname ss i))))<br />     (setq i (1+ i))<br />   )<br />   (setq sslist (vl-sort sslist '(lambda (e1 e2) (< (caddr (assoc 10 (entget e1))) (caddr (assoc 10 (entget e2)))))))<br />   (setq i 0)<br />   (while (< i (length taglist))<br />     (fill (nth i sslist) (nth i textlist) (nth i taglist))<br />     (setq i (1+ i))<br />   )<br /> )<br />

tukuitk

飞哥，你的程序要用我的TextList和Taglist吧！不然，返回的值就是nil。

meflying

是你说有这两个变量的，现在又来问我，真是莫名其妙

tukuitk

这两个全局变量是有的，但你说：
“没有你的TEXTLIST和TAGLIST，……”
把我弄糊涂了。

meflying

哦，这样啊，不好意思
我是说我这里没有你的这两个变量，所以不好调试，

tukuitk

飞哥，我的程序完成了一大半，我想若选择N个文字和N个块，依次把文字填到各个块的某个属性中去，实现我图中的那个效果，该怎样办？



注：我暂时把刚才的帖子删除了，因它还没成功，免得丢人，成功后我再帖上来。

tukuitk

我上面的程序还没完全成功，望飞哥帮忙！谢谢！！！

meflying

我给你的两个函数就是这样用的啊，你似乎不理它，又来问我，我再给你写一个，你还是不理，那我怎么办？？？？？

tukuitk

我用了你的那个Fill函数了的呀！