اتولیسپ درج مختصات
مدت زیادی است که در مورد اتولیسپ پست نذاشته ام، در این پست یک برنامه رایگان بسیار کاربردی رو معرفی میکنم که مختصات x و y را با کلیک کردن در هر جای اتوکد درج می کند و مهمترین مزیت این برنامه تکرار و حلقه بودن آن است که نیاز نیست برای هر با درج کردن مختصات دستور را وارد کنید، با یک بار اجرای برنامه در هر کجا کلیک کنید مختصات همان نقطه را به صورت تکست درج میکند و سرعت کارتوگرافی و ترسیم را بسیار بالا می برد. اگر در مورد اتولیسپ و نحوه اجرای برنامه های اتولیسپ آشنایی ندارید با جستجو در سایت می توانید با این مطالب آشنا شوید.
- اسم دستور برنامه : mcor
- سایز متن را با دستور textsize اتوکد میتوانید تغییر دهید.
- میزان اعشار را هم میتوانید از قسمت units یا دستور luprec تغییر دهید.
- آموزش اجرای برنامه های اتولیسپ
|
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 39 |
;;********************************************************* ;;Insert Mtext by get a point from user ;;2020/01/15 ;;Author : Bahman Jafari ;;Web : b68.ir ;;********************************************************* (defun c:mcor () (vl-load-com) (setq acadobj (vlax-get-acad-object) doc (vla-get-activedocument acadobj) modelSpace (vla-get-ModelSpace doc) utility (vla-get-utility doc) ) (setq pc (vlax-invoke doc 'GetVariable "luprec")) (setq ts (vlax-invoke doc 'GetVariable "textsize")) (while (setq pt (vlax-invoke utility 'getpoint nil "Enter a point: ")) (setq txt (strcat (strcat "X=" (rtos (car pt) 2 pc) "\\P" ) (strcat "Y=" (rtos (cadr pt) 2 pc) ) ) ) (setq mtx (vlax-invoke modelSpace 'AddMText pt 0.0 "") ) (vlax-put mtx 'TextString txt) (vlax-put mtx 'Height ts) ) ) |
محمد 
بهمن جعفری 
مرتضی 
محمد 
6 دیدگاه برای "لیسپ درج مختصات در اتوکد"