AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > Acemi AutoLISP > Yalnız Aligned ve Rotated Dimension seçmek
05.08.2022 18:42    
akcan
yalnız Aligned ve Rotated Dimension seçmek için aşağıdaki satırı nasıl girmeliyim.
Kod:

(setq sSet (ssget '((0 . "*DIMENSION"))))
06.08.2022 09:45    
alumina
Alıntı
akcan :

Direkt bir secim yontemi yok sanki. Dolayli olarak secilebilir ama.
Kod:

(defun c:qw (/ sc ss i n)
  (if (setq sc (ssadd)
        ss (ssget '((0 . "Dimension"))))
    (sssetfirst nil (repeat (setq i (sslength ss))
      (setq i (1- i) n (ssname ss i)
        sc (if (member "AcDbAlignedDimension"
             (mapcar 'cdr (entget n)))
               (ssadd n sc) sc))))
  ) (princ)
)
06.08.2022 09:51    
akcan
teşekkürler
şöyle bir şey denemiştim ama diğer ölçü türlerini de seçiyor
Kod:

(ssget  '((0 . "DIMENSION")(-4 . "<OR")(100 . "AcDbAlignedDimension")(100 . "AcDbRotatedDimension")(-4 . "OR>")))
06.08.2022 10:19    
alumina
Alıntı
akcan :

Oncesinde7-8 degisik sekilde denedim ama isin icine '(100 . "..") girince direkt secim yapmiyor maalesef.

06.08.2022 11:55    
akcan
interneti aradım taradım. çok sayıda deneme yaptım. sonunda bu sayfadaki bilgiler ile bir şeyler oluşturdum. denemelerimde doğru seçiyor.
belki acemilikle sağ kulağı sol elle göstermiş olabilirim.
Kod:

(ssget
'((0 . "*DIMENSION") (-4 . "<OR")
  (70 . 0) (70 . 32) (70 . 64) (70 . 128) (70 . 96) (70 . 160) (70 . 192) (70 . 224)
  (70 . 1) (70 . 33) (70 . 129) (70 . 97) (70 . 161) (70 . 193) (70 . 225)
  (-4 . "OR>"))
)
> 1 <
Copyright © 2004-2022 SQL: 1.006 saniye - Sorgu: 55 - Ortalama: 0.0183 saniye