AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Çalışma klasörüne kaydet
18.10.2011 16:26    
k005
Merhaba arkadaşlar;

dxf doyalarının bulunduğu klasörde çalışma yapıyorum. yaptığım değişiklikleri aynı klasör içine versiyon r12 formatında dxf dosyası olarak nasıl oluştururum..?

Kod:

(Defun C:dxf(/)
(setvar "filedia" 0)
(setq nam (Getstring "\Dosya adını giriniz -->"))
(Command "dxfout" nam "O" "" "V" "R12" "")
(setvar "filedia" 1)
(princ)
(princ "\nDXF (R12) Formatında kaydedildi.")
(princ)
)


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

18.10.2011 20:30    
ehya
Kod:

(setvar "filedia" 0)
(setq nam (Getstring t "\Dosya adını giriniz -->"))
(setq dosyayeri (getvar "dwgprefix"))
(command "_.dxfout" (strcat dosyayeri nam) "v" "r12" "")
(setvar "filedia" 1)

ehya (19.10.2011 06:21 GMT)

19.10.2011 05:37    
k005
Alıntı
ehya :

çok teşekkürler ehya hocam..

> 1 <
Copyright © 2004-2022 SQL: 1.001 saniye - Sorgu: 48 - Ortalama: 0.02086 saniye