15.02.2009 14:35    

(defun c:mmm ()
(setq sec (ssget))
(setq say (sslength sec))
(setq yer (getpoint "yer"))
(setq n 0)
(setq x 10)
(while (< n say)
(setq sec1 (ssname sec n))
(setq yerx (car yer))
(setq yery (cadr yer))
(setq yyer (list yerx (- yery x)))
(setq son (cdr (alloc 1 (entget (car sec1)))))
(command "text" yyer 8 0 son)
(setq n (+ n 1))
(setq t (+ x 10))
)
)


yukarda ssget ile seçtigim textleri ekranda belilediğim noktadan aşağı doğru alt alta sıralamak istiyorum

bi türlü olmuyor ne eksiğim var

teşekkürler