;
; az alkalmazás az aktuális térben lévő összes blokk
; illesztési pontjának Z értékét 0.0-ra állítja
;
(print "Utasítás: szint-0")
(defun c:szint-0 (/ sel bnum idx ent atts p1 p2)
  (if
    (setq sel (ssget "X" ((410 . "Model") (0 . "INSERT"))))
    (setq bnum (sslength s))
    (setq bnum 0)
  )
  (print
    (strcat "A rajz modellterében található blokkelemek száma: "
	    (itoa bnum)
    )
  )
  (setq idx 0)
  (while (>= bnum idx)
    (setq ent (ssname sel idx))
    (setq idx (+ idx 1))
    (setq atts (entget ent))
    (setq p1 (cdr (assoc 10 atts)))
    (setq p2
	   (list
	     (car p1)			; X koordináta
	     (cadr p1)			; Y koordináta
	     0.0			; Z koordináta
	   )
    )
    (vla-move (vlax-ename->vla-object ent)
         (vlax-3d-point p1)
         (vlax-3d-point p2))    
  )
  (print)
)


