تبلیغات 
در بسیاری از برنامه های اتولیسپ از تابع defun به منظور ایجاد تابع (برای مثال C:Test) استفاده میشود . اینها توابعی هستند که پس از appload شدن میتوان آنها را با وار کردن نامشان در خط فرمان اتوکد (:Command) همانند دستورات معمولی اتوکد احضار کرد.
طبقه بندی: آموزش اتولیسپ،
به عنوان مثال برنامه زیر دستور Selst را به اتوکد اضافه میکند که با انتخاب یک نوشته style آنرا به style جاری تبدیل میکند.
(defun C:SELST (/ CE STY)
(setq CE (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq STY (cdr (assoc 7 (entget (car(entsel
"Select text string with desired text style..."))))))
(setvar "Textstyle" sty)
(setvar "CMDECHO" CE)
(alert (strcat "\n" STY " is now the current text style."))
(princ)
)
(setq CE (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq STY (cdr (assoc 7 (entget (car(entsel
"Select text string with desired text style..."))))))
(setvar "Textstyle" sty)
(setvar "CMDECHO" CE)
(alert (strcat "\n" STY " is now the current text style."))
(princ)
)
در صورتیکه در تابع defun از :c
استفاده نشود به تابع تولید شده تابع مستقل یا routine میگوئیم. برای
احضار برنامه های مستقل در اتوکد باید نام آنها را در داخل پرانتز قرار
میدهیم.
طبقه بندی: آموزش اتولیسپ،
ارسال در تاریخ شنبه 7 آذر 1388 توسط علیرضا عدالتی پور
هر چند این برنامه بزبان vb است ولی هم برنامه خوبی برای کاربران اتوکد
وهم تمرین خوبی در زمینه vb (یاVba که این برنامه ابتدا با آن نوشته و در
vb6 بازنویسی شده است) میباشد. فکر نمی کنم توضیح زیادی لازم باشد. برای
آشنائی با برنامه یک نمونه بصورت sample در آن قرار داده ام.
طبقه بندی: دانلود برنامه اتولیسپ،
طبقه بندی: دانلود برنامه اتولیسپ،
ارسال در تاریخ دوشنبه 2 آذر 1388 توسط علیرضا عدالتی پور