اتولیسپ محاسبه طول کل Polyline
در پست قبلی یک اتولیسپ گذاشته بودم که کارش محاسبه مساحت کل پلی لاین ها بود، در این پست هم یک برنامه تقریبا شبیه این اما با کارکرد متفاوت گذاشته ام که کارش محاسبه و درج طول خطوط ترسیمی در اتوکد می باشد که میتواند شامل Polyline و Line باشد، یعنی با انتخاب کل خطوط اتوکد و انتخاب یک نقطه، طول کلی آن ها به صورت Text در اتوکد درج می گردد. اما با کمی تغییر در کدهای برنامه میتوانید به صورت اختصاصی برای خودتان کارکرد برنامه را تغییر دهید، اگر مشکل یا سوالی در این خصوص داشتید در قسمت نظرات حتما در میان بگذارید.
- اندازه تکست را با دستور TextSize اتوکد میتوانید تنظیم نمائید.
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 |
;;********************************************************* ;;Add total length of polylines and Lines ;;2020/04/06 ;;Author : Bahman.Jafari ;;Gmail : Bahman.jf.68@gmail.com ;;********************************************************* (defun c:totp () (vl-load-com) (setq ss (ssget '((0 . "*POLYLINE,line")))) (setq tare (vl-cmdf "text" "j" "mc" (getpoint "Enter a point: ") (getvar "textsize") 0.0 (strcat "L = " (rtos (apply '+ (MAPCAR '(LAMBDA (X) (vlax-get (vlax-ename->vla-object X) 'Length)) (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) ) ) 2 3 ) " m" ) ) ) ) |
9 دیدگاه برای "اتولیسپ محاسبه و درج طول کل خط ها"