yoin

Nico160775

Ja, mannen  da gaat ier een beetje mijn petje te boven...
Denk dat ik een paar stappen terug ga moeten zetten en me eerst een beetje moet verdiepen in LSP.

In ieder geval, iedereen merci...

Nico160775

Citaat van: cetacad op di 05 01 2010, 17:09:14
Plaats het onderstaande in het bestand Acad2009doc.lsp . Dit bestand wordt bij het openen van iedere tekening doorlopen, dus zal de routine bij het openen van iedere tekening uitgevoerd worden.

(load "TEKNUM")
(C:TEKNUM)


Het bestand TEKNUM.lsp heb toegevoegd. Deze moet in een dir geplaatst worden die AutoCad weet te vinden.

In deze routine heb ik de volgende uitgangspunten gehanteerd:
- Dat de onderhoek "Titelhoek" heet. Dit is waarschijnlijk niet zo en moet dus aangepast worden.
- Dat de aan te passen regel het 5e element in de attribute is. Als dit niet zo is moet je even spelen met de positie van het teken ; wat voor de regels staat. Dit geeft aan dat een regel wel of niet uitgevoerd wordt.
- Dat je alles wat voor het teken _ staat als nummer wilt weergeven    (123456_00.dwg wordt 123456).

succes. Fred






Dag Fred,

Heb je lps getest en super gevonden....het werkt dus echt wel goed....nu zou ik een stap verder willen gaan en naar dit getal altijd /000/ willen hebben.
dus dan wordt       12345678910_00      wordt    12345678910/000/

merci

cetacad



(setq teknaam (substr teknaam 1 (- nummer 2)))          ;= 11e regel in de routine

moet dan worden :

(setq teknaam (strcat(substr teknaam 1 (- nummer 2))"/000/"))  


succes, Fred

Nico160775

Citaat van: cetacad op vr 08 01 2010, 14:11:10

(setq teknaam (substr teknaam 1 (- nummer 2)))          ;= 11e regel in de routine

moet dan worden :

(setq teknaam (strcat(substr teknaam 1 (- nummer 2))"/000/"))  


succes, Fred




Merci, Fred dit heeft me veel geholpen.... aan de rest ook bedankt.

FastFiber