Een handigheidje voor AutoCAD. Het wisselen van de pulldownmenu's zodat je nooit meer te weining ruimte hebt voor je pulldownmenu's. Ik heb deze lisp jaren geleden (AutoCAD2002) "geleend" uit een applicatie en hij werkt nog steeds PRIMA. :mrgreen:
Met vriendelijke groet,
Adrianus.
Plaats onderstaande regels onder een toolbarknop:
^P(G:STROOK "AC" T) ^P
^P(G:STROOK "CA" T) ^P
^P(G:STROOK "CA2" T) ^P
Plaats onderstaande lisp in het startbestand van AutoCAD:
; Wisselen van pulldownmenu's
(defun G:STROOK (SW Meld)
(cond
((= SW "AC")
(G:TAB_STROOK SW Meld)
(while (menucmd "P1.1=?") (menucmd "P1=-"))
(menucmd "P1=+ACAD.POP1") ;File
(menucmd "P2=+ACAD.POP2") ;Edit
(menucmd "P3=+ACAD.POP3") ;View
(menucmd "P4=+ACAD.POP4") ;Insert
(menucmd "P5=+ACAD.POP5") ;Format
(menucmd "P6=+ACAD.POP6") ;Tools
(menucmd "P7=+ACAD.POP7") ;Draw
(menucmd "P8=+ACAD.POP8") ;Dimension
(menucmd "P9=+ACAD.POP9") ;Modify
(menucmd "P10=+ACAD.POP10") ;Window
(menucmd "P12=+ACAD.POP11") ;Help
(menucmd "P40=+Express.POP1") ;Express
(if Meld (princ "\nAutoCAD POP menu's geladen..."))
)
((= SW "CA")
(G:TAB_STROOK SW Meld)
(while (menucmd "P1.1=?") (menucmd "P1=-"))
(menucmd "P1=+ACAD.POP1") ;File
(menucmd "P2=+ACAD.POP2") ;Edit
(menucmd "P3=+ACAD.POP3") ;View
(menucmd "P4=+ACAD.POP4") ;Insert
(menucmd "P5=+ACAD.POP5") ;Format
(menucmd "P6=+ACAD.POP6") ;Tools
(menucmd "P7=+ACAD.POP7") ;Draw
(menucmd "P8=+ACAD.POP8") ;Dimension
(menucmd "P9=+ACAD.POP9") ;Modify
(menucmd "P10=+ACAD.POP10") ;Window
(menucmd "P12=+ACAD.POP11") ;Help
(menucmd "P20=+CA_Basis.POP11") ;Algemeen
(menucmd "P21=+CA_Basis.POP12") ;Teken
(menucmd "P22=+CA_Basis.POP13") ;Basislijn
(menucmd "P24=+CA_Basis.POP19") ;Tekst
(menucmd "P25=+CA_Basis.POP18") ;Maat
(menucmd "P26=+CA_Bouw.POP20") ;Arceren
(menucmd "P27=+CA_Basis.POP14") ;Aanpassen
(menucmd "P28=+CA_Basis.POP16") ;Gereedschappen
(menucmd "P32=+CA_Basis.POP17") ;Methodiek
(menucmd "P40=+Express.POP1") ;Express
(if Meld (princ "\nAutoCAD POP menu's geladen"))
)
((= SW "CA2")
(G:TAB_STROOK SW Meld)
(while (menucmd "P1.1=?") (menucmd "P1=-"))
(menucmd "P1=+CA_Basis.POP11") ;Algemeen
(menucmd "P2=+CA_Basis.POP9") ;Bewerken
(menucmd "P3=+CA_Basis.POP12") ;Teken
(menucmd "P4=+CA_Basis.POP13") ;Basislijn
(menucmd "P7=+CA_Basis.POP19") ;Tekst
(menucmd "P8=+CA_Basis.POP18") ;Maat
(menucmd "P9=+CA_Bouw.POP20") ;Arceren
(menucmd "P10=+CA_Basis.POP14") ;Aanpassen
(menucmd "P15=+CA_Basis.POP16") ;Gereedschappen
(menucmd "P16=+CA_Basis.POP17") ;Methodiek
(menucmd "P40=+Express.POP1") ;Express
(if Meld (princ "\nAutoCAD POP menu's geladen"))
))
(princ)
)
(defun G:TAB_STROOK (SW Meld)
(cond
((= SW "AC")
(menucmd "T1=ACAD.TABLET1STD")
(menucmd "T2=ACAD.TABLET2STD")
(menucmd "T3=ACAD.TABLET3STD")
(menucmd "T4=ACAD.TABLET4STD")
))
(princ)
)
(princ)