|
Autocad VBA : Notbremse ziehen
Proxy am 05.01.2005 um 10:53 Uhr (0)
SDI könnte helfen oder einfach sauberer Progen. ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Notbremse ziehen
Proxy am 05.01.2005 um 11:52 Uhr (0)
Schau mal in der Online-Hilfe bei Sub Example_SetVariable() und/oder schau das du die bereits verarbeiteten DWGs nach auch sauber schliesst und erst danach die nächste Datei öffnest. Das mit Performance ist unter jedem OS normal, siehe auch hier . ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Konturerkennung
Proxy am 31.01.2005 um 07:36 Uhr (0)
Befehl Umgrenzung Erzeugt aus einer umgrenzten Fläche eine Region oder Polylinie in der Onlinehilfe nachschauen. Dieser ist genau das was du willst. ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Konturerkennung
Proxy am 31.01.2005 um 13:28 Uhr (0)
IMHO ist das in VBA zwar bestimmt möglich jedoch ist es mit hunderten von Codezeilen verbunden und wer hat schon grossartig Bock drauf. Code: Private Function Boundary(ByVal XYpoint As Variant) As AcadLWPolyline Const X As Byte = 0, Y As Byte = 1, Z As Byte = 2 Dim PrevTotal As Long Dim XYstring As String ThisDrawing.SetVariable NOMUTT , 1 PrevTotal = ThisDrawing.ModelSpace.Count XYstring = CStr(XYpoint(X)) & , & CStr(XYpoint(Y)) ThisDrawing.SendCommand ._-boundary & vbCr & A & vbCr & _Island ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Crystal Reports 6 download
Proxy am 01.02.2005 um 21:50 Uhr (0)
PC Magazin 11/00 PC Business 04/00 PC Business 03/00 Ansonsten ist es ehh veraltet und Grauzonenfrage . ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Crystal Reports 6 download
Proxy am 14.02.2005 um 09:43 Uhr (0)
Die 10 er Version. ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Verbindungslinie der Blöcke ermitteln
Proxy am 18.02.2005 um 22:58 Uhr (0)
Iimho musst du die einzelnen Subentities mit einer Schleife durchrattern oder den Block sprengen und dann mit den einzelnen Objekten ein intersectionpoint errechnen. Zitat: - snip Dim ExpBlk As Variant Dim PntArr() As Variant Dim CurEnt As AcadEntity Dim EntCnt As Integer Dim LowBnd As Integer Dim UppBnd As Integer ExpBlk = TheBlockReference.Explode LowBnd = LBound(ExpBlk) UppBnd = UBound(ExpBlk) Redim PntArr(LowBnd To UppBnd) For EntCnt = LowBnd To UppBnd Set CurEnt = ExpBlk(EntCnt) With CurEnt PntAr ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : automatische Ermittlung der Rahmenabmaße
Proxy am 25.02.2005 um 07:29 Uhr (0)
Ist der Rahmen ein Block, Polylinienzug ... einzelne Linien ? Sind die Rahmen immer einzeln im Layoutbereich oder irgendwo im Modellbereich ? Fragen über Fragen ... Als Beispiel BoundingBox eines ssgets. Code: Sub ad_ssBox() This routine gets and shows the bounding box of a selection set. Demand load: -vbarun;ad_Utility.dvb!ad_ssBox; Dim adExtMax As Variant, adExtMin As Variant Dim adtmpMax As Variant, adtmpMin As Variant Dim adSS As AcadSelectionSet Dim adEnt As AcadEntity Set adSS = This ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : vba lernen mit buch
Proxy am 25.02.2005 um 11:57 Uhr (0)
Wenn du ein Neuling im Programmieren bist dann ist imho das Buch mit ca. 161 Seiten Einleitung und Vertiefung zur VBA etwas heftig, Gesamtzahl der Seiten ca. 900 . Der Autor bring ca. 10 jahre Erfahrung mit VBA/AutoCAD mit. Ich würde es empfehlen wenn bereits praktische Erfahrung in VBA hast. ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Per VB6 ein eTranmit erstellen...
Proxy am 10.03.2005 um 13:52 Uhr (0)
Zwar kein VBA aber auch eine VBA-Lösung. filedia und sonstige Störfaktoren ausschalten und mit thisdrawing.sendcommand "._-etransmit" "zip" ... die datei(n) erstellen. ------------------ " Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Linie in Polylinie umwandeln
Proxy am 14.03.2005 um 13:34 Uhr (0)
Als kleiner Denkanstoss: Code: Public Sub StartEndPoint() Dim oAcadLine As AcadLine Dim oAcadPoly As AcadLWPolyline Dim oEntity As AcadEntity Dim Point As Variant On Error Resume Next ThisDrawing.Utility.GetEntity oEntity, Point, Objekt wählen: If oEntity Is Nothing Then Exit Sub Select Case oEntity.ObjectName Case AcDbLine Set oAcadLine = oEntity With oAcadLine MsgBox Start: & .StartPoint(0) & , & .StartPoint(1) & , & .StartPoint(2) & vbCrLf & End: & .EndPoint(0) & , & .EndPoint(1 ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Seite einrichten mittels VBA
Proxy am 14.03.2005 um 15:46 Uhr (0)
SchnippSchnapp:Code:Sub Example_CanonicalMediaName() This example finds the name of the media for the active layout Dim MediaName As String MediaName = ThisDrawing.ActiveLayout.CanonicalMediaName If MediaName = "" Then MsgBox "There is no media set for the active layout." Else MsgBox "The media for the active layout is: " & MediaName End IfEnd Sub------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department langu ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : vba Laufzeit für ein formular
dw am 29.06.2007 um 12:04 Uhr (0)
Wer kann mich hilfe?Eine vba code Laufzeit für ein formular zu erstellen welche zusammen mit der system zeit der computer fünctioneert.
|
| In das Form AutoCAD VBA wechseln |
