[lisp of VBA] ACAD image menu *

[moser]

Ik ben een menu aan het schrijven voor ACAD 2002
een van de funties van dat menu is het weergeven van enkele slide die men dan kan kiezen en invoegen als blocks.

ik weet dat dit perfect gaat met Designcenter maar Designcenter geeft te veel vrijheid aan mensen die er te weinig van kennen (het is voor school)

Nu werkt mijn menu maar als ik een imagemenu open krijg ik geen slides en ook geen keuzemogelijkheden om in te voegen.

De slides zijn allemaal gemaak en er is een Lib van gemaakt, genaamd EL (dit alles staat in één map met de template)

De blocks bestaan allemaal in de template

code:

***MENUGROUP=EL

***POP1
P1_1[&EL]
P1_2[&Schakelaars]^C^C$I=EL.SCHALEKAARS $I=*
P1_3[--]
P1_4[&Diversen]^C^C$I=EL.DIVERSEN $I=*
P1_5[--]
P1_6[&Relais]^C^C$I=EL.RELAIS $I=*
P1_7[--]
P1_8[S&meltveiligheden]^C^C$I=EL.SMELTVEILIGHEDEN $I=*
P1_9[--]
P1_10[&thermiek]^C^C$I=EL.THERMIEK $I=*
P1_11[--]
P1_12[&Verbruikers]^C^C$I=EL.VERBRUIKERS $I=*


***IMAGE
**SCHAKELAARS
[SCHAKELAARS Created by Moser]
[SCHAKELAARS(KRUIS_BI_HAND,KRUIS_BI_HAND)]INSERT;*KRUIS_BI_HAND;\;;
[SCHAKELAARS(NG-BIJKOMEND,NG-BIJKOMEND)]INSERT;*NG-BIJKOMEND;\;;
[SCHAKELAARS(NG_MONO_DRUK,NG_MONO_DRUK)]INSERT;*NG_MONO_DRUK;\;;
[SCHAKELAARS(NG_MONO_HAND,NG_MONO_HAND)]INSERT;*NG_MONO_HAND;\;;
[SCHAKELAARS(NG_MONO_MECH,NG_MONO_MECH)]INSERT;*NG_MONO_MECH;\;;
[SCHAKELAARS(NG_MONO_THERMO,NG_MONO_THERMO)]INSERT;*NG_MONO_THERMO;\;;
[SCHAKELAARS(NG_MONO_VLOTTER,NG_MONO_VLOTTER)]INSERT;*NG_MONO_VLOTTER;\;;
[SCHAKELAARS(NO_BI_DRAAI,NO_BI_DRAAI)]INSERT;*NO_BI_DRAAI;\;;
[SCHAKELAARS(NO_BI_DRUK,NO_BI_DRUK)]INSERT;*NO_BI_DRUK;\;;
[SCHAKELAARS(NO_BI_HAND,NO_BI_HAND)]INSERT;*NO_BI_HAND;\;;
[SCHAKELAARS(NO_BI_TREK,NO_BI_TREK)]INSERT;*NO_BI_TREK;\;;
[SCHAKELAARS(NO_BIJKOMEND,NO_BIJKOMEND)]INSERT;*NO_BIJKOMEND;\;;
[SCHAKELAARS(NO_MONO_DRUK,NO_MONO_DRUK)]INSERT;*NO_MONO_DRUK;\;;
[SCHAKELAARS(NO_MONO_HAND,NO_MONO_HAND)]INSERT;*NO_MONO_HAND;\;;
[SCHAKELAARS(NO_MONO_MECH,NO_MONO_MECH)]INSERT;*NO_MONO_MECH;\;;
[SCHAKELAARS(NO_MONO_THERMO,NO_MONO_THERMO)]INSERT;*NO_MONO_THERMO;\;;
[SCHAKELAARS(NO_MONO_VLOTTER,NO_MONO_VLOTTER)]INSERT;*NO_MONO_VLOTTER;\;;
[SCHAKELAARS(NOODSTOP,NOODSTOP)]INSERT;*NOODSTOP;\;;
[SCHAKELAARS(WIS_BI_DRUK_1,WIS_BI_DRUK_1)]INSERT;*WIS_BI_DRUK_1;\;;
[SCHAKELAARS(WIS_BI_DRUK_2,WIS_BI_DRUK_2)]INSERT;*WIS_BI_DRUK_2;\;;
[SCHAKELAARS(WIS_BI_HAND_1,WIS_BI_HAND_1)]INSERT;*WIS_BI_HAND_1;\;;
[SCHAKELAARS(WIS_BI_HAND_2,WIS_BI_HAND_2)]INSERT;*WIS_BI_HAND_2;\;;
[SCHAKELAARS(WIS_BI_TREK_1,WIS_BI_TREK_1)]INSERT;*WIS_BI_TREK_1;\;;
[SCHAKELAARS(WIS_BI_TREK_2,WIS_BI_TREK_2)]INSERT;*WIS_BI_TREK_2;\;;


***IMAGE
**RELAIS
[RELAIS Created by Moser]
[RELAIS(CONTACT_NG,CONTACT_NG)]INSERT;*CONTACT_NG;\;;
[RELAIS(CONTACT_NO,CONTACT_NO)]INSERT;*CONTACT_NO;\;;
[RELAIS(SPOEL_DISTABIEL,SPOEL_DISTABIEL)]INSERT;*SPOEL_DISTABIEL;\;;
[RELAIS(SPOEL_MONOSTABIEL,SPOEL_MONOSTABIEL)]INSERT;*SPOEL_MONOSTABIEL;\;;
[RELAIS(SPOEL_VERTRAAGD_IN,SPOEL_VERTRAAGD_IN)]INSERT;*SPOEL_VERTRAAGD_IN;\;;
[RELAIS(SPOEL_VERTRAAGD_UIT,SPOEL_VERTRAAGD_UIT)]INSERT;*SPOEL_VERTRAAGD_UIT;\;;
[RELAIS(VERTRAAGD_DICHT_NG,VERTRAAGD_DICHT_NG)]INSERT;*VERTRAAGD_DICHT_NG;\;;
[RELAIS(VERTRAAGD_DICHT_NO,VERTRAAGD_DICHT_NO)]INSERT;*VERTRAAGD_DICHT_NO;\;;
[RELAIS(VERTRAAGD_OPEN_NG,VERTRAAGD_OPEN_NG)]INSERT;*VERTRAAGD_OPEN_NG;\;;
[RELAIS(VERTRAAGD_OPEN_NO,VERTRAAGD_OPEN_NO)]INSERT;*VERTRAAGD_OPEN_NO;\;;


***IMAGE
**DIVERSEN
[DIVERSEN Created by Moser]
[DIVERSEN(SOEPEL_SNOER_HORIZ,SOEPEL_SNOER_HORIZ)]INSERT;*SOEPEL_SNOER_HORIZ;\;;
[DIVERSEN(SOEPEL_SNOER_VERT,SOEPEL_SNOER_VERT)]INSERT;*SOEPEL_SNOER_VERT;\;;
[DIVERSEN(STOPCONTACT_VERT_ONDER,STOPCONTACT_VERT_ONDER)]INSERT;*STOPCONTACT_VERT_ONDER;\;;
[DIVERSEN(STOPCONTACT_VERT_BOVEN,STOPCONTACT_VERT_BOVEN)]INSERT;*STOPCONTACT_VERT_BOVEN;\;;
[DIVERSEN(STOPCONTACT_HORIZ_LINKS,STOPCONTACT_HORIZ_LINKS)]INSERT;*STOPCONTACT_HORIZ_LINKS;\;;
[DIVERSEN(STOPCONTACT_HORIZ_RECHTS,STOPCONTACT_HORIZ_RECHTS)]INSERT;*STOPCONTACT_HORIZ_RECHTS;\;;
[RELAIS(,)]INSERT;*;\;;


***IMAGE
**SMELTVEILIGHEDEN
[SMELTVEILIGHEDEN Created by Moser]
[SMELTVEILIGHEDEN(SMELTV_HORIZ,SMELTV_HORIZ)]INSERT;*SMELTV_HORIZ;\;;
[SMELTVEILIGHEDEN(SMELTV_VERT,SMELTV_VERT)]INSERT;*SMELTV_VERT;\;;


***IMAGE
**THERMIEK
[THERMIEK Created by Moser]
[THERMIEK(THERMO,THERMO)]INSERT;*THERMO;\;;
[THERMIEK(THERMS,THERMS)]INSERT;*THERMS;\;;

***IMAGE
**VERBRUIKERS
[VERBRUIKERS Created by Moser]
[VERBRUIKERS(BEL,BEL)]INSERT;*BEL;\;;
[VERBRUIKERS(ELECTROVENTIEL,ELECTROVENTIEL)]INSERT;*ELECTROVENTIEL;\;;
[VERBRUIKERS(HOORN,HOORN)]INSERT;*HOORN;\;;
[VERBRUIKERS(LAMP,LAMP)]INSERT;*LAMP;\;;
[VERBRUIKERS(MOTOR,MOTOR)]INSERT;*MOTOR;\;;
[VERBRUIKERS(SIGNAALLAMP,SIGNAALLAMP)]INSERT;*SIGNAALLAMP;\;;
[VERBRUIKERS(VERWARMINGSWEERSTAND,VERWARMINGSWEERSTAND)]INSERT;*VERWARMINGSWEERSTAND;\;;
[VERBRUIKERS(ZOEMER,ZOEMER)]INSERT;*ZOEMER;\;;

en ik weet dat ik ook VB kan gebruiken maar daar ken ik jammer genoeg niets van

[moser]

het aan maken van verschillende libraries voor ieder menu helpt niet
evenmin als 'EL.menu' hernoemen 'menu'

[moser]

schopje^^^^

Ik had gehoopt dat er hier ook mensen met ervaring met lisp waren

[EfBe]

moser schreef op 17 december 2002 @ 08:23:
schopje^^^^

Ik had gehoopt dat er hier ook mensen met ervaring met lisp waren

In 1994 bezig geweest met Lisp en Autocad, maar nadien het altijd vermeden. Ik begrijp werkelijk niet waarom je lisp gebruikt voor de aansturing van Autocad, wanneer er iets simpels ingebakken zit als VBA. Lisp is voor bepaalde toepassingen wel aardig (bv bepaalde operaties in autocad) maar niet voor gui/toolbouw. Ik zou toch VBA eens een kans geven.

[moser]

de reden is dat ik de menu's wel ik VB kan maken maar het Image menu kan ik enkel maar in Lisp maken.

Tenzij er mensen zijn die mij op weg kunnen helpen (op welke manier dan ook, behalve "koop een boek over VBA" liefst specifiek over Image menu's) hoor ik het graag

[ Voor 17% gewijzigd door moser op 18-12-2002 19:11 ]

[mbravenboer]

Is Lisp in Autocad het Lisp wat ik denk dat het is

Als dat zo is: bizar .

[moser]

ik weet niet wat je denkt maar in ACAD is Lisp één van de talen die kunnen gebruikt worden om programma's te schriven (Visual Lisp en AutoLisp)

De andere taal is VBA en ik hoop dat iemand mij op weg kan zetten want ik ben nu heel het internet aan het afzoeken

[mbravenboer]

Ik was een beetje vaag ja . Ik bedoelde ANSI Common Lisp: niet echt iets waar een normale programmeur normaal gesproken mee lastig gevallen wordt .