AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoCAD > Toplu Tarama Yapma
30.01.2023 08:14    
hll19100
Merhaba arkadaşlar, farklı farklı 300 tane çizim var elimde bunlara tek tek tarama yapmam gerekiyor, hepsi layer lı ve polyline ile çizilmiş kapalı alanlar,. her layerdaki çizimleri seçerek onlara özgü toplu bir tarama işlemi yaptırabilirmiyim ?

30.01.2023 09:29    
alumina
Alıntı
hll19100 :

Kod:

(defun c:ht (/ dc ss sl hc)
            (vl-load-com)
  (if (setq dc (vla-get-ActiveDocument
             (vlax-get-acad-object))
          ss (ssget '((0 . "LwPolyline") (70 . 1))))
    (progn (vla-StartUndomark dc)
      (vlax-for m (setq sl (vla-get-ActiveSelectionSet dc))
        (setq hc (vlax-invoke (vla-get-ModelSpace dc)
          'AddHatch 0 "SOLID" :vlax-True 0))
        (vlax-invoke hc 'AppendInnerLoop (list m))
        (vla-put-Layer hc (vla-get-Layer m))
        (vla-Evaluate hc))
      (vla-EndUndomark dc)
      (vla-Delete sl)
    )
  ) (princ)
)
30.01.2023 09:38    
hll19100
teşekkür ederim.

> 1 <
Copyright © 2004-2022 SQL: 1.37 saniye - Sorgu: 48 - Ortalama: 0.02854 saniye