|
Autocad VBA : Excel und AutoCAD
startrek am 28.06.2006 um 14:07 Uhr (0)
Hmm, so rein formell ist das schon richtig,allein mir erschließt sich der Sinn des Button-Codes [noch] nicht ganz,momentan startest du ein Acad und zoomst auf die Grenzen einer leeren Zeichnung? ;;-))Code:Private Sub CommandButton1_Click() Dim ac As Object Set ac = CreateObject("Autocad.application") ac.Visible = True to do, z.B. with ac.activedocumnet .modelspace.addpoint(p) ac.ZoomExtens .saveas "c:irgendwolablub.dwg" ggf. beenden? .close end with ac.quit set ac=nothingEnd SubGruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Was ist möglich mit VBA
nettertyp am 28.06.2006 um 14:45 Uhr (0)
Hallo,ich wollte fragen, was man mit der VBA-Schnittstelle in AutoCAD Mechnical 2006 alles realisieren kann.Welchen Weg sollte man gehen, um gewisse Automatismen zu realisieren? Als Beispiel: ist es möglich z.B. ein Stirnrad durch Angabe bestimmter Parameter in zwei Ansichten zeichnen zu lassen?Bitte um Berücksichtigung, dass ich absoluter CAD-Neuling bin, da ich eigentlich Wirtschftsinformatiker bin, also umso einfacher die Antwort formuliert, umso mehr verstehe ich ;-)
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Was ist möglich mit VBA
CAD-Huebner am 28.06.2006 um 16:18 Uhr (0)
VBA ist für die beschriebene Aufgabe ok. Das Problem sitzt hierbei sicher vor dem Rechner/Software . Man sollte zuerst die Problemaufgabe flüssig mit den AutoCAD Befehlen erstellen können und sich mit den üblichen AutoCAD-Befehlen und Objekten (mit Ihren Eigenschaften) gut bzw. sehr gut auskennen - dann ist auch AutoCAD Programmierung kein Problem.------------------Mit freundlichem GrußUdo Hübner
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Was ist möglich mit VBA
nettertyp am 29.06.2006 um 07:50 Uhr (0)
Zitat:Original erstellt von CAD-Huebner:VBA ist für die beschriebene Aufgabe ok. Das Problem sitzt hierbei sicher vor dem Rechner/Software . Man sollte zuerst die Problemaufgabe flüssig mit den AutoCAD Befehlen erstellen können und sich mit den üblichen AutoCAD-Befehlen und Objekten (mit Ihren Eigenschaften) gut bzw. sehr gut auskennen - dann ist auch AutoCAD Programmierung kein Problem.hier in der firma gibt es haufenweise CAD-konstruktions-profis, aber niemanden, der mit den CAD-programmierschnittste ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : getpoint Fehler
rhoehnke am 29.06.2006 um 08:43 Uhr (0)
Hallo, danke für die antwort. Hier der Code:Option ExplicitPublic pntPick As VariantPrivate Sub cmdDraw_Click() *** Code *** Dim brfBlock As AutoCAD.AcadBlockReference Dim objLayer As AcadLayer For Each objLayer In ThisDrawing.Layers If objLayer.Freeze Then objLayer.Freeze = False End If Next pntPick = ThisDrawing.Utility.GetPoint(, "Pick Point ") ThisDrawing.ActiveLayer = ThisDrawing.Layers("Rahmen") Set brfBlock = ThisDrawing.ModelSpace.InsertBlock(pntPick, dwgSTRSERVER & "vewPickPoi ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Was ist möglich mit VBA
nettertyp am 29.06.2006 um 09:23 Uhr (0)
Vielleicht könnte jemand etwas ausführlicher beschreiben, was man mit VBA alles in autoCAD mechnical 2006 anstellen kann (vorwiegend 2D-bereich). würde gerne die Möglichkeiten da erfahren.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Was ist möglich mit VBA
Stelli1 am 29.06.2006 um 12:21 Uhr (0)
Hallo, Zitat:hier in der firma gibt es haufenweise CAD-konstruktions-profis, aber niemanden, der mit den CAD-programmierschnittstellen coden kann. ich soll nicht als knstrukteur angelernt werden, sondern eben als unterstützender programmierer. Wirtschaftsinformatiker gibt es glaube ich deshalb weil diese sowohl Kenntnisse des Fachgebietes und der Informatik haben. Dadurch können die erforderlichen Abläufe konkret analysiert und in der EDV umgesetzt werden.Willst du was in AutoCAD (per Code) bewegen musst d ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD ProgressBar nutzen
Mario Rosenbohm am 04.07.2006 um 09:19 Uhr (0)
Hallo,in AutoCAD sieht man ab und zu eine ProgressBar in der Statuszeile laufen. Kann man diese nutzen? Denn ich habe einige Funktionen die eine kleine Weile benötigen undbei diesen Funktionen hätte ich gern eine ProgressBar laufen, dadiese Funktionen kein Fenster benutzen. Gruß Mario
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD ProgressBar nutzen
Mike_mair am 04.07.2006 um 09:25 Uhr (0)
Hallo Mario,also ich benutze die Systemvariable "Modemacro" für die Ausgabe von Firmen eigenen Einstellungen.Diese Systemvariable wird in der Statuszeile neben (links neben Koordinatenangabe) ausgegeben..Ich hoffe ich konnte dir helfen...lg mike------------------Michael Mair
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD ProgressBar nutzen
CADmium am 04.07.2006 um 09:32 Uhr (0)
guck dir mal den Code an.. oder den oder suche mal hier------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD ProgressBar nutzen
Mario Rosenbohm am 04.07.2006 um 11:55 Uhr (0)
Hallo,wie ich eine eigene Progressbar erstelle weiß ich schon.Aber ich wollte doch nur die in AutoCAD vorhandene nutzen,das geht ja wohl doch nicht.Na denn....Gruß Mario
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD ProgressBar nutzen
Mario Rosenbohm am 05.07.2006 um 09:48 Uhr (0)
So,nun habe ich mir ein Fenster mit ProgressBar und "x von y" Anzeige gebaut.Ich rufe das ganze wie folgt auf:Code:Public Sub KoordLesen() Dim i_Count As Integer Dim ar_KoordItem() As String If (Len(GetKoordFileName) 3) Then Exit Sub LoadKoordFromFile frm_Wait.SetStart LBound(ar_KoordList), UBound(ar_KoordList), LBound(ar_KoordList), 1, True frm_Wait.Show vbModeless For i_Count = LBound(ar_KoordList) To UBound(ar_KoordList) frm_Wait.StepOne ar_KoordItem = ar_KoordList(i_Count) MakeKoordPoi ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD ProgressBar nutzen
Carsten1210 am 05.07.2006 um 11:06 Uhr (0)
Hallo Mario,Hier noch eine Versin, die dir den Ablauf unter der Befehlszeile und neben den Koordinaten ausgibt. Sieht allerdings etwas komisch aus, wenn das Koordinatenfeld und die Buttons nach rechts geschoben werden.Public sModeMacro As StringPublic Sub Test()Dim i initialize "progress bar" sModeMacro = ThisDrawing.GetVariable("MODEMACRO") ThisDrawing.SetVariable "MODEMACRO", "Progress: |"For i = 0 To 50 update "progress bar" inside loop s = ThisDrawing.GetVariable("MODEMACRO") ThisDraw ...
|
| In das Form Autocad VBA wechseln |
