|
Autocad VBA : Material herauslesen
Stelli1 am 18.10.2006 um 18:48 Uhr (0)
Hallo Tobias,der Code liest alle Zeichnungselemente des Modelspace.Vielleicht hast du nur ein Element drin ?Mcad nennt sich hier wohl MDT. (Meint der Vermesser mit MAP)Code:Dim oAcadApp As AcadApplicationDim oAcadDoc As AcadDocumentDim oEntity As AcadEntityDim oModelSpace As AcadModelSpaceSet oAcadApp = GetObject(, "AutoCAD.Application")Set oAcadDoc = oAcadApp.ActiveDocumentSet oModelSpace = oAcadDoc.ModelSpace Debug.Print "Anzahl Entitys: " & oModelSpace.CountFor Each oEntity In oModelSpace Debug.Print ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Clickereignis auf TreeView Node
Dirk.B am 20.10.2006 um 07:12 Uhr (0)
Hallo und guten morgen Carsten!Den ersten Teil "Private Sub UserForm_Initialize()" habe ich aus dem Buch "AutoCAD programmieren mit VBA".Zu dem zweiten Teil "Private Sub TreeView1_nodeClick(ByVal Node As MSComctlLib.Node)" habe ich verschiedene Dinge aus dem Buch probiert, aber leider ohne Erfolg.Ich habe das Test-Progrämmchen mal angehangen und würde Dich bitten mal zu schauen, wo ich mich da aufhänge und selber im Weg stehe.Vielen Dank im voraus.GrußDirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Differenzierung 3DSolids
cacysunlee am 24.10.2006 um 12:08 Uhr (0)
Hallo Leute, ich versuche per Script ein 3D-Rohr zu zeichnen.Die beiden 3D-Profile für Außen- und Innendurchmesser werden problemlos erstellt.Das Differenzieren funktioniert leider nicht.Allein die Zeile Set oProfil1 = ThisDrawing.ModelSpace.Boolean(acSubtraction, oProfil2) will nicht so ganz. Was mache ich falsch? Bitte um einen Lösungsvorschlag.Hier der gesamte Code :Private Sub cmd_rohr_Click()Dim oProfil1 As Acad3DSolidDim oProfil2 As Acad3DSolidDim oRohr As Acad3DSolidDim vZentrum As VariantDim vDurch ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Differenzierung 3DSolids
Dirk.B am 24.10.2006 um 12:48 Uhr (0)
Hallo Sun Lee!Probier es mal so ohne UserForm.Kopier dieses in ein Modul und für es aus.Bei mir funktionierts.Code:Private Sub cmd_rohr_Click()Dim oProfil1 As Acad3DSolidDim oProfil2 As Acad3DSolidDim oRohr As Acad3DSolidDim vZentrum As VariantDim Prompt1 As StringPrompt1 = vbCrLf & "Einfügepunkt:"vZentrum = ThisDrawing.Utility.GetPoint(, Prompt1)Dim vDurchmesserA As VariantDim vDurchmesserI As VariantDim vRohrlaenge As Variantnachfolgende Funktion versteckt das Formular nach aufruf dieser Prozedurund über ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : fasen / runden von Kanten bei Volumenkörper
Dirk.B am 25.10.2006 um 10:10 Uhr (0)
Hallo zusammen!Kann mann eigentlich mittels VBA die Kanten eines Quaders runden oder fasen?Quaderbeispiel aus der AutoCAD - Hilfe!Code:Sub Example_AddBox() This example creates a box in model space. Dim boxObj As Acad3DSolid Dim length As Double, width As Double, height As Double Dim center(0 To 2) As Double Define the box center(0) = 5#: center(1) = 5#: center(2) = 0 length = 5#: width = 7: height = 10# Create the box (3DSolid) object in model space Set boxObj = ThisDrawing.ModelSpace. ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Unterformulare
tomww am 27.10.2006 um 12:05 Uhr (0)
Hallo,ist es in VBA in Autocad auch möglich Unterformulare wie zB in ACCESS zu erstellen? D.h. in einem Userform ein weiteres einzubetten, dass ich je nach zB Werteingabe ein- bzw. ausblenden kann?Ich möchte ein Formular erstellen, dass zu erst abfragt, was fuer ein Typ gewuenscht ist und je nach Typwahl soll das betreffende Unterformular geöffnet werden. Unterformular daher, ich möchte vermeiden, dass die 2 / 3 Formulare irgendwo auf der Bildfläche herumschwirren. Sie sollen im Hauptformular "gehalten" we ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Aus AutoCAD-Menüleiste ein Worddokument zum Lesen öffnen
Bijou am 31.10.2006 um 10:26 Uhr (0)
Hallo ihr lieben, wie kann ich ein Worddokument in der AutoCAD-Menüleisete(als Symbol oder menupunkt) zum lesen öffnen. Danke
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Aus AutoCAD-Menüleiste ein Worddokument zum Lesen öffnen
Stelli1 am 31.10.2006 um 19:03 Uhr (0)
Hallo,und herzlich willkommen im AutoCAD VBA Forum.Ob du hier im Forum oder im RuA (Rund um AutoCAD) besser aufgehoben bist weiss ich noch nicht.Schildere doch mal genau was du machen willst.Eventuell verschieben wir den Beitrag dann ins andere Forum, da dort wesentlich mehr Mitstreiter rein schauen.Hier gehts mehtr ums Programmieren.Per VBA kannst du natürlich jede Windows Datei öffnen.Hier kannst du per Shell Befehl jede Anwendung starten.Eine andere Möglichkeit ist per GetObject/CreateObject direkt auf ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ACAD-Menü erstellen
Ralf_H. am 01.11.2006 um 10:07 Uhr (0)
Hallo zusammen!Ich bin gerade dabei ein wenig mit VBA in Autocad 2006 Map zu programmieren (Newbie), und wollte mir ein eigenes Menü basteln. Folgender Code:Sub Start_Point() Deklaration Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = Application.MenuGroups("ACAD") Erstellen eines neuen Menüs Dim newMenu As AcadPopupMenu Dim testMenu As AcadPopupMenu Dim Vorhanden As Boolean Vorhanden = False On Local Error Resume Next For Each testMenu In currMenuGroup.Menus If testMenu.Name = "LW-T ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blockattribute
Willynchen_neu am 04.11.2006 um 19:27 Uhr (0)
Hallöchen an alle,ich bastele seit längerer Zeit mal wieder im Autocad rum....und merke gerade, daß ich garnicht mehr richtig fit darin bin ;o((Ich versuche gerade den Inhalt eines Blockattributes zu ändern....klappt aber nicht.Also ich habe einen TESTBLOCK...und der hat ein Attribut PREIS. Der Inhalt von Preis ist bspw. eine Preisangabe in DM. Jetzt wollte ich das in Euro umrechnen und dachte, ich könnte es mit der Funktion update lösen, aber irgendwie weiß ich mal wieder nicht, wie ich das Attribut anspr ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Bogen abhängig von Wert eines Attributes darstellen
Benny4 am 06.11.2006 um 14:49 Uhr (0)
Hallo Forum,ich habe einen Block mit 2 Linien und einem Bogen. Den Block füge ich mittels VBA ein und frage dann noch 2 Attribute ab. Das klappt alles soweit gut.Jetzt möchte ich allerdings, dass abhängig davon, ob ein Attribut dann auf 1 oder 0 gesetzt ist, den Bogen darstellen oder nicht.Bogen.Visible = FalseEs kann dann sein, dass ich mehrere gleiche Blöcke habe, und einmal den Bogen darstellen muss, und einmal nicht.Ich verwende AutoCAD 2006Wer kann mir helfen?Danke schon mal im Voraus!!--------------- ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Bogen abhängig von Wert eines Attributes darstellen
Benny4 am 08.11.2006 um 21:10 Uhr (0)
Hallo,danke für den Tipp, werd es mir mal anschauen.Dafür ist aber AutoCAD 2006 Voraussetzung, oder?Eine andere Möglichkeit mit "normalen" Blöcken habe ich nicht, oder?------------------Grüse Benny
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Präfix vor Text
jobau am 09.11.2006 um 10:50 Uhr (0)
Hallo Forum,ich benutze ein VBA-Makro, um Text an einer Linie auszurichten. Das funktioniertauch wie gewünscht. Ich wollte das Programm jetzt so erweitern, dass ich aufWunsch ein Präfix vor den Text stellen kann. Nun habe ich aber das Problem, dassdie Formatierung nicht mehr funktioniert (es werden mehr als zwei Stellen nach demKomma ausgegeben). Hier ein Ausschnitt aus dem VBA-Code: Case acText Set objText = Elem ...
|
| In das Form Autocad VBA wechseln |
