ارسال فرمان به پرونده های جدید در اتوکد
ارسال فرمان به پرونده های جدید در اتوکد
نقل قول :
به تازگی مجبور شدم بسیاری از نقشه های قدیمی را باز بینی کنم، مسئله آزار دهنده این بود که بعد از باز کردن هر نقشه می بایست آنرا زوم میکردم تا در محیط اتوکد به شکل مناسبی دیده شود. و البته خیلی کارهای دیگر که در اینجا فرصت شرحش نیست!
حال فرض کنید که هر بار بعد باز کردن نقشه لازم باشد کلمه zoom را تایپ کرده اینتر زده و بعد e را تایپ کرده و دوباره اینتر کنید تا مشکلتان حل شود، آن هم برای بازبینی بیش از صد نقشه که در چند روز آینده حسابی سرتان را درد خواهد آورد. خب ، راه حل ما چیست !؟ پشتکار یا ابتکار!؟
برای حل مشکل کوچیک ما ابتدا یک فایل با نام acaddoc.lsp میسازیم و آن را در شاخه ی support اتوکد ذخیره میکنیم. (یا هر شاخه ی دیگری که در قسمت Files در پنجره ی Tools>Options به پیشفرضهای اتوکد اضافه کرده اید) سپس فایل را با Notepad باز کرده و فرمان زیر را در آن وارد می کنید.
(command "zoom" "e")
منبع : p30ton.com
ترسیم سهمی در اتوکد
نقل قول :
برنامه ی امروز به درخواست یکی از کاربران نوشته شده که علاقمند بودند با چگونگی ترسیم سهمی ( و دیگر معادلات ریاضی ) در اتوکد آشنا شوند. از آنجایی که دستور مستقیمی برای این کار در اتوکد وجود ندارد برای اجرای این کار نیاز به برنامه نویسی داریم. معمولا ساده تر است که برنامه های کوتاه را با اتولیسپ بنویسیدم. نحوه ی کار فرمان به ترتیب توضیح داده شده است.
(defun c:drawx (/)
(setq y 0)
(setq xstep 1) ; favasel beine x ha
(setq xmin -150)
(setq xmax +150)
; taeen tedad gamha
(setq counter (/ (- xmax xmin) xstep))
; shoru az kamtarin meghdar x
(setq x xmin)
(repeat counter
;--- Mohasebe noghte avale khat
(setq y (* x x))
(setq pt1 (list x y 0))
;--- paresh yek gam be jolo
(setq x (+ x xstep))
;--- Mohasebe noghte dovom khat
(setq y (* x x))
(setq pt2 (list x y 0))
;(command "point" pt1 )
(command "line" pt1 pt2 "")
)
)
