اتولیسپ مساحت کل قطعه ها

قبلا در سایت اتولیسپ درج مساحت گذاشته بودم که استقبال زیادی داشت به همین خاطر در این پست یک اتولیسپ رایگان و بسیار کاربردی را قصد دارم با شما به اشتراک بگذارم که کار این لیسپ محاسبه مساحت کل Polyline های بسته می باشد، معمولا در پروژه ها لازم است که برای گزارش گیری از حجم کل کار برای ارائه گزارش یا محاسبه خطا یا برآورد قیمت مساحت کل قطعه های ترسیمی در اتوکد محاسبه بشود، این کار را با برنامه نویسی اتوکد به سرعت و به راحتی می توان اجرا کرد. با این لیسپ که گذاشته ام میتوانید با انتخاب کل پلی لاین های بسته (Closed Polyline) مساحت کل و تعداد کل آبجکت ها را مشاهده نمایید. اما دقت داشته باشید که پلی لاین های انتخابی شما نباید مشکلات و خطاهای ترسیمی داشته باشند در اینصورت برنامه درست کار نخواهد کرد.

;;*********************************************************
;;Calculate total area
;;2020/04/04
;;Author : Bahman.Jafari
;;Gmail : Bahman.jf.68@gmail.com
;;*********************************************************

(defun c:totar ()

  (VL-LOAD-COM)
  (setq ss (ssget '((0 . "*POLYLINE"))))
  (setq	tare
	 (alert
	   (strcat
	     (strcat "Total selected objects: " (itoa (sslength ss)))
	     "\n"
	     "\nTotal Area:  "
	     (rtos
	       (apply
		 '+
		 (MAPCAR
		   '(LAMBDA (X) (vlax-get (vlax-ename->vla-object X) 'Area))
		   (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
		 )
	       )
	       2
	       3
	     )
	   )
	 )
  )
)