AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Save as lispi
12.06.2012 06:58    
emasi
Selamun aleykum
Tesevvür edin ki modelde çoklu çizgiler var bunları iş bitdikden sonra her çizgini ayrı-ayrı DWG uzantısı ile SAVE AS yapmak lazım.
İsteyim (eğer mümkünse) lazım olan cizginin seçdiyimde onu benim istediyim adla SAVE AS yapsın (yalnız seçdiyimi).
Bilmem anlata bildimmi.
Uğurlar :)

12.06.2012 07:45    
ehya
Aleyküm selam.

Kayıt yeri mevcut dosyanın olduğu klasöre mi olacak?

12.06.2012 07:56    
emasi
Evet abi

12.06.2012 08:57    
ehya
Basit bir kodlama. Hatalara karşı fonksiyon yazılmadı.. Dosya adını verirken aynı dosya adının olmamasına dikkat etmelisin.

Komut adı SSA

Kod:

(defun c:ssa ()
(setq ss (ssget))
  (if (= ss nil)
    (progn)
    (progn
      (setq nnn nil)
(while (= nnn nil)
      (setq dosya-adi (getstring t "\nDosya adı:"))
  (if (= dosya-adi nil)
    (progn
      (princ "\nDosya adı vermelisiniz:")
      (setq nnn nil))
    (progn
      (setq kayit-yeri (strcat (getvar "dwgprefix") dosya-adi))
      (command "_.wblock" kayit-yeri "" "0,0,0" ss "")
      (setq nnn t)
      (command "_.oops"))))))(princ))
12.06.2012 09:06    
emasi
Ellerine sağlık abi.
Teşekküler :yes

12.06.2012 11:39    
emasi
Abi çalışdığım faylda şöyle bir mesaj geliyor
Ama senin verdiyin Lispden sonra alınan dwg. uzantılı fayllarda o mesaj çıkmıyor.
Ben nasıl yapa bilirim ki o mesaj diğer fayllarımda da kayb olsun
12.06.2012 12:07    
ehya
çek işaretini kaldır ve "enable macros" butonuna tıkla...

> 1 <
Copyright © 2004-2022 SQL: 1.238 saniye - Sorgu: 61 - Ortalama: 0.0203 saniye