tucad 发表于 2014-12-10 16:29:26

所有填充对象置后显示

;;所有填充对象置后显示
(defun c:tt (/ )
(setq *OBJ (vlax-get-acad-object))
(setq *DOC (vla-get-activedocument *OBJ))
(setq blocklist (vla-get-blocks *DOC));取得块集合
(vlax-for block blocklist             ;遍历块集合
    (vlax-for n block                   ;遍历单个块
    (if (= "AcDbHatch" (vla-get-objectname n))
         (command "draworder" n "" "_B")
      )         
    )
)
)麻烦帮看一下有什么问题

自贡黄明儒 发表于 2014-12-10 16:44:25

command中，一般是ename,而你程序中n是vla
页: [1]
查看完整版本: 所有填充对象置后显示