اتولیسپ جمع اعداد

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

;;*********************************************************
;;Calculate Sum of all selected numbers
;;2020/04/06
;;Author : Bahman.Jafari
;;Gmail : Bahman.jf.68@gmail.com
;;*********************************************************

(defun c:snum ()
  (vl-load-com)
  (setq ss (ssget '((0 . "text,mtext"))))
  (setq	tare
	 (alert
	   (strcat
	     "Sum of numbers: "
	     (rtos
	       (apply
		 '+
		 (MAPCAR
		   '(LAMBDA (X)
		      (atof (vlax-get (vlax-ename->vla-object X) 'Textstring))
		    )
		   (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
		 )
	       )
	       2
	       4
	     )
	   )
	 )
  )
)