zaznaczanie obiektów danego typu

Thread View: pl.comp.cad

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by mwojc Fri, 14 May 2010 13:34

#53469

Author: mwojc
Date: Fri, 14 May 2010 13:34

13 lines
1040 bytes

Witam!

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.

Pytam, bo potrzebuję wygrzebać z rysunku autocada współrzędne X,Y,Z  
wszystkich punktów jakie się na nim znajdują. Są ich tysiące, więc sami  
rozumiecie...

Pzdr,
--
Marek

Re: zaznaczanie obiektów danego typu

#53470

Author: PiotrB.
Date: Fri, 14 May 2010 13:53

9 lines
1028 bytes

Dnia 14-05-2010 o 15:34:28 mwojc <mwojc@jakisserwer.pl> napisał(a):

> 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

Re: zaznaczanie obiektów danego typu

#53471

Author: Bartosz
Date: Sat, 15 May 2010 20:19

9 lines
1082 bytes

W dniu 2010-05-14 15:34, mwojc pisze:
 > 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

Re: zaznaczanie obiektów danego typu

#53472

Author: Bartosz
Date: Sat, 15 May 2010 20:58

48 lines
2137 bytes

W dniu 2010-05-15 22:19, Bartosz pisze:
> 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")
					;=============================================================

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads