多重块问题

mjthetuxedo

(DEFUN XET-EXPLOR-BLOCK ( BLKOBJLST / HAVEBLOCK I J RTN  TMP )
      (SETQ TMP NIL
     RTN NIL
     HAVEBLOCK T
      ) ;_ 结束SETQ
      (WHILE HAVEBLOCK
     (SETQ I 0
    J 0
     ) ;_ 结束SETQ
     (REPEAT (LENGTH BLKOBJLST)
    (IF (= "ACDBBLOCKREFERENCE" (STRCASE (VLA-GET-OBJECTNAME (NTH I BLKOBJLST))))
   (PROGN
         (SETQ TMP (APPEND TMP (VLAX-SAFEARRAY->LIST (VLAX-VARIANT-VALUE (VLA-EXPLODE (NTH I BLKOBJLST))))))
         (VLA-DELETE (NTH I BLKOBJLST))
         (SETQ J (1+ J))
   ) ;_ 结束PROGN
   (SETQ RTN (CONS (NTH I BLKOBJLST) RTN))
    ) ;_ 结束IF
    (SETQ I (1+ I))
     ) ;_ 结束REPEAT
     (SETQ BLKOBJLST TMP)
     (SETQ TMP NIL)
     (IF (> J 0)
    (SETQ HAVEBLOCK T)
    (SETQ HAVEBLOCK NIL)
     ) ;_ 结束IF
      ) ;_ 结束WHILE
      RTN
) ;_ 结束DEFUN
(DEFUN C:TEST (/ ENT)
      (VL-LOAD-COM)
      (IF (/= NIL (SETQ ENT (ENTSEL)))
     (SETQ XX (XET-EXPLOR-BLOCK (LIST (VLAX-ENAME->VLA-OBJECT (CAR ENT)))))
      ) ;_ 结束IF
      (IF XX
   (PRINC "\n图块已经炸开")
   )
      (PRINC)
) ;_ 结束DEFUN

mjthetuxedo

以上这些代码看不太懂~~
有高手能注释一下吗？？？

VLA-EXPLODE这个函数怎么在函数参考表里没有？？？？

caoyin

看VBA帮助