|
Autocad VBA : ACAD-Befehl aus Excel starten
Alfonso am 14.02.2006 um 20:23 Uhr (0)
Hallo Nancy,danke für die schnelle Antwort. Es funktioniert gut. Ist es auch noch möglich das eine Meldung in Excel kommt, wenn AutoCAD oder eine Zeichnung nich geöffnet ist?Hier der VBA-Code:Sub Maßstabholen() Dim acApp As Object, x Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName Cells(1, 1) = x AppActivate "AutoCAD 2000" acApp.activedocument.sendcommand "T2" & Chr(13) acApp.activedocument.sendcommand "vbastmt" & Chr(13) & "msgbox now" & Chr(13) AppActivate "Micro ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : lisp oder VBA
mapcar am 15.04.2004 um 14:56 Uhr (0)
Richtig, Roland. Die .NET-Bibos von AutoCAD sind nur Wrapper-Klassen für ObjectARX, d.h. nichts weiter als eine neue Verpackung der bisherigen ARX-Inhalte. Daran wird sich, so wie ich die Dinge sehe, auch in naher Zukunft nichts ändern, aber im nächsten AutoCAD kann man auch Custom Entities und Object Enabler in VB oder C# schreiben. Du kannst aber mit C# über Interop auch an die COM-Schnittstelle gehen, das heisst, alles was mit VB(A) oder VLAX geht, funktioniert ebenso in C#. Aber nicht mehr ewig;-) Wie ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Abmessungen und Formen von Selectionsets
mapcar am 02.04.2004 um 11:33 Uhr (0)
Dunkel ist deiner Worte Sinn... Hier dazu mein kleiner 1. Codeversuch Und? Was ist das Problem damit? ... Möglichkeit alle Informationen die der ausgewählte Bereich enthalten zu bekommen Did you mean ... Möglichkeit, alle Informationen, die der ausgewählte Bereich enthält, zu bekommen ? Was für Informationen denn? Oder meinst du Geometrie? Soll das die Begrenzung für einen Auswahlsatz werden? auf dem Bildschirm zu errechneten Koordinaten verschieben? Did you mean verschieben ? Falls du das mein ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
The VIP am 11.08.2003 um 08:37 Uhr (0)
Hallo beisammen. Habe am Wochenende alleine mit Excel versucht rechnerisch mit Hilfe von Pythagoras an die Koordinaten der Endpunkte der Bögen zu gelangen. Hat geklappt, wenn ich auch etwas skeptisch war was die Genauigkeit angeht. Heute morgen als ich die Bögen in AutoCAD gemessen habe und die Koordinaten vermasst habe, hab ich Abweichungen im 100stel-Bereich gegenüber der Excel-Berechnung festgestellt (kann mit Rundungen oder der Zahl Pi zu tun haben - keine Ahnung). Jedenfalls stimmt die Berechnung (sie ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Ersetzen von Blöcken in VBA
mapcar am 18.06.2004 um 13:13 Uhr (0)
Jetzt kommen wir der Sache näher - mit Sache meine ich jetzt das Problem, nicht die Lösung. Also nicht das simple Einfügen, sondern ein Block-Import aus einer anderen Zeichnung. Da fällt mir spontan dieser Weg ein: Die Quellzeichnung zusätzlich zur Zielzeichnung aufmachen und die Blockdefinition abkopieren - anschließend die Quellzeichnung wieder schließen. Du kannst aber auch den quick and dirty -Weg gehen: Quelle insgesamt als Block in die Zielzeichnung einfügen und das Insert wieder löschen. Dann hast ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Probleme bei mehrspaltiger Listbox
Brischke am 02.12.2004 um 10:37 Uhr (0)
Zitat: Original erstellt von kiltswitch: ...Also wie gesagt, ich setze nur das um, was sich mein Chef so alles in den Kopf gesetzt hat - mehr nicht!... Wenn das deine Grundeinstellung ist, das zu machen, was der Chef sagt, dann solltest du dich auf harte Zeiten einstellen. In aller Regel bist du für das Ergebnis verantwortlich, und es weiß später keiner mehr, dass Chef gesagt hat, das so zu tun. Deshalb ist es deine Aufgabe, dem Chef sinnvolle Lösungen und Wege vorzuschlagen. Mal abgesehen davon, ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Block mit bestimmten Attribut
jimbo3 am 21.01.2009 um 23:12 Uhr (0)
Das Problem ist, dass mit dem jeweiligen Block (es betrifft immer nur einen zur selben Zeit) verschiedenste Änderungen durchgeführt werden müssen. Einmal verändern der Z Lage, dann wieder eine Skalierung etc...Deshalb würde ich gerne nach filtern der Attribute, d.h wenn die Bezeichnung gefunden wurde, diesen Block "aktivieren" um ihn dann durch Kurzbefehle oder weiter im Vba "verändern" kann. Möchte den Block nur mehr zu greifen bekommen und daran scheitere ich.Wie gesagt stehe ich bei VBA leider ganz am A ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
Brischke am 23.11.2004 um 14:41 Uhr (0)
Zitat: Original erstellt von kiltswitch: Wenn ich es nun mal nicht hinbekomme - rumprobiere, abändere und es trotzdem noch nicht geht - dann muß ich doch nun mal auf Hilfe anderer Leute hoffen?... Falsch! Das ist die vollkommen verkehrte Herangehensweise. Du fummelst irgendwas, irgendwie, ziellos in dem zufällig gefundenen VBA-Editor rum. Der zufall entscheidet allein darüber, ob du nun ein paar lauffähige Zeilen damit erzeugt hast, oder auch nicht. Tobias, du solltest aufhören dein Halbwissen mi ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockanzahl auslesen
Brischke am 08.03.2004 um 07:51 Uhr (0)
Hallo Dressler,so ganz verkehrt ist die Antwort von Thomas nicht. Bezieht sich doch auch in VBA die Erstellung der Filterkriterien auf die AutoLISP-Syntax und DXF-Gruppencodes.Folgend ein Bsp, welches leicht anzupassen ist, auf deine Belange:Code:Function test()Dim All_EDim i As IntegerDim Filter(9, 1) As VariantFilter(0, 0) = -4Filter(0, 1) = "OR"Filter(1, 0) = -4Filter(1, 1) = "AND"Filter(2, 0) = 0Filter(2, 1) = "Circle"Filter(3, 0) = 8Filter(3, 1) = "0"Filter(4, 0) = -4Filter(4, 1) = "AND"Filter(5, 0) = ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : automatische Ermittlung der Rahmenabmaße
Proxy am 25.02.2005 um 07:29 Uhr (0)
Ist der Rahmen ein Block, Polylinienzug ... einzelne Linien ? Sind die Rahmen immer einzeln im Layoutbereich oder irgendwo im Modellbereich ? Fragen über Fragen ... Als Beispiel BoundingBox eines ssgets. Code: Sub ad_ssBox() This routine gets and shows the bounding box of a selection set. Demand load: -vbarun;ad_Utility.dvb!ad_ssBox; Dim adExtMax As Variant, adExtMin As Variant Dim adtmpMax As Variant, adtmpMin As Variant Dim adSS As AcadSelectionSet Dim adEnt As AcadEntity Set adSS = This ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Linie in Polylinie umwandeln
Proxy am 14.03.2005 um 13:34 Uhr (0)
Als kleiner Denkanstoss: Code: Public Sub StartEndPoint() Dim oAcadLine As AcadLine Dim oAcadPoly As AcadLWPolyline Dim oEntity As AcadEntity Dim Point As Variant On Error Resume Next ThisDrawing.Utility.GetEntity oEntity, Point, Objekt wählen: If oEntity Is Nothing Then Exit Sub Select Case oEntity.ObjectName Case AcDbLine Set oAcadLine = oEntity With oAcadLine MsgBox Start: & .StartPoint(0) & , & .StartPoint(1) & , & .StartPoint(2) & vbCrLf & End: & .EndPoint(0) & , & .EndPoint(1 ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockauswahl nach Attribut
Attilio am 14.03.2007 um 12:37 Uhr (0)
Hallo Leute, ich habe mal wieder eine (hoffentlich) kleine Bitte an Euch.Ich habe eine LISP die mir alle Blockreferenzen eines von mir geklickten Blockes in einen Auswahlsatz speichert.Soweit so gut...aber...wir arbeiten hier mit ElcoCAD und leider werden die Attribute durch diese Software an die Referenzen gehängt.Wenn ich jetzt z.B. alle Blockreferenzen auswählen möchte, die einen bestimmten Attributwert haben funtioniert das natürlich nicht.Deshalb meine Frage : Könnt ihr mir in den unten stehenden Code ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Alle Layouts nach blöcken durchsuchen
Brischke am 19.05.2004 um 14:33 Uhr (0)
Hallo Dan, Vielleicht hilft dir folgendes Code: Sub Test() Dim Bloecke Bloecke = SelAllInsertByName( TestBLK ) End Sub Public Function SelAllInsertByName(BLKName As String) Dim All_E Dim i As Integer Dim Filter(3, 1) As Variant Filter(0, 0) = -4 Filter(0, 1) = AND Filter(1, 0) = 0 DXF-Gruppencode Filter(1, 1) = Insert Blöcke Filter(2, 0) = 2 DXF-Gruppencode Filter(2, 1) = BLKName Name Filter(3, 0) = -4 Filter(3, 1) = AND All_E = Select_All_Filter( All , Filter) SelAllInsertByName = All_E End ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
