|
Autocad VBA : dvb installieren
fuchsi am 13.02.2004 um 12:41 Uhr (0)
aus der onlinehilfe VBA kann erst geladen werden, wenn Sie einen AutoCAD-VBA-Befehl eingeben. Wenn Sie VBA automatisch beim Starten von AutoCAD laden lassen möchten, fügen Sie die folgende Zeile in die Datei acad.rx ein: acadvba.arx Sie können automatisch ein Makro in der Datei acad.dvb ausführen, indem Sie das Makro AcadStartup nennen. Alle Makros mit dem Namen AcadStartup in der Datei acad.dvb werden beim Laden von VBA automatisch ausgeführt. die acad.rx ist eine textdatei, wo alle ARX-Programme aufge ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Voloview per VB starten
fuchsi am 04.06.2004 um 08:35 Uhr (0)
falls der volociew eine com-schnittstelle hat, solltest du diese in der registry finden z.B.:Autocad [HKEY_CLASSES_ROOTAutoCAD.Application] @= AutoCAD Application [HKEY_CLASSES_ROOTAutoCAD.ApplicationCLSID] @= {1365A45F-0C8F-4806-A26A-6B22AD37EC66} [HKEY_CLASSES_ROOTAutoCAD.ApplicationCurVer] @= AutoCAD.Application.16 weiters kannst du auch im VBA-editor unter Extras- Verweise schauen, ob hier der VoloView eingetragen ist, findest du weder in der REG noch in den verweisen den voloview, so ist dieser n ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Führungslinie erstellen.
fuchsi am 06.07.2004 um 15:25 Uhr (0)
naja dein amnote dürfte eine funktion des mechinical desktopes (oder sonst einer applikation) sein. im reinen autocad entspricht dein makro dem befehl FÜHRUNG hier wird beim verschieben der führungslinie genausowenig der text verschoben, sondern nur beim verschieben des textes die Linie. ------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Längenermittlung von Polylinien
fuchsi am 13.08.2004 um 12:11 Uhr (0)
Hallo Holger ! ich such mir diese Methoden,Eigenschaften immer in Lisp mit (vl-dump-object) da wirs es anscheinend nicht aufgeführt ; IAcadLWPolyline: AutoCAD Lightweight Polyline-Schnittstelle (optimierte Polylinie) ; Eigenschaftswerte: ; Application (RO) = # VLA-OBJECT IAcadApplication 00a99b84 ; Area (RO) = 26976.2 ; Closed = 0 ; Color = 256 ; ConstantWidth = 0.0 ; Coordinate = ...Indizierter Inhalt wird nicht angezeigt... ; Coordinates = (97.8498 70.8193 129.24 216.379 240.578 102.676 .. ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Führungslinienkommentar via VBA
fuchsi am 27.09.2004 um 16:20 Uhr (0)
das kann ich dier so nicht sagen, da ich kein mechanical zum testen hier habe. dieses beispiel bezog sich eher auf den autocad-befehl FÜHRUNG obs eine mechanical-unterstützung in VBA gibt ???? zur not geht ja immer noch thisdrawing.sendcommand( LINIE 0,0,0 1,1,0) & vbcr) also alle befehle, die du per tastatur verwenden kannst, solltest auch mit thisdrawing.sendcommand reinschiessen können ------------------ WWW.FFZELL.AT.TC
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Late binding
fuchsi am 27.09.2004 um 16:37 Uhr (0)
probiers mal so Function StartAcad() As Object On Error Resume Next Set StartAcad = CreateObject( AutoCAD.APPLICATION ) If Err.Number = 0 Then Exit Function Else Err.Clear Set StartAcad = CreateObject( AutoCAD.APPLICATION.15 ) If Err.Number = 0 Then Exit Function Else Err.Clear Set StartAcad = CreateObject( AutoCAD.APPLICATION.16 ) If Err.Number = 0 Then Exit Function Else ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Delphi
fuchsi am 02.12.2004 um 10:49 Uhr (0)
- Ist diese Verbindung von ACAD und Delphi überhaupt der richtige Weg? kann ich dir nicht sagen,kenne Delphi selber nicht. aber da es OLE Objekte ansprechen kann und du diese sprache anscheinend kennst , warum nicht ? - Muß ich vorher eine ActivX-Komponente installieren? eigentlich nein, das instanzieren von autocad und das öfnnen funktioniert ja - Wie würde eine Programmzeile z. B. zum erstellen einer Linie aussehen? in vb würde das so aussehen Dim p1(0 To 2) As Double Dim p2(0 To 2) As Double p1(0) = 0: ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : copy Funktion AutoCAD-Excel
fuchsi am 02.12.2004 um 10:58 Uhr (0)
bei solchen Fragen hilft der Makrorecorder in excel alles was du fernsteuern willst einfach manuell in excel durchgehen un die schritte mit dem Macrorecorder aufzeichen. den aufgezeichneten Code dann anschauen und in Autocvad VBA umsetzten Bei deiner Fragestellung kommt z.B.: folgendes raus Sub Makro1() Makro1 Makro Makro am 02.12.2004 von CCM-Client: 12027 aufgezeichnet Sheets( Tabelle1 ).Select Sheets( Tabelle1 ).Copy After:=Sheets(3) End Sub was sagt uns das: du musst nach dem after d ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ausgewähltes element reseten
fuchsi am 02.12.2004 um 11:34 Uhr (0)
am einfachsten, wenn du vor der abfrage einfach returnobj zurücksetzt Set returnObj = Nothing AutoCAD.ActiveDocument.Utility.GetEntity returnObj, basePnt, strPromt ------------------ WWW.FFZELL.AT.TC
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : copy Funktion AutoCAD-Excel
fuchsi am 02.12.2004 um 13:59 Uhr (0)
nun ja das liegt daran, dass du autocad vba bist und nicht in excel vba aber ein bisschen Kreativität sollte doch vorhanden sein z.B: Dim excel As New excel.Application excel.Visible = True excel.Workbooks.Add Dim sh As Sheets Set sh = excel.ActiveWorkbook.Sheets Call sh(1).Copy(, sh(sh.Count)) damit wird die erste Seite kopiert und nach derletzten seite sh(sh.count) kopiert before wird weggelassen ------------------ WWW.FFZELL.AT.TC
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vergleich von zwei sequentiellen Dateien
fuchsi am 02.12.2004 um 08:44 Uhr (0)
ohne jetzt auf die variante einzugehen, die dateien zuerst einzulesen und dann erst zu vergleichen. du macht folgenden fehler: die innere schleife läuft bis eof(2). der dateizeiger steht dann natürlich am dateiende und rutscht nicht mehr bach vorne. du müsstest das folgendermassen umbauen: open ...... for input as #2 Do While Not EOF(2) .... Loop close #2 d.h immer erst vor dem inneren schleifendurchgang die datei öfnnen, und dann sofort wieder schlissen. damit steht der dateizeiger immer am schleifenan ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vergleich von zwei sequentiellen Dateien
fuchsi am 02.12.2004 um 14:24 Uhr (0)
hier nur als kleiner anhalt Dim p(0 To 2) As Double Dim punkte1 As New Collection statt dieser for schleife liest du die erste datei ein und speicherst die x y z werte ind die kollection p(0),p(1),p(2) ich habe es testweise halt mit 0,0,0 1,1,1 2,2,2 usw. gefüllt For i = 0 To 15 p(0) = i p(1) = i p(2) = i punkte1.Add p Next jetzt machst du eine schleife, wo du datei 2 zeile füe zeile einliest, und testest mit folgendem code ob die x y z werte in der col ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vergleich von zwei sequentiellen Dateien
fuchsi am 03.12.2004 um 13:17 Uhr (0)
probiers mal mit diesem code hier habe ich 6 übereinstimmende Punkte gefunden (allerdings hat die adtei AP-Koordinaten keinen Z-wert) Sub test() Dim punkte1 As New Collection Dim p(0 To 2) As String Open "d: estBlockauslesung2.txt" For Input As #1 While Not EOF(1) jeder Datensatz besteht anscheinen aus 7 Zeilen in der Datei Line Input #1, dat nicht interresant Blockname ? Line Input #1, dat nicht interresant referenznummer ? Line Input #1, p(0) x-we ...
|
| In das Form Autocad VBA wechseln |
