马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
 - (defun c:XDTB_BATChkHatch ( / blk doc dwg dwglst i lay layouts o tf x)
- (defun _find (doc)
- (textpage)
- (setq dwglst nil)
- (princ (strcat "\n搜索 " (setq dwg (vla-get-name doc))))
- (setq layouts (vla-get-layouts doc))
- (setq dwglst nil)
- (vlax-for lay layouts
- (setq blk (vla-get-block lay))
- (setq tf t
- i -1
- )
- (while
- (and tf
- (setq
- o (xd::vla:catchapply vla-item (list blk (setq i (1+ i))))
- )
- )
- (if (and (= (vla-get-objectname o) "AcDbHatch")
- (not (xd::vla:catchapply vla-get-area (list o)))
- )
- (progn (setq tf nil)
- (setq dwglst (cons (vla-get-name doc) dwglst))
- )
- )
- )
- )
- (if dwglst
- (progn (princ "\n\n**********************\n发现异常填充,请核查.\n")
- (mapcar '(lambda (x) (princ "\n") (princ x)) dwglst)
- )
- )
- )
- (xd::vla:odbx '_find nil nil)
- (princ)
- )
|