درج اتوماتیک مساحت در اتوکد
اگر اطلاع داشته باشید اتولیسپ برنامه هایی هستند که تحت اتوکد به زبان لیسپ نوشته می شوند و میتوان به عملیات ترسیم و کارتوگرافی سرعت زیادی بخشید، در سری مجموعه برنامه های اتولیسپ در این پست یک برنامه بسیار کاربردی معرفی کردم که میتوانید با کلیک در داخل یک قطعه بسته که میتواند شامل تمامی آبجکت ها باشد، مساحت را درج کنید و مهمترین مزیت این برنامه قابلیت تکرار است که متوانید بدون توفق دستور روی مجموعه ای از قطعه ها استفاده نمایید. از قسمت دانلود میتوانید این برنامه را به صورت رایگان دانلود نمایید.
- اسم دستور برنامه : ard
- سایز متن را با دستور 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 40 41 42 43 |
;;********************************************************* ;;Add area to closed polyline by clicking ;;2019/10/20 ;;Author : Bahman.Jafari ;;Gmail : Bahman.jf.68@gmail.com ;;********************************************************* (defun c:ard () (vl-load-com) (setq acadobj (vlax-get-acad-object) doc (vla-get-activedocument acadobj) modelSpace (vla-get-ModelSpace doc) utility (vla-get-utility doc) ) (vlax-invoke doc 'SetVariable "cmdecho" 0) (setq pc (vlax-invoke doc 'GetVariable "luprec") ts (vlax-invoke doc 'GetVariable "textsize") ) (while (setq pt (vlax-invoke utility 'getpoint nil "Enter a point: ")) (vl-cmdf "-hatch" pt "") (vl-cmdf "area" "o" "L") (setq areatx (strcat "Area=" (rtos (vlax-invoke doc 'GetVariable "Area") 2 2) ) ) (vl-cmdf "erase" "l" "") (setq tx (vlax-invoke modelSpace 'AddText "" pt ts) ) (vlax-put tx 'TextString areatx) ) (vlax-invoke doc 'SetVariable "cmdecho" 1) (princ) ) |
وحید 
بهمن جعفری 
فرشاد 
فرشاد 
یوسف 
8 دیدگاه برای "لیسپ درج مساحت در اتوکد"