|
AutoCAD ARX Object : Layer Filter
DrCNC am 04.01.2011 um 23:23 Uhr (0)
Möchte mit VB.net Layer in der aktuellen Zeichnung Filtern (nach bestimmten Namen) oder auch Blöcke (mit Namen)kann mir jemand helfendanke im voraus!
| | In das Form AutoCAD ARX Object wechseln |
|
AutoCAD ARX Object : DXF Speichern
DrCNC am 04.01.2011 um 15:18 Uhr (0)
Ich programmiere einige Zeit schon in VBA, ich soll eine Zeichnung als dxf abspeichern,funktioniert in VBA einwandfrei ThisDrawing.SaveAs(DXF_TempName, ac2007_dxf)Leider bekomme ich es in VB.net nicht hin. Wenn ich diesen BefehlThisDrawing.SaveAs(DXF_TempName)verwende, wird eine dwg abgespeichertbesten Dank im vorausDrCNC
| | In das Form AutoCAD ARX Object wechseln |
|
AutoCAD ARX Object : Blockeinfügewinkel
DrCNC am 09.02.2011 um 21:02 Uhr (0)
Hallo,Habe volgenden Code probiert.Public Sub BlockWinkel() On Error Resume Next Dim Pickedpoint As Object Dim Winkel As Double Dim Bref As AcadBlockReference Pickedpoint = Nothing With ThisDrawing.Utility .GetEntity(Bref, Pickedpoint, vbCrLf & "bitte Block wählen") If Bref.Name = "Unterkante" Then Winkel = Grad(Bref.Rotation) MsgBox("der Winkel beträgt: " & vbCrLf & vbCrLf & " " & Format(Winkel, "#0.0"), MsgBoxStyle.OkOnly, "Winkel") End If End WithEnd SubIch möchte nicht den Block mit ...
| | In das Form AutoCAD ARX Object wechseln |
|
AutoCAD ARX Object : Blockeinfügewinkel
DrCNC am 12.02.2011 um 22:29 Uhr (0)
Guten Abend!Besten Dank für die Anregung und habe den Code wie folgt abgeändert.Public Sub BlockWinkel() Dim Pickedpoint As Object Dim Winkel As Double Dim Bref As AcadBlockReference Pickedpoint = Nothing Try With ThisDrawing.Utility .GetEntity(Bref, Pickedpoint, vbCrLf & "bitte Block wählen") If Bref.Name = "Unten" Then Winkel = Grad(Bref.Rotation) MsgBox("der Winkel beträgt: " & vbCrLf & vbCrLf & " " & Format(Winkel, "#0.0"), MsgBoxStyle.OkOnly, "Winkel") Else MsgBox("Der Block heißt ...
| | In das Form AutoCAD ARX Object wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
