14.11.2022 08:52    

karakayotti
Merhaba,
Autocad de çizilen herhangi bir nesne için en,boy olarak en az yer kaplayacağı şekilde bir lispe ihtiyacım var.
Çevrelediği şey daire, yamuk, üçgen vs herhangi bir şekil olabilir. Ancak en boy olarak minimum şekilde çevresine dörtgen oluşturmalı.
Bu konuda yardımcı olabilecek var ise şimdiden teşekkür ederim.
Herkese iyi günler dilerim.

Aşağıdaki gibi örnek ekledim.

karakayotti (14.11.2022 08:58 GMT)

14.11.2022 13:59    

ehya
Komut ismi BX

Kod:

(defun c:BX (/ ss c say tek bx mnp mxp)
  (if (setq ss (ssget))
    (progn
      (setq c 0 say (sslength ss))
      (while (< c say)
(setq tek (ssname ss c)
      bx (vla-getboundingbox (vlax-ename->vla-object tek) 'mnp 'mxp)
      mnp (vlax-safearray->list mnp)
      mxp (vlax-safearray->list mxp))
  (command ".rectangle" "non" mnp "non" mxp)
(setq c (1+ c)))))(princ))

15.11.2022 05:33    

karakayotti
Çok teşekkür ederim. Çok işime yarayacak. Elleriniz dert görmesin.

> 1 <
Copyright © 2004-2022 SQL: 0.545 saniye - Sorgu: 63 - Ortalama: 0.00865 saniye