|
Autocad VBA : Befehl Umgrenzung mit VBA
MetZip am 05.07.2005 um 14:03 Uhr (0)
Hallo! Ich bin gerade dabei ein VBA-Modul zu schreiben welches mir nach Klick in einer Fläche die Eck-Koordinaten der gewählten Fläche zurückgibt. Die Fläche erhalte ich mittels Befehl „-UMGRENZUNG“ und der daraus resultierenden Polylinie. In VBA führe ich den Befehl mittels der Methode „SendCommand“ aus. Soweit – so gut. Ich möchte nun aber dem Befehl „UMGRENZUNG“ Umgrenzungslinien zuweisen (zum Beispiel ein bestimmter Layer) aus denen ich dann den Umriss erstelle, ohne das mir sonstwelche Elemente in der ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Standard-Fehlermeldung im AutoCAD Textfenster
harryk am 22.01.2004 um 10:51 Uhr (0)
Genius, ha! hat eigentlich nichts zu bedeuten. Nehmen wir mal an Du hast in Deiner Zeichnung den Block GENAXEH der vielleicht für Bemassungen verwendet wird oder so, jedenfalls für GENIUS so wichtig das er in allen Zeichnungen verwendet wird. Wenn Du jetzt andere Blöcke einfügst die mit GENIUS erzeugt wurden oder auf Basis einer GENIUS Datei erstellt wurden wird Dir einfach nur mitgeteilt das die Block Definition schon vorhanden ist und diese jetzt verwendet wird. Wenn Du von einer leeren Datei ausgehst ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Überschneidungen feststellen
mapcar am 07.05.2004 um 13:48 Uhr (0)
Hi Brennivin, der alte Fehler, so wie s ausssieht: Du verwechselst Blöcke und Blockreferenzen. Blöcke kann man definieren, aber niemals einfügen - das sind INSERTs, die man einfügt. Mit den Zeilen Dim ref1 As AcadBlockReference Set ref1 = ThisDrawing.Blocks.Item(I) machst du genau diesen Fehler: du willst eine Blockdefinition einer Variablen zuweisen, die vom Typ INSERT (AcadBlockReference) ist. Das geht nicht! Die Fehlermeldung ist daher völlig korrekt! Dein Programm sollte in der Zeichnung auf Überschnei ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : AutoCAD VB muss auf Access warten
Stelli1 am 01.10.2007 um 11:26 Uhr (0)
Hallo Jörg,ich meine du hast doch den Lösungsansatz. In einen vorherigen Thread war doch die Frage wie Access angesteuert wird. Da gabs ein Beispiel Zitat: If Err.Number 0 Then MsgBox "Keine Datenbank gefunden. Lade ...", , "Start MDB" On Error GoTo 0 Set MyAccess = CreateObject("access.application") MyAccess.OpenCurrentDatabase "C:Tempdb1.mdb" MyAccess.Visible = True End If On Error GoTo 0 Aufruf über Access Modul MyAccess.Run "openform", "Formular1" Direkter Aufruf MyAccess.DoCm ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Pfadabfrage
startrek am 08.03.2007 um 23:50 Uhr (0)
Zitat:Original erstellt von dobatec:Sehe ich das richtig: Es muss immer per SaveAs gespeichert werden, damit die Eigenschaft FullName anshcließend einen Wert aufweist??Wenn ich ThisDrawing.Save anwende und mir anschließend die .saved Abfrage true liefert, hab ich immern noch keinen Wert in der FullName drinne.Also mit SaveAs hab/hatte ich nix gemacht/probiert.Die Zeichnung muss zumindest/wenigstens einmal gesichert worden sein via normalen Save [bei mir manuell mit Pfadangabe geschehen)dann w ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : VBA unter 2010
Soldnerkugel am 12.05.2010 um 15:11 Uhr (0)
hilft leider alles nix, eine Bibliothek konnte ich nicht wählen "ACADProject", da bekomme ich immer die Fehlermeldung "Automatisierungsfehler Unbekannter Fehler", sonst habe ich alles, was nur im entferntesten irgendwie "ACAD", "Aecc" usw. ähnelt aktiviert.Gibt es da denn keine andere Möglichkeit, auf die DGM-Daten zuzugreifen? ich habe jetzt folgenden Quelltext Dim varPkt(0 To 1) As Double Dim dblElev As Double Dim objSurf As AeccSurface (Dim proj As AeccProject) Dim DeltaH As Double Dim objLayer As ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Element markieren (ObjektID) bekannt
MartinM am 01.07.2004 um 08:34 Uhr (0)
Hallo Roland, danke für deine Antwort. Gerne erläutere ich mein Problem ausführlicher: Ich bekomme aus einer anderen Prozedur *) ein Array mit den ObjektID´s von diversen AutoCAD Elementen der aktuellen Sitzung. Nun möchte ich diese AutoCAD-Elemente markieren (= ich möchte die Griffe sehen). Ich denke eine Möglichkeit wäre, die gesamte Zeichnung (Element für Element) durchzugehen, und jeweils die ObjektIDs vergleichen; das hört sich nicht nur unelegant an, ich glaube es ist es auch. Meine Hoffnung ist es, ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Eckkoordinaten des Aktuellen Modellbereichfensters
alfred neswadba am 12.02.2009 um 17:12 Uhr (0)
Hi Daniel,lang ists her, aber vielleicht hilft Dir meine Erfahrung, die ich gerade gemacht habe, bei Deinem Problem?Ich hatte jetzt die Situation, dass ich die Variable "VIEWCTR" auslesen musste und bin (allerdings in .NET) darauf gestossen, dass diese Variable dann andere Werte als gewünscht retourniert, wenn ich meine Berechnung unmittelbar nach Öffnen der Zeichnung gestartet habe. Habe ich eine Linie gezeichnet und dann meine App drübergelassen, dann hats funktioniert.Ein Workaround für mich ist (und fu ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Absoluter Nullpunkt
The VIP am 17.12.2003 um 14:46 Uhr (0)
Hallo nochmal. Es hat zwar nichts mehr mit dem Hauptthema Nullpunkt zu tun, aber ich stelle die Frage dennoch in diesem Thread. Mein Makro erweitert sich ständig, sodass ich nun noch eine zweite Zeichnung mit einem neuen Einfügepunkt im Makro erzeugen lasse: Code: Public Sub COMMAND_OK_Click() ME.HIDE Zeichnung_erstellen1 startet Hauptmakro (Public Sub) Zeichnung_erstellen2 startet Hauptmakro (Public Sub) ME.SHOW End Sub Makro Zeichnung_erstellen2 baut sich ähnlich auf wie Zeichnung_erstellen ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
Arol am 13.02.2009 um 20:25 Uhr (0)
Alfred,Danke für die sehr schnelle Antwort.Die Funktion replace funktioniert wunderbar. Ich verstehe aber nicht, wieso du sie doppelt einsezt. so funktioniert es bei mir auch:blockname = "Langloch " + Replace(laenge, ",", ".") + "x" + Replace(breite, ",", ".") + "_r" + Replace(radius, ",", ".")zu Punkt 2. mein Quellcode sieht in Moment so aus:Dim Block As AcadBlockDim blockname As StringDim BlockRef As AcadBlockReferenceDim text1 As String Dim IPoint As Variant ...blockname = "Langloch " + Replace(laenge, ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Auslesen von Blockeigenschaften mittels VBA möglich?
BloodyMess am 03.11.2004 um 09:20 Uhr (0)
Ich sag mal so, alles was sich per Hand in eine Zeichnung einfügen läßt, kann man mit mehr oder weniger großem Aufwand auch automatisiert ablaufen lassen. Ich geh mal davon aus, dass ihr das Programm dann nur Firmenintern einsetzen wollt und es nicht vermarkten wollt. Deshalb ist es für Euch wahrscheinlich unrelevant, ob es später etwas holpert oder nicht. Deswegen wollt ihr sicher das Geld nicht investieren. Wir machen das auch nicht anders! Dann setz Dich lieber mal nen Tag hin und investiere die Zeit un ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Bemaßung Wert auslesen
82.lagrima am 11.05.2013 um 16:57 Uhr (0)
Ok,meine Fragestellung hat sich etwas geändert aber die Überschrift passt dennoch, denke ich.Ich möchte alle Bemaßungen in einer Zeichnung in ein Auswahlset laden, den Wert auslesen und je nachdem welchen Wert sie haben, weiter vorgehen.Bisher habe folgende Variablen deklariert:Dim Sset As AcadSelectionSetDim Auswahl As AcadObjectDim Bemass As AcadDimensionDim FilterType(0) As IntegerDim FilterData(0) As Variantund einen Filter mit 0 und "Dimension" erstelltSset wird bei mir über eine Funktion "gesettet" u ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke kopieren
KlaK am 10.12.2007 um 16:57 Uhr (0)
Hallo el Cuervo,Stelli hat Dir ja schon beschrieben wie Du auf die AutoCAD Objekte zugreifst.Schau Dir doch mal folgendes Beispiel aus dem Entwicklerhandbuch für ActivX und VisualBasic - erweiterte Zeichen- und Strukturierungsfunktionen - verwenden von Blöcken und Attributen anCode:Sub Ch10_InsertingABlock() Definieren des Blocks Dim blockObj As AcadBlock Dim insertionPnt(0 To 2) As Double insertionPnt(0) = 0 insertionPnt(1) = 0 insertionPnt(2) = 0 Set blockObj = ThisDrawing.Blocks.Add _ ...
|
| In das Form AutoCAD VBA wechseln |
