Visual LISP หาพื้นที่ชิ้นงานที่มีรูเจาะภายใน

หลังจากโหดล LISP นี้แล้วพิมพ์ getArea ตามด้วย Enter
แล้วคลิกหนึ่งจุดบนพื้นที่ของชิ้นงาน 2D
จะได้ผลลัพธ์แจ้งพื้นที่ (หักรูเจาะทั้งหมด)

(vl-load-com)
(defun c:getarea (/ oldcmdecho p e)
(setq oldcmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(initget 1)
(setq p (getpoint "\nSpecify a point in boundary: "))
(command "_.-hatch" "a" "A" "n" "" p "")
(princ "\nArea = ")
(princ
(vla-get-Area
(vlax-ename->vla-object (setq e (entlast)))
)
)
(entdel e)
(setvar "cmdecho" oldcmdecho)
(princ)
)