meerdere teksten tegelijk aanpassen

disslbot · wo 16 07 2008, 10:05:47

ik heb in mijn tekening hoogtematen gezet. Nu moeten de waarden van al deze hoogtematen 5cm hoger worden. Hoe kan ik deze waarden in een keer aanpassen zodat ik niet een voor een de maten moet aanklikken en veranderen?

Dissl

hulpje · wo 16 07 2008, 10:27:23

Zie http://www.autocadexchange.com/forum/list_message/12311?data[source]=rss#m12311

Richard

EddyBeerke · wo 16 07 2008, 12:50:21

Citaat van: disslbot op wo 16 07 2008, 10:05:47
ik heb in mijn tekening hoogtematen gezet. Nu moeten de waarden van al deze hoogtematen 5cm hoger worden. Hoe kan ik deze waarden in een keer aanpassen zodat ik niet een voor een de maten moet aanklikken en veranderen?

Dissl

Je zou met b.v. VBA een selectie kunnen aanmaken, de getallen er uit halen en die met 5cm ophogen, dan de waarde terug in de tekst plaatsen.

Hier een voorbeeld voor een tekstobject.

Code Selecteer


ThisDrawing.Utility.GetEntity TXT, PP, "Selecteer tekstobject: "
A = txt.TextString '<<-- Hier moet je de waarde ophogen. -->>

TXT.TextString = A

disslbot · do 17 07 2008, 09:53:17

Bedankt voor jullie antwoorden.
ik denk dat find & replace idd de beste oplossing is, op dit moment. Mijn kennis van programmeren is 0,0 dus ik ben bang dat dat voorlopig geen optie is totdat ik me daar in verdiept heb.

hulpje · do 17 07 2008, 11:04:25

Beste Disslbot,

Gaarne hier http://www.autocadexchange.com/forum/list_message/12313?data[source]=rss#m12313 ook aan geven, dat je vraag opgelost is!

Richard

EddyBeerke · do 17 07 2008, 11:12:23

Citaat van: hulpje op do 17 07 2008, 11:04:25
Beste Disslbot,

Gaarne hier http://www.autocadexchange.com/forum/list_message/12313?data[source]=rss#m12313 ook aan geven, dat je vraag opgelost is!

Richard

Volgens mij is het nog steeds niet opgelost... Het verwachtte antwoord zit er toch niet bij, dan zou ik dat ook wel willen weten hoe of dat het is opgelost.

disslbot · di 22 07 2008, 08:37:31

Uiteindelijk ben ik de maten een voor een langs gegaan. Met find & replace heb ik het geprobeerd, maar daardoor vergat ik maten aan te passen en andere maten die niet aangepast hoefden te worden, paste ik per ongeluk ook aan. Toch nog niet helemaal optimaal. We hebben hier op kantoor zelfs de helpdesk van autocad nog gebeld, deze geeft aan dat het alleen kan dmv het schrijven van een programma, zoals jij ook al zei, EddyBeerke.

EddyBeerke · di 22 07 2008, 08:43:36

Citaat van: EddyBeerke op wo 16 07 2008, 12:50:21
...
Je zou met b.v. VBA een selectie kunnen aanmaken, de getallen er uit halen en die met 5cm ophogen, dan de waarde terug in de tekst plaatsen.

Hier een voorbeeld voor een tekstobject.
Code Selecteer Uitklappen
ThisDrawing.Utility.GetEntity TXT, PP, "Selecteer tekstobject: " A = txt.TextString '<<-- Hier moet je de waarde ophogen. -->> TXT.TextString = A

Je zou het toch eens moeten proberen.
Eerst investeren en dan winst maken -->> Eerst tijd in een macro steken en dan sneller werken!!!

disslbot · ma 11 08 2008, 12:43:09

Tja, daar heb je gelijk in, maar dan moet ik die tijd wel krijgen van mijn baas...
En ik vind het nou ook weer niet zo interessant dat ik me daar thuis buiten werktijd in ga verdiepen!