|
Autocad VBA : Winkel und Bogenmaß beim Blockeinfügen
Stelli1 am 23.09.2005 um 14:41 Uhr (0)
Hallo,wenn du in deinen Programmen "Option Explicit" angibstkannst du sehen welche Variablen OK sind oder auch nicht.Dann fällt auf das PI immer 0 ist und somit der Winkel imBogenmaß auch.Ich habe mal grob aufgeräumt:[Option ExplicitSub abdichtung_start() Dim p1 As Variant Dim p2 As Variant Dim d As Variant Dim n As Single Dim lineObj As AcadLine n = 0 On Error GoTo beenden d = ThisDrawing.Utility.GetReal("Dicke: ") p1 = ThisDrawing.Utility.GetPoint(, "Punkt: ") On Error GoTo 0 Dim Abbruch ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Winkel und Bogenmaß beim Blockeinfügen
archstudent am 22.09.2005 um 23:01 Uhr (0)
ich habe noch etwas ausprobiert:Sub abdichtung_start() Application.Preferences.Files.ToolPalettePath = "Pfad" Input Dim p1 As Variant Dim p2 As Variant Dim d As Variant Dim n As Single Dim lineObj As AcadLine n = 0 d = ThisDrawing.Utility.GetReal("Dicke: ") p1 = ThisDrawing.Utility.GetPoint(, "Punkt: ") On Error GoTo beenden Do n = n + 1 p2 = ThisDrawing.Utility.GetPoint(, "Punkt: ") Zeichen ------------------------------------------------------Winkel berechnen I ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : DWG in DGN Batchkonvertierung???
alfred neswadba am 25.06.2010 um 23:16 Uhr (0)
Hi,ein Ansatz zu Starten, allerdings wenig Fehlerhandling. Parameter sind in den CONST-Statements einstellbar.Code:Option ExplicitConst pDirName As String = "C:TEMP" das Verzeichnis, dessen DWGs zu konvertieren sindConst pDgnVersionStr As String = "V8" zu exportierendes DGN-Format, kann "V7" oder "V8" seinConst pDgnUnitsStr As String = "HAUPTEINHEITEN" zu exportierende Einheiten, kann "HAUPTEINHEITEN" oder "UNTEREINHEITEN" seinConst pDgnMappingStr As String = "STANDARD" Mappingeinrichtung, muss ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Verständnisfrage betreff Variableübergabe
tomww am 21.11.2006 um 22:42 Uhr (0)
Servus,ok, hast mich auf neue Wege gebracht :-)nun mit deinem Hinweis habe ich nun dieses verwurschtelt:an dieser Stelle haben ich noch einen Typenfehler:Set Entity = ThisDrawing.SelectionSets("sstest") . wahrscheinlich weise ich dieses Entity noch falsch zu?Code:Sub testauswahl()Dim dummyDim fl As DoubleDim Entity As AcadEntityDim pl As AcadLWPolylinedummy = Auswahl("sstest") fl = 0 Set Entity = ThisDrawing.SelectionSets("sstest") For Each Entity In ThisDrawing.SelectionSets("sstest") If UCase(Entit ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Mittels Access einen Block aus einer .dwg (Bibliothek) in eine andere .dwg einfügen
alfred neswadba am 09.10.2009 um 23:06 Uhr (0)
Hi Manuel, da mir schlicht und einfach das Knowhow in Sachen VBA, speziell beim Zugriff auf Datenbanken, fehltDann müssten wir uns überlegen, ob das hier das richtige Forum ist? Bei Deinem Statement zu meinem Punkt b) hast Du ev. nicht ganz zu Ende gelesen, denn hier wird DesignCenter NICHT zur entgültigen Arbeitsoberfläche verwendet, sondern lediglich zum Konvertieren Deiner zu einer AutoCAD-Werkzeugpalette! Durch aufsplitten der Bibliothek in .dwg pro Symbol, bzw. pro Kategorie entfallen Möglichkeiten ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
