kan iemand mijn lips file controleren. ik krijg hem niet werkend

[robinfranken]

Hoi,
Ik zit met een probleem onderstaande lisp file krijg ik niet werkend in autocad.

De bedoeling is dat op het moment ik W-enter toets er automatisch layers geplaats word. Echter weet ik niet hoe ik dit voor elkaar krijg. ik hoop dat jullie me kunnen helpen. ik ben al een het stoeien gegaan in de editor echter word ik hier niet veel wijzer van.

betreft:

Command: w
_.Layer
Current layer: "0"
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Make
Enter name for new layer (becomes the current layer) <0>: BELIN 4 LEEBOND 4MM
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Color
New color [Truecolor/COlorbook] : 90
Enter name list of layer(s) for color 90 <BELIN 4 LEEBOND 4MM>: Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: LType
Enter loaded linetype name or [?] <Continuous>: Continuous
Enter name list of layer(s) for linetype "Continuous" <BELIN 4 LEEBOND 4MM>:
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]:
Command: _.Layer
Current layer: "BELIN 4 LEEBOND 4MM"
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Make
Enter name for new layer (becomes the current layer) <BELIN 4 LEEBOND 4MM>:
PUNTALU LEEBOND 4MM Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Color
New color [Truecolor/COlorbook] : 30
Enter name list of layer(s) for color 30 <PUNTALU LEEBOND 4MM>: Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: LType
Enter loaded linetype name or [?] <Continuous>: Continuous
Enter name list of layer(s) for linetype "Continuous" <PUNTALU LEEBOND 4MM>:
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]:
Command: _.Layer
Current layer: "PUNTALU LEEBOND 4MM"
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Make
Enter name for new layer (becomes the current layer) <PUNTALU LEEBOND 4MM>:
PUNTALU LEEBOND 3.53 Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Color
New color [Truecolor/COlorbook] : 50
Enter name list of layer(s) for color 50 <PUNTALU LEEBOND 3.53>: Enter an
option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: LType
Enter loaded linetype name or [?] <Continuous>: Continuous
Enter name list of layer(s) for linetype "Continuous" <PUNTALU LEEBOND 3.53>:
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]:
Command: _.Layer
Current layer: "PUNTALU LEEBOND 3.53"
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Make
Enter name for new layer (becomes the current layer) <PUNTALU LEEBOND 3.53>:
BERLIN 2 MM LEEBOND 4MM Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Color
New color [Truecolor/COlorbook] : 7
Enter name list of layer(s) for color 7 (white) <BERLIN 2 MM LEEBOND 4MM>:
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: LType
Enter loaded linetype name or [?] <Continuous>: Continuous
Enter name list of layer(s) for linetype "Continuous" <BERLIN 2 MM LEEBOND
4MM>: Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]:
Command: _.Layer
Current layer: "BERLIN 2 MM LEEBOND 4MM"
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Make
Enter name for new layer (becomes the current layer) <BERLIN 2 MM LEEBOND 4MM>:
BORING 5MM Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Color
New color [Truecolor/COlorbook] : 10
Enter name list of layer(s) for color 10 <BORING 5MM>: Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: LType
Enter loaded linetype name or [?] <Continuous>: Continuous
Enter name list of layer(s) for linetype "Continuous" <BORING 5MM>: Enter an
option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]:
Command: _.Layer
Current layer: "BORING 5MM"
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Make
Enter name for new layer (becomes the current layer) <BORING 5MM>: BORING 10MM
Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: _Color
New color [Truecolor/COlorbook] : 162
Enter name list of layer(s) for color 162 <BORING 10MM>: Enter an option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]: LType
Enter loaded linetype name or [?] <Continuous>: Continuous
Enter name list of layer(s) for linetype "Continuous" <BORING 10MM>: Enter an
option
[?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck
/Unlock/stAte/Description/rEconcile]:


ik hoop dat er iemand is die me kan helpen.

Groetjes Robin

[EddyBeerke]

Misschien kun je het lisp bestand hier posten?
Dan kunnen we naar de code kijken en niet naar de uitvoer van de commandoregel.

P.S.
Welkom op deze site.

[HofCAD]

Beste Rob,

Probeer eens bijgevoegde Lisp.
Om het programma te starten met een W vind ik niet zo'n idee,
omdat de W een alias is voor het commando WBLOCK.

Met vriendelijke groet, HofCAD CSI.

PS1: Bovenstaande tip van Eddy is zeer goed.
PS2: Waarschijnlijk vergeet je een extra enter om je commando LAYER
       af te sluiten.

[robinfranken]

Hey,

Top dat jullie me willen helpen. Omdat je het commando W niet slim vind heb je dan ook een alternatief eventueel?

Er is een programeur weggegaan en vond het nodig betreffede functie van ons workstation te halen. We gebruiken het erg veel, in de glorie tijd was het w enter en poef alle lijnen werden automatisch aangepast en in de juiste layers gezet. Onze vijf 5 assige freesmachine is geprogrameerd op deze layers.


@Hofcad: ik heb je bestand ingeladen via app load maar er gebeurd niks automatisch.
misschien doe ik iets verkeerd? ik moet nog veel leren...

bijgaand vind het orginelen bestand.

[robinfranken]

heren,

excusses bijgaand zit een dxf file met de layers die in het lips file zouden moeten staan.
blijkbaar is er iets niet goed gegaan.

ik hoop dat ik niet vervelend word.