Forum
Download
Galeri
Üye Ol
|
Giriş
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
77950
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: 0.887 saniye - Sorgu: 41 - Ortalama: 0.02164 saniye