🚀 go-pugleaf

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")
					;=============================================================