AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Poz ve uzunluğu yazdırmak
30.06.2014 12:37    
k005
Merhaba arkadaşlar;
iki ayrı text objeyi bir satıra yazdırmak istiyorum,,

örnek:
- seçim sıram şu şekilde; önce Poz daha sonra uzunluk, sonra tekrar poz akabinde uzunluk bu şekilde ...

örnek;

Dosya içeriği

P U
-- --
1 500
2 300
3 750
4 800
5 70


Kod:

(defun c:txt()
  (vl-load-com)
    (setq file_open (open (strcat (getvar "dwgprefix") (vl-filename-base (getvar "dwgname")) "_Metraj.txt") "a"))
  (setq sec_text (entsel "\nYazıyı seçiniz :"))
  (while (= sec_text nil)
  (setq sec_text (entsel "\nYazıyı seçiniz :")))
  (while (/= sec_text nil)
    (setq text_al (cdr (assoc 1 (entget (car sec_text)))))
    (princ "\n>> ")
    (princ text_al)
    (setq str (strcat text_al "  " text_al))
    (write-line str file_open)
    (setq sec_text (entsel "\ndiğer Yazı :")))
  (close file_open))

yardımcı arkadaşa şimdiden teşekkürler..

k005 (30.06.2014 16:49 GMT)

> 1 <
Copyright © 2004-2022 SQL: 1.07 saniye - Sorgu: 41 - Ortalama: 0.02611 saniye