15.02.2009 14:35    

nesataydin
(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

15.02.2009 14:44    

Harbi65
Kod:

(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 (aSSoc 1 (entget sec1))))
    (command "text" yyer 8 0 son)
    (setq n (+ n 1))
    (setq X (+ X 10))
  )
  (princ)
)

> 1 <
Copyright © 2004-2022 SQL: 0.639 saniye - Sorgu: 46 - Ortalama: 0.0139 saniye