CADsite forum

Een GSI-bestand van LEICA ziet er toch anders uit, zoals


*110025+0000000000068806 71....+0000000000000000 81..10+0000000001967000 82..10+0000000002025610

Is het al niet omgezet naar een leesbaar bestand ?

De eenvoudigste methode is een VBA-macro met een conversie per regel naar de tekening met een tekensymbool en met het puntnummer. Eenmaal gemaakt, nooit meer intikken en nooit meer fout !!!


gr. stonie

Een Autocad tekening heeft geen schaal, maar een eenheid. De eenheid van de eerste tekening is meters en de tweede 1/10 mm. De tweede tekening is waarschijnlijk ontstaan door inlezen van een coordinatenbestand, want bij een topografische tekening is de eenheid meters.
Het antwoord van Roy moet werken.

Gebruik het commando SCALE in de "te grote tekening" met als basispunt 0,0,0 en als verschalingsfactor 1/10000

Door eerst de elementen met SELECTALL op te pakken.

Daarna is de tekening als achtergrond te gebruiken via een  Externel Reference of als BLOCK in te laden.
Ook met SelectAll/Copy en Paste is de situatie over te halen. Bij de configuratie moet dan wel de invoereenheid op meters of unitless staan.

Het blijkt dat COMMONDIALOG in XP van Visualbasic is en die heb ik niet onder WIN7.

Bestaat er een "look alike" voor die filedialog-functie of moet je zelf een listbox gebruiken, welke ik met een DIR vul?

Stonie

Hallo,

Onder winXP kan ik in VBA de COMMONDIALOG gebruiken voor het openen van een filelist, echter onder WIN7 krijg ik de melding dat de functie niet "proper" is geinstalleerd.
Ik heb al heel wat oplossingen gezien, maar niets werkt.
bv.
regsvr32 c:\Windows\system32\comdlg32.ocx

Wat kan de reden zijn

Stonie

Misschien een beetje laat, maar dan toch voor de volgende.
In de opgeslagen tekening zitten standaard 5 USERI variabelen.
Deze zijn te gebruiken om later weer uit te lezen, dus misschien een optie voor jouw probleem ?

Sub test()
'uitlezen
MsgBox ThisDocument.GetVariable("USERI5")
'invullen
ThisDocument.SetVariable "USERI5", 1
End Sub

Stonie

Citaat van: EddyBeerke op ma 20 12 2010, 10:45:38
Je zou eens naar de instelling "ShowModal" kunnen kijken.
Hiermee kun je bv een soort toolbar maken (wel altijd zichtbaar maar zonde focus) maar dat je toch naar het teken gedeelte kan.

You make my day.

Na in het formulier SHOWMODAL op FALSE gezet te hebben, kon ik zelfs meerdere formulieren plus de tekening benaderen en gebruiken.

Ik kan nu weer verder !!

Heel erg bedankt.

Stonie

Even een reactie van mijzelf.

Wanneer ik  ME.HIDE gebruik, kom ik wel in de tekening en via ME.SHOW kom ik weer terug, maar ik zou de tekening en het formulier gelijk willen benaderen om bijvoorbeeld via het formulier een vaste schaal te kunnen kiezen.

Hallo,

Bij het zoeken van boeken en code om de eerste kennis te vergaren voor mijn overstap na LISP naar VBA kwam ik toevallig via Google op dit item.

AutoCAD.2006.VBA.A.Programmers.Reference.Sep.2005

Ik kwam toen uit bij een PDF, die bij het binnen halen een waarschuwing gaf,  "Dit type bestand kan schadelijk zijn voor uw computer". Wanneer je dit geen probleem vindt, dan heb je 743 pagina's te gaan.

Dat ik er niet uitkom heeft als oorzaak, dat ik altijd LISP heb gebruikt en VBA alleen met  EXCEL heb gebruikt.

Uit mijn vraag zal mijn onbekendheid met VBA/Autocad blijken, maar wie zet mij op de rails.

Ik heb het volgende probleem. Wanneer ik vanuit een formulier naar de modelspace wil gaan, dan kom ik daar niet in.
Je hoort het irritante waarschuwingsbelletje, wanneer je naast een formulier klikt.
Wanneer ik echter eerst een commando uitvoer vauit VBA, zoals een pagesetup en ik sluit deze af, dan zit ik er wel in en ook het formulier is gelijktijdig te gebruiken.
Het programma waar ik aan werk laat mij in een formulier een puntnummer opgeven en via een knop "ZET NUMMER" wil ik dit nummer in de tekening plaatsen. Dit gaat dus niet omdat ik niet in de tekening kom.

Wie helpt mij !