OPGELOST Wil graag "MyLayerToolbar" gebruiken

[AKeng]

Hallo

Door eens lekker op dit form te struinen kwam ik deze topic tegen https://www.cadsite.be/smf/index.php?topic=3523.15
Dit vind ik erg interesant dus heb ik het geprobeerd maar bij mij werkt het niet lekker.
Deze macro zit onder mijn Line button

Code Selecteer Uitklappen

^C^C^C_-TOOLBAR;MyLayerToolbar;_SHOW;\_-TOOLBAR;MyLayerToolbar;_HIDE;_PLINE
en heb een nieuwe Toolbar gemaaakt "MyLayerToolbar" met daar "layer control".

Als ik nu op de button druk komt netjes mijn nieuwe Toolbar kies de juiste layer hierna verdwijnd de Toolbar niet.
Volgens mij heb ik mij het allemaal goed staan als ik de topic goed door lees.
Maar wat is er nu mis.

[AKeng]

Niemand die een tip heeft 

[EddyBeerke]

In Nederland zijn net de vakanties voorbij... Misschien iets meer geduld hebben dan kunnen de mensjes alles uitproberen om je te helpen. Ik heb zelf ook nog geen tijd gehad.

[AKeng]

Daar heb je gelijk aan, ik staat daar nooit zo bij stil.
In mijn omgeving is jan en alleman altijd aan het werk.

[roy_043]

Heb je de alternatieve macro al getest:

Code Selecteer Uitklappen

^C^C^C(command "_-toolbar" "MyLayerToolbar" "_show")(command "_.pline")(while (= 1 (logand (getvar "cmdactive") 1))(command pause))(command "_-toolbar" "MyLayerToolbar" "_hide")(princ)

[AKeng]

Deze had ik ook geprobeerd maar spring dan gelijk naar de ".pline" laat wel de toolbar zien maar verder niet.

Code Selecteer Uitklappen

(command "_-toolbar" "MyLayerToolbar" "_show")(command
"_.pline")(while (= 1 (logand (getvar "cmdactive") 1))(command pause))(command
"_-toolbar" "MyLayerToolbar" "_hide")(princ) _-toolbar Enter toolbar name or
[ALL]: MyLayerToolbar
Enter an option [Show/Hide/Left/Right/Top/Bottom/Float] <Show>: _show
Command: _.pline
Specify start point:

[roy_043]

Dat gebeurt ook in BricsCAD. Maar op dat punt kan middels de layer control de layer worden gewijzigd.

[AKeng]

Dat lukt bij mijn AutoCad 2009 niet

[roy_043]

Hier een oplossing die gebruikmaakt van LSP en DCL. Plaats de bestanden in een map die onderdeel uitmaakt van het zoekpad.

Voorbeeldmacro:

Code Selecteer Uitklappen

^c^c^p(progn (if (not LyrDia) (load "LyrDia")) (LyrDia));_pline^p

[AKeng]

Ik ga het morgenvroeg gelijk proberen.

[roy_043]

Ik heb nog twee kleine dingen aangepast:
(vl-load-com) toegevoegd (is vereist voor AutoCAD maar niet voor BricsCAD).
Alfabetisch sorteren lijst.

Zie nieuwe bijlage bij mijn vorige bericht.

[AKeng]

Heb het net uit geprobeerd met:

Code Selecteer Uitklappen

^c^c^p(progn (if (not LyrDia) (load "LyrDia")) (LyrDia));_pline^p
Het menu komt, kan ook een keuze maken, alleen het vervolg "Pline" word niet uit gevoerd.
AutoCad kent ook geen "progn".

Heb het eens veranderd naar mijn eigen idee:

Code Selecteer Uitklappen

^c^c_LyrDia;_Pline
Dan krijg ik geen menu maar kan wel de "Pline" uitvoeren.

Ik ben er nog verder mee aan het stoeien.

[AKeng]

Okay
Dit zou het moeten zijn, het werkt bij 

Code Selecteer Uitklappen

^c^c^(load "LyrDia") (LyrDia);_pline

[roy_043]

Jouw uitspraak dat AutoCAD progn niet kent is niet correct. Progn is een standaard Lisp-functie.

Misschien werkt deze macro?

Code Selecteer Uitklappen

^c^c(if (not LyrDia) (load "LyrDia"));(LyrDia);_pline

[AKeng]

Jouw uitspraak dat AutoCAD progn niet kent is niet correct. Progn is een standaard Lisp-functie.

Ik krijg deze melding in AutoCad 2009

progn Unknown command

Code Selecteer Uitklappen

^c^c(if (not LyrDia) (load "LyrDia"));(LyrDia);_pline

Dit werkt ook