(defun C:TTT (/ ETYP ENAM HATCH_OBJ NUM OUTER_LOOP_OBJS N)
;ick an element and test if it's a hatch
(if
(eq
(setq ETYP
(cdr
(assoc 0
(entget
(setq ENAM
(car (entsel "lease pick a hatch entity:"))
)
)
)
)
)
"HATCH"
)
;;It's a hatch
(progn
(setq HATCH_OBJ (vlax-ename->vla-object ENAM))
(setq NUM (vla-get-numberofloops HATCH_OBJ))
(princ "\nThe Number of loops is : ")
(princ NUM)
(setq N 0)
(repeat NUM
(prompt (strcat "\nThe loop " (rtos (1+ N))))
(vla-getloopat HATCH_OBJ N 'OUTER_LOOP_OBJS)
(foreach ENT (vlax-safearray->list OUTER_LOOP_OBJS)
(print (entget (vlax-vla-object->ename ENT)))
)
(setq N (1+ N))
(terpri)
)
)
;;It's no hatch
(progn
(princ "\nThis was no hatch entity but : ")
(princ ETYP)
(terpri)
)
)
(princ)
)
置顶卡
