填充花纹面积求和程序

dzgsfjw

填充花纹的面积累加求和，不同于曲线面积求和，因为填充花纹有时直接查面积是查询不到的，如玫瑰花瓣甚至更复杂的填充等。

(defun c:tcmj ( / ss index txh ename obj el haif nn )
(vl-load-com)
(setq modelspace (vla-get-Modelspace (vla-get-activeDocument(vlax-get-acad-object))))

(setq ss (ssget))
(setq index 0 totalarea 0 nn 0)

(repeat (sslength ss)
   (setq ename (ssname ss index))
   (setq en (entget ename))
   (setq index (+ 1 index))
   (setq haif (strcase (cdr (assoc 0 en))))

   (if (= "HATCH" haif)
    (progn
      (setq nn (+ nn 1))

      (command "-hatchedit" ename "B" "P" "Y")    ; 根据重创边界求面积
      (setq el (entlast))
      (setq obj (vlax-ename->vla-object el))
      (setq at 0)
      (if (vlax-property-available-p obj "area")   
       (setq at (vlax-get-property obj 'area))
         )
      (if (< at 0.0001)                           ; 如果重创边界面积为0，直接求面域面积
        (progn
           (command "AREA" "O" ename)
           (setq at (getvar "AREA"))
          )
        )
      (setq totalarea (+ at totalarea))  
      (entdel el)
    )
   )
) ; end repeat
(if (> nn 0)
  (progn
     (setq atext (strcat "\n总面积为: " (rtos totalarea 2 4) " 平方单位"))
     (princ atext)
   )
  (princ "\n无有效的花纹填充对象，请重新选择")
  )
(princ)
)

jingzita

学习，谢谢提供，正需要

清风明月10

试了，没有效果，在这句上产生了问题：
“ (command "-hatchedit" ename "B" "P" "Y")    ; 根据重创边界求面积”

xvjiex

感谢分享填充花纹面积求和程序！