各位老师帮一把：如何计算边界被删除的HATCH实体面积。

长清

急

mccad

二次开发栏目下有一篇“通过选定的阴影图案生成边界线”的文章，边界都可以生成，计算面积应也可以[br]通过选定的阴影图案生成边界线
http://www.mjtd.com/a2/list.asp?id=324

龙龙仔

龙龙仔

长清

这种算法是地道的DXF算法，准确可靠，非常谢谢。我曾经想用这种算法，但没有成功，与删除边界前的面积有差别。

龙龙仔

龙龙仔

(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)
)