所有填充对象置后显示

tucad

;;所有填充对象置后显示
(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")
      )         
    )
  )
)麻烦帮看一下有什么问题

自贡黄明儒

command中，一般是ename,而你程序中n是vla