09.10.2022 10:48

89831    

Merhaba Arkadaşlar;
Çizimimde bulunan rectangle lerin en ve boy uzunluklarını aşağıdaki kod ile alıyorum.
bu ölçüleri excel e kaydederken bir sorunum var.
rectangle ların bir kenarı 5 - 10 - 15 -20 -25 gibi sabit değerler ve diğer kenar uzunluklarında sınırlama yok,
benim istediğim kenar uzunluğu sabit değer olan kısmın EN değerine atanması diğer ölçünün BOY bölümüne aktarılması . Bunun için gereken İF koşulunu bir türlü yazamadım. Bu konuda yardıma ihtiyacım var.
bu sonucu halledebilirsem duvar metrajı lisp dosyamda ilerleyebileceğim.
Yardımlarınız için şimdiden teşekkür ederim.
pt1 ve pt2 degerleri başkabir işlemle geliyor.

(setq plss (ssget pt2))
(setq n (sslength plss))
(setq plobj (vlax-ename->vla-object (ssname plss (setq n (1- n)))))

(vla-getBoundingBox plobj 'minpt 'maxpt)

(setq
LL (vlax-safearray->list minpt)
UR (vlax-safearray->list maxpt)
delta (mapcar '- UR LL)
)
(setq EN (rtos (car delta) 2 2)
BOY (rtos (cadr delta) 2 2))

10.10.2022 09:56

89833    

Ehya çok teşekkür ederim.
kodu yazdıgın kod ile değiştirip devam edeceğim.
kolay gelsin...