|
Rund um Autocad : AutoCAD 2007, Programmabsturz bei Makro
startrek am 10.01.2007 um 17:14 Uhr (0)
Hi, 2: keine VBA-Befehle (vbalad, vbaide etc.) ausführen kannAn den _vbaman kommst Du also auch nicht ran?Wenn doch, da mal alles rausschmeissen, was geladen werden will (wurde)Gruss Nancy
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : AutoCAD 2007, Programmabsturz bei Makro
startrek am 10.01.2007 um 19:18 Uhr (0)
Okay, ich weiss jetz nicht, was bei Dir sein könnte,fakt ist, dass da irgendein Modul etc leicht defekt sein könnte.A) Hast du *.dvbs in der Startgruppe _appload drinnen?Diese werden dann bei jedem Start von Acad geladen,was aber bedeutete, du kämst überhaupt nie & never mehr in die vbaide.B) hast du *.dvbs manuell geladen? Dann einfach nicht mehr laden;-)C) handelt es sich um eingebetteten Code?Wenn ja, dann versuche mal die Zeichnung mit _wblock rauszuschreiben,sodass du erstmal den vba-crash-code los bi ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : AutoCAD - Befehle mittels VBA aufrufen
startrek am 11.03.2007 um 17:26 Uhr (0)
Moinmoin und willkommen!Fürs nächste Mal, zum Acad/VBA gehts hier entlang ;-)Fensterputzpausenmakro ohne sendcommand bähh;-):Code:Sub x() Dim acadApp As Object Dim p#(2) Set acadApp = CreateObject("autocad.application") acadApp.Visible = -1 p=0,0,0 (Ursprung) | Radius = 5 acadApp.ActiveDocument.ModelSpace.AddCircle p, 5# acadApp.ZoomExtentsEnd SubF1 auf sendcommand in der Acad/VBA Hilfe bringt dies:Code:Sub Example_SendCommand() This example sends a command for evaluation to the AutoCAD command li ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : AutoCAD - Befehle mittels VBA aufrufen
startrek am 11.03.2007 um 19:03 Uhr (0)
Freut mich :-), aber BitteBitte, etwas muss ich mal noch loswerden: Ich möchte mittels eines aus Excel aufgerufenen VBA-Makros Autocad öffnen und diverse Befehle ausführen lassen... Leider habe ich herzlich wenig Ahnung von Excel/VBA, Acad/VBA Das erklärt das SendCommand erstmal insofern als komfortabler, da du kaum Syntaxkenntnis brauchst und nur die Commandlinebefehle nachbauen musst, und zack, schon kannste aus Excel zeichnen.Aber glaub mir, mit Sendcommand biste auf Dauer wirklich schlecht beraten, was ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : AutoCAD - Befehle mittels VBA aufrufen
startrek am 11.03.2007 um 18:14 Uhr (0)
Sendcommand komfortabler??Na wennde meinst ..., des Menschen Wille ist sein Himmelreich oder so;-)(Ich meine - wir reden dadrüber sicher später nochmal)Code:Sub x() Dim acadApp As Object, p#(2) Set acadApp = CreateObject("autocad.application") With acadApp .Visible = -1 .ActiveDocument.ModelSpace.AddCircle p, 5# .activedocument.SendCommand "_circle" & Chr(13) & "12,12,12" & Chr(13) & "5" & Chr(13) .ZoomExtents End WithEnd SubGrüsse, Nancy[Diese Nachricht wurde von startrek am 11. Mrz. 2007 ...
| | In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Texte in Tabellen
startrek am 02.12.2009 um 20:15 Uhr (0)
Sorry - totalen Käse verfasst ... mit formatierten Tabellentexten nützt das natürlich niente, nada Ist dann in etwa dasselbe, wie bei Mtexten, über gettext() bekomm ich dann in etwa sowas:Code:{fArial Black|b0|i0|c0|p34;ddddddddd}{fArial|b1|i0|c0|p34;Lbbbbbbbbb}Bei MTexten hilft ja, einfach mal in einen Texteditor kopieren und zurück, bei Tabellen grade keinen Plan.Ich habs mal versucht, aber mit Vorsicht zu geniessen und nur für einzeilige Texte, die je Text einheitlich formatiert sind, wie s.o.Hab nic ...
| | In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Texte in Tabellen
startrek am 03.12.2009 um 16:15 Uhr (0)
Hallo nochmal,drücke mal bitte Alt+F11 im Acad es erscheint der VBE.Dort oben im Menue Einfügen ModulIn das leere Modul1-Fenster kopierst du den Code (leicht geändert zu gestern):Code:Option ExplicitSub testen()tablechange "Romans", 100, 100, 100End SubFunction tablechange(txtstyle As String, Rot&, Gelb&, Blau&) Dim objO As Object, pp As Variant Dim s$, r&, c& Dim color As AcadAcCmColor Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16") Dim re As Object Set re = CreateObject(" ...
| | In das Form Rund um AutoCAD wechseln |
|
Anwendungen : Längen 2007
startrek am 08.11.2011 um 16:42 Uhr (0)
http://ww3.cad.de/cgi-bin/ubb/forumdisplay .cgi?action=topics&forum=Rund+um+AutoCAD&number=54&DaysPrune=1000&LastLogin=&mystyle=AUGCE Hier der Link zum Acad-Brett. Am besten du versuchst es dort nochmal;-)lg Nancy[edit: völlig übersehen, Stefan & Christian hatten ja auch bereits verlinkt][Diese Nachricht wurde von startrek am 08. Nov. 2011 editiert.]
| | In das Form Anwendungen wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
