|
AutoCAD VBA : Acad 2009 LT und vba
alfred neswadba am 05.01.2009 um 13:58 Uhr (0)
Hi,dann kann es sich aber nicht um eine VBP-Datei handeln, sondern um eine DVB-Datei (Dateiformat für VisualBasicForApplications in AutoCAD), oder irre ich. VBP geht IMHO auch in AutoCAD-VBA nicht (nicht laden, nicht ausführen, ...)Und da steht fest (unter der Voraussetzung DVB), dass das mit AutoCAD-LT nicht geht, sondern nur mit der Vollversion. Sorry.Vielleicht nennst Du uns den Hintergrund des Projekts, ev. gibt es noch andere Ideen. Was soll mit den DWG-Informationen dann geschehen.- alfred -
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Acad 2009 LT und vba
alfred neswadba am 05.01.2009 um 13:31 Uhr (0)
Hi,Willkommen bei CAD-de,nur um Missverständnissen vorzubeugen: Du sprichst/schreibst von einem Dateityp VBP == das sind VisualBasicProject-Dateien von VB6. Grundsätzlich hat das mal gar nix mit AutoCAD (auch nicht mit dem vollen) zu tun. Damit stellt sich zuerst die Frage, was diese VBP-Datei tut/tun soll?- alfred -
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Acad 2009 LT und vba
alfred neswadba am 05.01.2009 um 13:37 Uhr (0)
Hi,es hat das vbp aber (noch) nichts mit AutoCAD zu tun, oder (sprich es greift nicht auf AutoCAD zu)Oder (mit AutoCAD Vollversion) ist es ein EXE, dass AutoCAD als ActiveX-Server nutzt oder ist es ein DLL, das in AutoCAD schon reingeladen wird?- alfred -
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Arbeiten mit Dictionaries
alfred neswadba am 13.01.2009 um 12:38 Uhr (0)
Hi,das wird wohl von der Vorlagenzeichnung abhängen, die Du verwendest und ev. auch von einer Applikation, die mit dem Start von AutoCAD mitgestartet wird. Nochmals Hinweis zu ArxDbg, damit kannst Du Dir (relativ) einfach die Einstellungen/Unterpunkte zu diesen Dingen ansehen.- alfred -
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer mittels Daten aus DB anlegen
alfred neswadba am 15.01.2009 um 21:57 Uhr (0)
Hi,Du kannst die Linienstärle eines Objekts auch mit einem Integerwert zuweisen, dieser Wert entspricht 100*Linienstärke, also z.B. wenn Du einer Linie die Strichstärke von 0.05mm zuweisen willst, dann:tLine.Lineweight = 5Man muss aber wissen, dass nur die laut AutoCAD vordefinierten Werte zu verwenden sind.Hoffe es hilft, - alfred -
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block mit bestimmten Attribut
alfred neswadba am 21.01.2009 um 23:44 Uhr (0)
Hi,anbei ein Beispiel, das Du an die Stelle setzen kannst, an der feststeht, dass die Blockreference gefunden ist. Dann wird das angesprochene sssetfirst gemacht. Ich hoffe es passt für Dich so Code:zuerst mal hinzoomenDim tMin As VariantDim tMax As VariantCall tBlRef.GetBoundingBox(tMin, tMax)Call ThisDrawing.Application.ZoomWindow(tMin, tMax)und jetzt gripzuerst bestehende selection loeschen (bei map 2* aufrufen)Call ThisDrawing.SendCommand("(sssetfirst nil nil)")dann erzeugen damit ein selectionset basi ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block mit bestimmten Attribut
alfred neswadba am 21.01.2009 um 21:53 Uhr (0)
Hi,willkommen bei CAD-de!!Lass mich/uns mal wissen, was Du denn grundsätzlich machen willst. Denn wenn Du nur nach dem Attribut suchen willst, um z.B. dorthinzufinden (hinzoomen, markieren, bearbeiten), dann brauchst Du kein Macro, das geht mit suchen/_find auch schon in AutoCAD direkt.Der Code, den ich damals geschrieben hatte, war nur ein Teil von etwas größerem (ein Schnippsel als Basis zum darauf Aufbauen)und hat einzeln so wenig Sinn.- alfred -------------------www.hollaus.at
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block mit bestimmten Attribut
alfred neswadba am 22.01.2009 um 14:27 Uhr (0)
Hi,jetzt beginnen Vokabel durcheinander zu kommen:Block ist die Definition, die beschreibt, wie ein Symbol auszusehen hatBlockReference ist das eingefügte Symbol im Modellbereich, in Papierbereich oder in anderen Block(-definitionen)Mit meinem Code wird die BlockReference gegript samt der AttributsReferences, die in der BlockReference enthalten sind (anders gehts von AutoCAD aus nicht, ist in meinem Beispiel genauso als würdest Du das Symbol anklicken)Also was habe ich jetzt falsch verstanden?- alfred ---- ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Preview
alfred neswadba am 23.01.2009 um 12:42 Uhr (0)
Hi,die Grenzen, die zu plotten sind, sind Extents?Holst Du die Plotter aus AutoCAD heraus oder liest Du die installierten Drucker von Deinem Windows aus? Anders ausgedrückt, wo bekommst Du die (möglichen) Formate der Drucker/Plotter?Hast Du sschon ein Codeschnippsel, wo ich mal sehen kann, wie weit Du bist? Dann fällt das mit dem Rückfragen leichter - alfred -------------------www.hollaus.at
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Preview
alfred neswadba am 28.01.2009 um 12:28 Uhr (0)
Hi,hab jetzt zwar kein AutoCAD an der Hand, aber da gibts was, dass DeviceInfos upgedatet werden, heisst so ähnlich wie RefreshPlotDevice, auch wenn ichs nicht genau weiss, solltest Du in der Hilfe dazu Info finden.- alfred -------------------www.hollaus.at
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Probleme beim Einlese von .txt
alfred neswadba am 28.01.2009 um 16:38 Uhr (0)
Hi,eine nicht schöne, aber schnelle Vorgehensweise wäre einfach Du versuchst die TXT-Datei zu öffnen und prüfst auf Fehler:Code:On Error Resume NextDim tFnr as IntegertFnr = FreeFile du weisst ja nicht, on 1 schon verwendet ist, damit erhältst Du sicher die nächste FREIE NummerOpen "c:Verzeichnisdatei.txt" For Input As #1if Err.Number = 0 then dann darfst Du mit einlesen anfangenelse da ist Fehler aufgetreten, Fehlermeldung oder was auch immerEnd IfDie schönere Methode wäre, über das Microsoft.Scripting ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
alfred neswadba am 21.01.2009 um 13:58 Uhr (0)
Hi Gerhard,Code: On Error Resume Next t2 = rs!dateiname So öffne ich auch die DXF-Files AutoCAD.Documents.Open t2, True Mit diesem Sub erstelle ich PNG-Dateien je Layout für unser ERP-System Call pngPlot ThisDrawing.Close Falsewenn ich es (ohne zu probieren) richtig verstehe, dann solltest Du eigentlich folgendes ändern können:Code:AutoCAD.Documents.Open t2, Trueif Err.Number = 0 then nur plotten, wenn problemlos geöffnet Call pngPlot ThisDrawing.Close Falseelse Err.Clear Call de ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
alfred neswadba am 22.01.2009 um 11:55 Uhr (0)
Hi,Workaround, das mir jetzt einfällt:mach den Schritt mit DXF-Einfügen in neue leere Zeichnung, wenn Du dann eine Exception bekommst (und diese sollte dann nicht den Dialog von AutoCAD unterbrechen), dann weisst Du, dass das DXF nciht zu öffnen ist.Funktioniert es doch, dann kannst Du ja das DXF mit Documents.Open öffnen, dann weisst Du ja schon dass es funkt.Anderes Workaround wäre, dass Du versucht, mit Windows-APIs Fenster zu überwachen und dann mit WindowsMessages (so glaube ich, dass der Name ist, st ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
