Read only iletisini almak | Forumlar - Çizim Okulu


Forum	Download	Galeri	AboneOl

Üye Ol veya Giriş Yap

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 700, Üye: 4
hayta06, mttlp, sadikozer, Selingrss

Forumlar > AutoLISP > Read only iletisini almak

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
20.04.2011 05:41 63971	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Merhaba arkadaşlar; qsave komutu ile kayıt yaparken read olny iletisini nasıl alabiliriz. ? (DEFUN C:Q () (COMMAND "QSAVE") (write-line "Dosya Kaydedildi.") (princ)) yardımcı olacak arkadaş(lar)a şimdiden teşekkürler. herkese kolay gelsin.

20.04.2011 09:31 63972	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
Activex kullanarak çözüm mümkün. ama epeyce karmaşık. runscr.Dll ile dos script kullanmak gerekiyor. işletim sistemi ve platformlar arası farklılıklar oluyor. bunun için bence en kestirme ve garanti yol doslib kullanmak. Kod: (defun C:Q () (DOSLibLoader) (setq Dwg (strcat (getvar "dwgprefix") (getvar "dwgname"))) (setq AtR (cdr (nth 0 (dos_attrib Dwg)))) (if (= (* (/ AtR 2) 2) AtR) (progn (command "_.QSave") (write-line "Dosya Kaydedildi."))) (princ) ) (defun DOSLibLoader (/ acad proc fname) (setq acad (substr (getvar "ACADVER") 1 2) proc (= "AMD64" (getenv "PROCESSOR_ARCHITECTURE"))) (if proc (setq fname (strcat "DOSLib" acad "x64.arx")) (setq fname (strcat "DOSLib" acad ".arx"))) (if (findfile fname) (arxload fname nil) (progn (prompt (strcat "\n" fname " not found.")) (exit))) ) (dos_attrib Dwg) den dönen AtR değeri tek ise drawing dosyası Read-Only, çift ise değildir, qsave işlemi uygulanabilir. doslib ile ilgili detaylı bilgiye ihtiyaç duyarsanız sitemizde bulabilirsiniz. kolay gelsin. Beğenmek için anlamak lazım...

20.04.2011 12:32 63974	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Hocam, doslib18.Arx support içine kopyaladım. lisp çalışıyor fakat, ileti yok.. kaydedilince ileti var.. read only de hiç bir ileti yok..

20.04.2011 16:24 63978	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
Fonksiyonu ayen kullandığınızda doğrudur. çünki read-only değilse qsave uygulayıp açıklama mesajı verip çıkıyor. drawing dosyası read-only ise hiç bir işlem yapmadan çıkıyor. Kod: (defun C:Q () (DOSLibLoader) (setq Dwg (strcat (getvar "dwgprefix") (getvar "dwgname"))) (setq AtR (cdr (nth 0 (dos_attrib Dwg)))) (if (= (* (/ AtR 2) 2) AtR) (progn (command "_.QSave") ;;;; (write-line "Dosya Read Only değil") (write-line "Dosya Kaydedildi.") ;;;; ) (write-line "Dosya Read Only")) (princ) ) (defun DOSLibLoader (/ acad proc fname) (setq acad (substr (getvar "ACADVER") 1 2) proc (= "AMD64" (getenv "PROCESSOR_ARCHITECTURE"))) (if proc (setq fname (strcat "DOSLib" acad "x64.arx")) (setq fname (strcat "DOSLib" acad ".arx"))) (if (findfile fname) (arxload fname nil) (progn (prompt (strcat "\n" fname " not found.")) (exit))) ) Fonksiyon bu haliyle, Read Only olup olmadığını kotrol eder, Read Only değilse Qsave uygular. yalnızca drawing dosyasının read only olup olmadığını kontrol etmek için ;;;; işaretli satırları kaldırmak yeterli. kolay gelsin. Beğenmek için anlamak lazım...

20.04.2011 17:01 63979	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Hocam tamamdır. teşekkürler.

> 1 <

Copyright © 2004-2022 | Tüm Hakları Saklıdır | 2036 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim
SQL: 0.899 saniye - Sorgu: 57 - Ortalama: 0.01578 saniye