Ben tex de yazılı olan kotu Z: değerinde de yazmak istiyorum ama lisple,
Örneğin 20.50 yazıyor bunu kot değeri Z:0.00, Properties den elle yazabilirim ancak bunun gibi 1000 tane tex yazısı var farklı değerlerde hepsinin kotları 0, ben hepsini seçerek yazdığı değere kotu çıkarmasını istiyorum.
benzer bir soru sormak istiyorum . yurt disi sitelerden bir lisp buldum . bu lisp secilen yazinin icerigini alip z degeri olarak kullanip istenilen yere point olusturuyor . bu islemi her text icin tek tek yapilmasi gerekiyor .
bu lispi projedeki tum textleri toplu secerek ve text nin uygulama noktasina pointi otomatik atabilmesi saglanabilir mi
Alıntıbaha07 :
merhabalar
benzer bir soru sormak istiyorum . yurt disi sitelerden bir lisp buldum . bu lisp secilen yazinin icerigini alip z degeri olarak kullanip istenilen yere point olusturuyor . bu islemi her text icin tek tek yapilmasi gerekiyor .
bu lispi projedeki tum textleri toplu secerek ve text nin uygulama noktasina pointi otomatik atabilmesi saglanabilir mi
tesekkurler
---------
(defun C:elev_to_point_4 ()
(setq h 0.7)
(while
(setq ent1 (car (entsel "\nSelev Niv 1")))
(setq p1 (getpoint "Donde:"))
(setq ent1 (entget ent1))
(setq ent1 (cdr (assoc 1 ent1)))
(setq ent1 (distof ent1 2))
(setq x (car p1))
(setq y (cadr p1))
(command "_point" (list x y ent1) h)
)
)
text icerisindeki degeri okuyup , *text uygulama noktasina point ekleyip , *text icerigini point Z olarak uyguluyor
(defun c:txt2pt (/ Point i ss ent pt)
(defun Point (pt) (entmakex (list (cons 0 "POINT") (cons 10 pt))))
(if (setq i -1 ss (ssget '((0 . "TEXT,MTEXT"))))
(while (setq ent (ssname ss (setq i (1+ i))))
(setq pt (cdr (assoc 10 (entget ent))))
(Point (list (car pt) (cadr pt)
(cond ((distof (cdr (assoc 1 (entget ent))))) (0.0))))))
(princ))
