[求助]：怎样读取绘图文件里的块的名称？

stillwin

在绘图文件里有很多块，用什么办法可以读取它们的名称？请朋友们帮忙多谢！

slowall

可以选中所有的块，然后读出他们的名称，应该是2的关联dxf值，如果名字重复就读下一个块，把他们做成一个点对表返回。不过这样只能读出图中使用的块名。

xshrimp

(tblsearch "block" blockname)
(tblnext "block")

qjcpj

3楼未考虑无名块(如标注实体)情况。
取无名块时，可使用ssget构造无名块选择集，然后利用ssname返回选择集中由索引号指定的元素的对象（图元）名称，从而取出由索引号指定的元素的对象（图元）组码，最后用assoc取出图块名。

fools

下面这个函数来自秋枫大侠的批打印程序，可以很好的解决楼主的要求：
[php]
       ;;有名图块列表函数
;;返回值:排序后的有名图块块名列表
  (defun GetBlockList (/ blist b)
    (setq blist nil)
    (if (tblnext "BLOCK" T)        ;测试图中是否含有图块
      (progn
        (setq blist (cons (cdr (assoc 2 (tblnext "BLOCK" T))) blist))
               ;获取第一个图块数据
        (while (setq b (tblNext "BLOCK"))        ;继续获取图块的定义数据
          (setq blist (cons (cdr (assoc 2 b)) blist))       ;构建块的列表
        );end while
      );end progn
    );end if
    (vl-remove-if '(lambda (s) (= "*" (substr s 1 1))) blist)        ;去除无名块
    (vl-sort blist '<)                        ;图块名排序
  )
[/php]

stillwin

多謝fools，你轉貼的正是我想要的！另外什么樣可以讀取塊的中心點位置？

fools

楼上的问题所指不太清楚，因为块和中心点均可以有几种不同的理解。如果是指块图元的最小包围盒中心点：
[php]
;;图元包围盒中心点函数
;;参数值:图元名
;;返回值:图元包围盒中心点的UCS坐标
  (defun BoxCen (ent / ll ur llur cen)
    (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
               ;取包围盒左下及右上点
    (setq llur (mapcar 'vlax-safearray->list (list ll ur)))
               ;转换安全数组为点表
    (setq cen
       (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.0)) (car llur) (cadr llur))
     )           ;求中心点(WCS)
    (trans cen 0 1);转化为用户坐标系
  )
[/php]