AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Menü yükleme lispi çalışma problemi
25.07.2010 20:01    
yazgunesi
Arkadaşlar ;

Autocad'e menü yüklemek için Autolisp programı yazdım, fakat menünün kendisini yükleyemiyor.. Daha doğrusu yükleme yapıldı diye mesaj var ama ekranda menü falan hiç bir şey gözükmüyor.Bu arada tolbarlarım var onlar ekrana geliyor..

Oysa manuel yöntemle (Autocad 2007) dialog kutusu üzerinden yükleme yapılınca menu ekranda gözüküyor..


Kod:

(defun C:mymenu22 () 

(setvar "FILEDIA" 0)
                 
(command "menuload" "c:\\Lispbase\\Menu2010.mnu")

(setvar "FILEDIA" 1)
                 
(menucmd "P12=+Menu2010.POP13")  ;load the pulldown menu
                 
(prompt "\nLoading Custom Menu....\n") ;Inform the user
 
(princ)
)


(Princ "\n Menü yüleme komutu -->> mymenu22 <<-- ")
25.07.2010 20:55    
ehya
bununla beraber menü dosyasını da ekleseydin daha iyi olurdu.
kod'larda hata görünmüyor. sadece dikkatimi çeken neden POP13 verdin.
yeni bir menü dosyası olduğuna göre POP1 diyebilirdin..

26.07.2010 17:03    
yazgunesi
Dediğin gibi ehya, POP1 olarak ta denedim kodlamayı değiştirerek ama menüyu yüklettiremedim.Normalde manuel yolla yükleme yapılınca menü yükleniyor ve çok güzel de çalışıyor..

Menu2010.mnu

Kod:

//
//   Autocad Araç Kiti menü dosyası
//


***MENUGROUP=A.CAD Bonus Menu

***POP44
**A.CAD Bonus
AB_01   [A.Cad Bonus Araçları]


          [--]
AB_02   [->A.Cad Modify]

AB_03   [Rename block]^C^C_rbk
AB_04   [Line by layer]^C^C_lnby
AB_05   [Auto viewres]^C^C_wr

          [--]
AB_06   [Çap işareti]^C^C_cap
AB_07   [Pah x45 derece işareti]^C^C_ph45
AB_08   [Metrik M20 işareti]^C^C_mm
AB_09   [<-Metrik M20x2 işareti]^C^C_mmm


          [--]
AB_10   [->A.Cad Anitation]
AB_11   [Yüzey işlem üçgen sembolü]^C^C_3g
AB_12   [Krom kaplama sembolü]^C^C_krkpl
AB_13   [<-Ölçülendirme tolerans sembolü]^C^C_olctrl


          [--]
AB_14   [->A.Cad Saç Açınımları]
AB_15   [Koni çizimi ve saç açılımı]^C^C_koni1
AB_16   [Mevcut koni çizgileri seç]^C^C_koni2
AB_17   [Mavcut koni çizgi noktalarını seç]^C^C_koni3
AB_18   [<-Silindir saç açınımı]^C^C_sdciz
27.07.2010 06:07    
ehya
Kodların yenilerini yazıyorum.


Kod:

(defun C:mymenu22 () 
(setvar "FILEDIA" 0)
(command "menuload" "c:\\Lispbase\\Menu2010.mnu")
(setvar "FILEDIA" 1)
(menucmd "P12=+YAZGUNESI.POP1")  ;load the pulldown menu
(prompt "\nLoading Custom Menu....\n") ;Inform the user
(princ)
)





Kod:

//
//   Autocad Araç Kiti menü dosyası
//


***MENUGROUP=YAZGUNESI

***POP1
**A.CAD Bonus
AB_01   [A.Cad Bonus Araçları]


          [--]
AB_02   [->A.Cad Modify]

AB_03   [Rename block]^C^C_rbk
AB_04   [Line by layer]^C^C_lnby
AB_05   [Auto viewres]^C^C_wr

          [--]
AB_06   [Çap işareti]^C^C_cap
AB_07   [Pah x45 derece işareti]^C^C_ph45
AB_08   [Metrik M20 işareti]^C^C_mm
AB_09   [<-Metrik M20x2 işareti]^C^C_mmm


          [--]
AB_10   [->A.Cad Anitation]
AB_11   [Yüzey işlem üçgen sembolü]^C^C_3g
AB_12   [Krom kaplama sembolü]^C^C_krkpl
AB_13   [<-Ölçülendirme tolerans sembolü]^C^C_olctrl


          [--]
AB_14   [->A.Cad Saç Açınımları]
AB_15   [Koni çizimi ve saç açılımı]^C^C_koni1
AB_16   [Mevcut koni çizgileri seç]^C^C_koni2
AB_17   [Mavcut koni çizgi noktalarını seç]^C^C_koni3
AB_18   [<-Silindir saç açınımı]^C^C_sdciz
27.07.2010 09:22    
ProhibiT
Konuyla doğrudan ilgisi olmayan küçücük bir detay dikkatimi çekti;
FileDia sistem değişkeninin değeri 1 iken, AutoCAD komut satırından "MenuLoad" girilincee diyalog kutusu açılıyor.
Ama, aynı durumda (command "menuload"... şeklinde AutoLisp içinden kullanılıncaa diyalog kutusu açılmıyor.
Sonuç olarak "FileDia" sistem değişkeninin kapatılıp açılmasına gerek yok diye düşünüyorum :)

Kolay Gelsin...

> 1 <
Copyright © 2004-2022 SQL: 1 saniye - Sorgu: 53 - Ortalama: 0.01887 saniye