block op de goede laag zetten bij inserten (opgelost)

[marcelmaas]

Beste Lispers,

Is de bijgevoegde lisp makkkelijk zo aan te passen dat het block wat door de lisp ingevoegd wordt gelijk op de goede laag wordt geinsert, en wel op de laag "HCKP_TEKST_TOTAAL"

Ik hoor het graag.

[HofCAD]

Beste Marcel,

Dit stukje programma code maakt eventueel de ontbrekende laag aan,
en zet deze laag 'Current'.

Code Selecteer Uitklappen


(setq Lay "HCKP_TEKST_TOTAAL" ColLay "2" LtLay "Continuous" LwLay 0.25)
(if (not (tblsearch "LAYER" Lay))
(command "_.LAYER" "_M" Lay "_C" ColLay "" "_L" LtLay "" "_LW" LwLay "" "")
(command "_.LAYER" "_T" Lay "_ON" Lay "_S" Lay ""))


Natuurlijk moet je de Color, Ltype en LWeight aanpassen.

Met vriendelijke groet, HofCAD CSI.

[marcelmaas]

Beste Hofcad,

Waar zou dit stukje code dan ergens tussen in moeten komen te staan?


groeten Marcel..

[HofCAD]

Beste Hofcad,

Waar zou dit stukje code dan ergens tussen in moeten komen te staan?


groeten Marcel..

Beste marcel,

Ik kan je programma niet testen, maar ik denk dat het geen kwaad
kan als je de code aan het begin zet.

Met vriendelijke groet, HofCAD CSI.

[marcelmaas]

Okay ga ik morgen gelijk even testen.

Laat morgen wel weten of het werkt.

groeten Marcel..

[marcelmaas]

Ik heb jou code bovenin gezet en nu wordt het block op de goede laag geinsert, dus probleem opgelost

Thanks again..!!!