AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoCAD > OFFSET - TÜM OBJELER İÇİN ÇALIŞTIRMA?
16.10.2017 06:18    
mete_tuncay
Merhaba arkadaşlar,

Çiziminizde yaklaşık 1000 adet üçgen ve değişik formlardan oluşan objeler olduğunu düşünün. Bunların her birini içeri 6mm offset yapmak istiyorum, fakat her birini tek tek girmem gerekiyor. Bunları toplu halde offset yapmak mümkün müdür?
16.10.2017 07:48    
alumina
Alıntı
mete_tuncay :

Secilen nesneleri girilen deger kadar (negatifse iceri, pozitifse disari) ofsetler.
Kod:

(defun c:ofs (/ dc sl ds sc m) (vl-load-com)
  (if (and (ssget) (setq dc (vlax-get (vlax-get-acad-object) 'activedocument)
        sl (vla-get-activeselectionset dc) ds (getdist "\nOffset dist:")))
    (progn (initget "y n")
      (if (setq sc (getkword "\nDelete object(s) [Yes/No] <No>?:"))
        (progn (vla-startundomark dc)
          (vlax-for m sl (vla-offset m ds) (if (= sc "y") (vla-delete m)))
          (vla-endundomark dc) (vla-delete sl)
        )
      )
    )
  ) (prin1)
)
16.10.2017 08:21    
mete_tuncay
Çok çok teşekkür ederim, :yes:yes:yes:yes

13.03.2018 14:37    
Travaci
alumina

Kod:

(initget "y n")
(setq sc (cond ((getkword "\nDelete object(s) [Yes/No] <No>?:")) ("No")))
> 1 <
Copyright © 2004-2022 SQL: 1.116 saniye - Sorgu: 54 - Ortalama: 0.02067 saniye