zaznaczanie obiektów danego typu

[mwojc]

Witam!

Wiecie mo=C5=BCe jak w Autocadzie zaznaczy=C4=87 na rysunku wszystkie ob=
iekty danego =

typu, np. punkty, linie czy polilinie, nie klikaj=C4=85c ka=C5=BCdego po=
kolei? Mam =

Autocada 2006.

Pytam, bo potrzebuj=C4=99 wygrzeba=C4=87 z rysunku autocada wsp=C3=B3=C5=
=82rz=C4=99dne X,Y,Z =

wszystkich punkt=C3=B3w jakie si=C4=99 na nim znajduj=C4=85. S=C4=85 ich=
tysi=C4=85ce, wi=C4=99c sami =

rozumiecie...

Pzdr,
--
Marek

[PiotrB.]

Wiecie może jak w Autocadzie zaznaczyć na rysunku wszystkie obiekty
danego typu, np. punkty, linie czy polilinie, nie klikając każdego po
kolei? Mam Autocada 2006.

_qselect

pozdr. Piotr

[Bartosz]

Post by mwojc
Witam!
Wiecie może jak w Autocadzie zaznaczyć na rysunku wszystkie obiekty
Marek

'filter
Ale to Ci niewiele pomorze.
Lepszy byłby lisp, który je zapisuje do pliku txt

[Bartosz]

Post by Bartosz
Lepszy byłby lisp, który je zapisuje do pliku txt

Poniższy program wybiera tylko obiekty typu POINT i wypisuje ich
współrzędne. 10min pracy oczywiście bazując na kodzie innej funkcji.
Watro popracować nad lispami. Ten jest napisany bez activex


(defun dxf (code elist)
(if (= (type elist) 'ENAME)
(cdr (assoc code (entget elist)))
;Znajduje pare, usuwa 1szy element
(cdr (assoc code elist))
)
) ;defun
(defun c:punkty (/ zbiór dług licznik)
(command "redraw")
(princ
"Wskarz punkty; wszystkie <Enter>: "
)
(setq
zbiór
(ssget
'((0 . "POINT")
)
) ;ssget
) ;setq
(if (= zbiór nil)
(setq
zbiór
(ssget "X"
'((0 . "POINT")
)
) ;ssget
) ;setq
) ;if
(setq
dług (sslength zbiór)
licznik 0
) ;setq
(repeat dług
(princ "\n")
(princ (dxf 10 (entget (ssname zbiór licznik))))
(setq licznik (1+ licznik))
) ;repeat
(princ)
) ;defun
(princ "\nwypisywanie współzednych - komenda PUNKTY")
;=============================================================