Area of Polyline & Multiply by

suriwaits · 发表于 2022-7-6 06:38:50

Hi,

I am in need of a lisp to do the following

Find the individual area of poly line in layer 1 & Layer 2
Multiply the area in layer 1 by a factor 3.1 and Place text within polyline
Multiply the area in layer 2 by factor 4.1 and Place text within polyline
Sum of text as alert message

Please help me on this..

Thanks in Advance

Suriwaits

pBe · 发表于 2022-7-6 06:53:15

copy

(defun c:areafrom  (/ data TotalArea ss i en area lay) (setq data '(("LAYER1" 3.1) ("LAYER2" 4.1)));;vla-object en) 'mn 'mx)        (setq pt               (mapcar '(lambda (x y)                       (* 0.5 (+ x y)))                          (vlax-safearray->list mn)               (vlax-safearray->list mx)))                      (entmakex (list (cons 0 "TEXT")                        (cons 10 pt)(cons 8 lay)                        (cons 11 pt)                        [b][color="blue"](cons 40 TextHt)                        '(72 . 1) '(73 . 2) [/color][/b]                        (cons 1 (rtos (setq area (* (cadr (assoc lay data)) area)) 2 2))                  )        )        (setq TotalArea (cons area TotalArea))      )        (alert (Strcat "Total area:   " (rtos (apply '+ TotalArea) 2 2)))    ) ) (princ))

Code updated