yhly555 发表于 2015-11-16 21:47 
但是我做的时候,只有第一个通取词,其他的取不到词。
SSGET的方法。
get_word函数段 替换成这个:
 - (while (null ssgt_word)
- (setq ssgt_word (ssget '((0 . "text,mtext"))))
- )
- (vlax-for ssgt_word
- (vla-get-activeselectionset ;;取得激活的选择集
- (vla-get-activedocument
- (vlax-get-acad-object)
- ))
-
- (setq g_word (vla-get-TextString ssgt_word))
- (if (null g_word_lst)
- (setq g_word_lst (list g_word))
- (setq g_word_lst (append (list g_word) g_word_lst))
- )
- )
|