|
AutoCAD VBA : Rahmen+Schriftkopf mit VBA einfügen
Marco Lorenz am 22.07.2004 um 11:49 Uhr (0)
Ja, kannst Du.Du brauchst dazu die AMGPDMLib (amgpdm.arx), die Du bei den Verweisen einfügen mußt.folgendes Codefragment zur Hilfe: Set app = GetInterfaceObject("amgpdm.application") Set Dwg = app.CurrentDrawing Set tbm = Dwg.TitleBorderMgr Set tbd = tbm.NewDescriptor Set tbc = tbm.NewContext(kDefaultUserInput) Set bc = tbd.BorderDescriptor Set tc = tbd.TitleDescriptor Call tbd.SetScale(csng(1)) bc.name = "DIN_A4" tc.name = "AM_TITLE" tbc.InputPosition = True tbc. ...
|
| In das Form AutoCAD VBA wechseln |
|
EDM/PDM/PLM Allgemein : Eignung PDM/PLM Collaboration für SME s
Marco Lorenz am 23.01.2004 um 17:31 Uhr (0)
Ein sehr findiges und einfach zu bedienendes EDM-System ist CADBase. Ist in erster Linie auf Autodesk-Produkte (AutoCAD und Inventor) ausgerichtet. Infos unde eine kostenlose Demoversion sind auf www.cadbase.com zu finden
|
| In das Form EDM/PDM/PLM Allgemein wechseln |
|
Autocad VBA : Acad Suchfunktion mit VBA ??
Marco Lorenz am 18.07.2004 um 23:16 Uhr (0)
Wenn Du die Datenbank nach einzelnen Elementen durchsuchst, kann das ziemlich lange dauern, bei größeren Zeichnungen. Du kannst mit einem Selectionset arbeiten. z.B. so: Dim Gpcode(0) As Integer, Datavalue(0) As Variant, SS1 as AcadSelectionSet, Object as AcadObject Gpcode(0) = 0 Datavalue(0) = *TEXT *TEXT spricht sowohl Texte als auch MTexte an... Set SS1 = ThisDrawing.SelectionSets.Add( Texte ) SS1.Select acSelectionSetAll, , , Gpcode, Datavalue MsgBox CStr(SS1.Count) & Texte gefunden... For Eac ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AUTOCAD VBA
Marco Lorenz am 18.07.2004 um 23:49 Uhr (0)
Mit der InsertBlock-Methode gehts zwar, aber Du hast den Block nicht am Cursor sichtbar, wenn Du den Einfügepunkt vorher zeigst. Probiers mal damit: Public Sub test() Dim xScale As Double Dim yScale As Double xScale = 2.1 yScale = 1.25 ThisDrawing.SendCommand _ (command -_insert test1 Pause & xScale & & yScale & 0) & vbCr End Sub Aber Achtung: Falls Du mehr als eine Pause machst (z.B. auch noch für Skalierfaktor oder Einfügewinkel), dann läuft VBA asynchron weiter (bei einer Pause funktio ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Index
Marco Lorenz am 22.07.2004 um 12:10 Uhr (0)
Also, ich würde Dir da mal eher MS-Access empfehlen, da kannst Du die Daten einfacher handeln, speziell, wenns ein paar mehr sein sollen (schnelles Suchen etc...). Aber Excel geht natürlich auch, ist halt keine richtige Datenbank. Du kannst den kompletten Code innerhalb von MS-Office schreiben. Am besten nimmst Du die AutoCAD-Bibliothek zu den Verweisen dazu. Das AutoCAD-Objekt bekommst Du mit Set Acadapp = GetObject(, Autocad.Application ) oder, falls AutoCAD noch nicht offen ist: Set Acadapp = CreateObj ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit Profil starten
Marco Lorenz am 22.07.2004 um 23:18 Uhr (0)
Falls das Profil noch nicht existiert, und wenn Du es aus einer .arg-Datei übernehmen willst, geht auch folgendes: Handle = shell ( C:ProgrammeAutodeskMDT5acad.exe /p X:Test.arg )
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD-VBA nach Excel-VBA (laufzeit)
Marco Lorenz am 29.07.2004 um 20:47 Uhr (0)
ja, das ist so. Wenn Du das von extern machst, ist das um vieles langsamer. Eine Möglichkeit, die das Problem deutlich reduziert, ist, ein VBA .exe oder eine .dll zu schreiben, dann gehts wieder flotter. Besonders das Durchsuchen von der Datenbank (wenn Du Texte auslesen tust) dauert... Das Geschwindigkeitsproblem kannst Du vielleicht auch mit den Selectionsets und Filtern lösen, das geht prinzipiell viel schneller, als das Durchsuchen der Datenbank
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Command Formulardaten abfragen
Marco Lorenz am 02.08.2004 um 22:56 Uhr (0)
ich bin mir ziemlich sicher, daß das so überhaupt nicht geht, jedenfalls nicht in VB, weil die angezeigten Formulare schon Teil des AutoCAD-Befehls sind und nicht von außen ansprechbar sind. Während ein Formular offen ist, kannst Du ja mit AutoCAD nicht mal kommunizieren. Die Lösung wäre (ist aber ziemlich komplex), das Formular in VB nachzubauen und alles nachfolgende selbst zu machen (hab ich mal für _INSERT gemacht - und mir dabei die Finger blutig programmiert, es aber dann doch geschafft).
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Eigenschaft eines Textobjektes auslesen
Marco Lorenz am 19.08.2004 um 14:10 Uhr (0)
Hallo, LordK Hier ein bißchen Code zu Deiner Frage... Bei Benutzung außerhalb von AutoCAD brauchts das Objekt Acad_App und folgende 2 Zeilen: Dim ThisDrawing as AcadDocument Set ThisDrawing = Acad_app.ActiveDocument Dim Gpcode(0) As Integer, Datavalue(0) As Variant, SS1 as AcadSelectionSet Dim Corner1(0 To 2) As Double Dim Corner2(0 To 2) As Double Wählt die Texte in folgendem Fenster: Corner1(0) = 500 Corner1(1) = 300 Corner2(0) = 800 Corner2(1) = 500 Setzt den Filter auf Texte un ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : DWG-Vorschau in VB-Programm
Marco Lorenz am 20.08.2004 um 17:04 Uhr (0)
dwgthumbnail.ocx lief mal ganz gut, aber nicht mehr ab dem dwg-2004 Format. Dafür müßtest Du über die Windows-API auf das Standard-Thumbnail zugreifen. Ist aber nicht trivial.Mit den kostenlosen VoloView-Versionen ist es leider dasselbe: gehen nur bis AutoCAD 2002. Die Vollversion von Volo kostet leider was.Infos über die Volo View API findest Du bei http://www.autodesk.com/prods/volo/custguid/index.htm
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : AcadBlöcke mitels vb6 ermitteln
Marco Lorenz am 20.08.2004 um 17:18 Uhr (0)
Hallo, lg, in Deinem Code startest Du AutoCAD gleich zweimal, einmal über die Shell und dann nochmal mit CreateObject oder? Ich würde das so machen: Zuerst nachsehen, ob schon ein AutoCAD aktiv ist: Dim Acadapp As Object On Error Resume Next Set Acadapp = GetObject(, Autocad.Application ) If Err 0 Then AutoCAD nicht gefunden - wird nun gestartet... Set AcadApp = CreateObject( Autocad.Application ) End If Nun eventuell eine Datei in AutoCAD öffnen: Dim Drawing as As AcadDocument Set Drawing ...
|
| In das Form Autocad VBA wechseln |
|
CADBase : CADBase Update zum Download
Marco Lorenz am 27.07.2004 um 19:21 Uhr (0)
ein neues CADBase-Update (Servicepack 270704) steht auf www.cadbase.com zum kostenlosen Download für Anwender und Inhaber der Testversion bereit. Einige der neuen Features in diesem Update: Stücklisten: Unterstützung für AutoCAD Dokumentenverwaltung: Drag&Drop zum Import von Dateien Stapelbearbeitung: Drag&Drop zum Hinzufügen von Dateien, Stempelfunktion für DWG, PDF, TIF, JPG, GIF etc... Integration von Inventor 9
|
| In das Form CADBase wechseln |
|
Inventor : Inventor Neuling hat Fragen
Marco Lorenz am 18.08.2004 um 21:01 Uhr (0)
Hallo, Matt, vermutlich sind es schon hauptsächlich Mißverständnisse in der Bedienung, die Dir Probleme bereiten, der Inventor 8 ist bei den Grundfunktionen eigentlich nicht so leicht zum Wackeln zu bringen. Bezüglich Koordinatensystem etwas Grundsätzliches: Jedes Einzelteil hat sein eigenes Koordinatensystem, das unverrückbar feststeht. Das ist auch sehr sinnvoll so. Wenn Du nun in einem neuen Teil die erste Skizze zeichnest, ist es hilfreich, Dir den Koordinatenursprung in die Skizze hereinzuprojizieren ...
|
| In das Form Inventor wechseln |
