اتولیسپ درج خودکار شماره
در این پست برنامه لیسپ کوچک آماده کرده ام که می توانید با کلیک کردن در هر جای اتوکد شماره خودکار و با رنگ های متفاوت ایجاد کنید، به این صورت که وقتی برنامه را اجرا می کنید و با اولین کلیک شماره 1 با رنگ قرمز درج می شود سپس با کلیک بعدی یک شماره افزایش پیدا میکند و هر بار هم رنگ متفاوت ایجاد میکند. از لینک زیر میتوانید این برنامه کوچک اتولیسپ کاربردی را دانلود نمایید.
دستور اجرای برنامه : atn
راهنمای اجرای برنامه های اتوکد
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
;;********************************************************* ;;Add sequential numbers manually ;;2019/08/26 ;;Author : Bahman.Jafari ;;Gmail : Bahman.jf.68@gmail.com ;;********************************************************* (defun c:atn () (vl-load-com) (setq acadobj (vlax-get-acad-object) doc (vla-get-activedocument acadobj) modelSpace (vla-get-ModelSpace doc) utility (vla-get-utility doc) ) (if (vl-catch-all-error-p (setq k (vl-catch-all-apply 'vlax-invoke (list utility 'getinteger "\n Enter an integer < 1 > : ") ) ) ) (setq k 0) (setq k (1- k)) ) (setq ts (vlax-invoke doc 'GetVariable "textsize")) (while (setq pt (vlax-invoke utility 'getpoint nil "Enter a point: ")) (setq mtx (vlax-invoke modelSpace 'AddText "" pt ts) ) (vlax-put mtx 'TextString (rtos (setq k (1+ k)) 2 0)) ) ) |
- با دستور textsize اتوکد میتوانید سایز متن را تغییر را دهید.
- اگر عدد درخواستی برنامه را وارد نکنید پیش فرض از شماره یک شروع به شماره گزاری می کند.
سمائی 
بهمن جعفری 
بهمن 
مسلم 
میترا 
مهدي 
محمد رضا 
11 دیدگاه برای "لیسپ شماره گذاری خودکار"