AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Polyline sinirlarindan secim olusturmak
26.06.2014 07:17    
özkan-wien
Arkadaslar merhaba,
bir Polyline in icinde kalan ve/veya Polyline ile kesisen bloklari saymak istiyorum. Nasil yazabiliriz böyle bi lispi.
Tesekkürler.

26.06.2014 07:57    
Travaci
Kod:

(defun c:slbl (/ ss n pt) (vl-load-com)
  (if (setq ss (ssget "+.:s" (list (cons 0 "lwpolyline"))))
    (progn (setq n -2 nk (vlax-safearray->list (vlax-variant-value
           (vlax-get-property (vlax-ename->vla-object
           (ssname ss 0)) 'Coordinates))) pt nil)
    (while (< (setq n (+ n 2)) (1- (length nk)))
      (setq pt (append (list (list (nth n nk) (nth (1+ n) nk))) pt)))
    (sssetfirst nil (ssget "_cp" pt (list (cons 0 "insert")))))) (princ))
26.06.2014 09:41    
özkan-wien
tesekkür ederim Travaci. Süper olmus.

26.06.2014 13:04    
özkan-wien
Travaci ben beceremedim bu secilen blocklarin icinden belirli "tag" larin degerlerini okumak istiyorum.
mesela bi blokda "kapi-eni" tagi var digerinde "oda-no" vb.
bunu nasil adapte ederiz lispe.

> 1 <
Copyright © 2004-2022 SQL: 0.949 saniye - Sorgu: 55 - Ortalama: 0.01726 saniye