;获取普通块内的文字，测试完成。

77077

做下笔记
有用到的朋友自行拿去用就行了。

2. ;获取普通块内的文字，测试完成。
   
3. ;测试 (XX-Get-BlockTexts(vlax-ename->vla-object(car(entsel"\n选择块: "))))
   
4. ;    =>("文字2" "文字1")
   
5. (defun XX-Get-BlockTexts(blkobj / obj strlst)
   
6.   (setq blks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
   
7.   (if (= (vla-get-objectname blkobj) "AcDbBlockReference")
   
8.     (vlax-for obj (vla-item blks (vla-get-name blkobj))
   
9.       (if (= (vla-get-objectname obj) "AcDbText")
   
10.         (setq strlst (cons (vla-get-TextString obj)strlst))
    
11.       )
    
12.     )
    
13.   )
    
14.   strlst
    
15. )

;获取普通块内的文字，测试完成。<br /> ;测试 (XX-Get-BlockTexts(vlax-ename->vla-object(car(entsel"\n选择块: "))))<br /> ;    =>("文字2" "文字1")<br /> (defun XX-Get-BlockTexts(blkobj / obj strlst)<br />   (setq blks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))<br />   (if (= (vla-get-objectname blkobj) "AcDbBlockReference")<br />     (vlax-for obj (vla-item blks (vla-get-name blkobj))<br />       (if (= (vla-get-objectname obj) "AcDbText")<br />         (setq strlst (cons (vla-get-TextString obj)strlst))<br />       )<br />     )<br />   )<br />   strlst<br /> )

77077

在做植物图块的时候，有人喜欢把植物名称直接写在块上，所以我写了这个函数准备调用。
之所以不用属性块，是属性块在插入时不方便。

springwillow

不错，代码简洁明了！

木个木

楼主  有修改普通块中文字的特性  如字体高度  字体宽度的代码吗？

qq1254582201

好东西，留存了

guankuiwu

很好的 学习了！