|
AutoCAD VBA : Problem: AutoCAD Event abbrechen (RightClick und DblClick)
Stelli1 am 11.12.2007 um 20:15 Uhr (0)
Hallo,ohne das jetzt nachvollzogen zu haben.Kann man da nicht so was wie ESC Richtung AutoCAD senden ?Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Pfade
Stelli1 am 18.12.2007 um 18:22 Uhr (0)
Hallo Björn,die Verweise gelten je DVB Datei.Du kannst IMHO beliebig viele Verweise einbinden, solltest dich aber auf das notwendige beschränken. Alles was du unter Verweisen angegeben hast muss auch auf dem Rechner auf dem das Script läuft vorhanden sein. Also unnötige Verweise auf Datenbanken, Office etc. vermeiden da dein Script sonst eventl. nicht auf dem anderen Rechner läuft. Die Ausführung von "Microsoft Scripting Runtime" z.b. kann auf einem Rechner unterbunden sein. Diese DLL stammt aus dem IE.Die ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Pfade
Stelli1 am 05.01.2008 um 18:08 Uhr (0)
Hallo Björn,fehlerhafte Radien kannst du im SQL Sheet ermitteln.Code:-- Beispiel für Grenzenselect fid,seq_param1 from AL_F_GRENZE_TBS_GEO where abs(SEQ_PARAM1) 1;Ich habe dir mal ein wenig Programmcode angehängt mit dem du die Linien mal probeweise in AutoCAD prüfen/korregieren kannst. Ich vermute mal, dass die Linien den Gegenbogen darstellen.Lade den Code doch mal in ein VBA Modul und bearbeite die Linien damit. Zu beachten ist, dass eventuell mehrere Linien 2*Grenze, 2* Nutzung etc. übereinander liegen ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Icon vor Menüeintrag setzen
Stelli1 am 07.01.2008 um 17:04 Uhr (0)
Hallo Martin,wo willst du das Icon setzen.VB6, AutoCAD VBA, AutoCAD ???Füll doch mal die Systeminfo in deinem Profil aus.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte aus PVIEWPORT lesen
Stelli1 am 10.01.2008 um 20:00 Uhr (0)
Hallo Andreas,ich kann mich kaum noch erinnern.Die (Welt)Koordinate des Ansichtsfensters, dass war doch das was du brauchst, ist in der Eigenschaft "Center" gespeichert.Ich hab mal einen Codeausschnitt eingefügt. Vielleicht hilft er dir weiter.Code:Sub Werte_Aktualisieren() Dim Zentrum As Variant If Me.com_Layout.ListIndex = -1 Then MsgBox "Es ist kein Layout angegeben !" & vbCrLf & vbCrLf _ & "Die Funktion kann nur im Layout ausgeführt werden!", vbCritical Exit Sub End If ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Einlesen von Blockdefinitionsdatei
Stelli1 am 29.01.2008 um 11:13 Uhr (0)
Hallo,es sind wohl noch was wenig Informationen da.Was hast, du für ein AutoCAD ?Was ist das für eine Datei ? (ASCII, XLS ..)Was willst du erreichen ?Bei der Anzeige des Formulars scheinst du auf deine externe Datei zuzugreifen. Diese wird geöffnet aber nicht wieder geschlossen so das du beim zweiten Mal eine Fehlermeldung bekommst.Wilfried StelbergPS: Füll doch dein Profil bitte aus.------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Einlesen von Blockdefinitionsdatei
Stelli1 am 29.01.2008 um 11:42 Uhr (0)
Hallo,so langsam kommen wir der Sache näher. Du fügst eine Datei als XREF ein. Mit .bind machst du sie zum Bestandteil deiner Zeichnung.Wenn du das Brett an der dünnsten Stelle anbohrst speicherst du in einer globalen Variable ob du deine Prototypenzeichnung schon mal eingefügt hast oder nicht (Public vgbo_BlocksInserted as boolean).So brauchst du beim zweiten Mal die Datei nicht mehr einfügen.Wenn du es ordendlich machen willst, dann suchst du mal nach ObjectDBX und CopyObjects.Damit kannst du eine DWG q ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Diagrammdarstellung in AutoCAD
Stelli1 am 07.02.2008 um 12:17 Uhr (0)
Hallo Thomas (oder Bernd) ?wenn du ein DGM hast kannst du deine Messwerte sozusagen als Höhe einbringen.Das DGM interpoliert dir die Linien gleicher Höhe (Messwerte). So hast du eine homogene ausgeglichene Dartsellung. Die Höhenschichten kannst du einfärben.Mit Civil wäre so was möglich. Ansonsten müsstes du so was "nachstellen". Du kannst doch dein Raster feiner wählen. Die Zwischenpunkte interpolierst du aus den Nachbarwerten. So wird dein Raster feiner und die Darstellung wird zumindest optisch besser.W ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Automatischer Programmstart
Stelli1 am 13.02.2008 um 11:42 Uhr (0)
Hallo Ines,du kannst eine DVB Datei auch in eine Zeichnung einbetten (im VBAMAN-anger). Dann hängen die Funktionen direkt an der Zeichnung. Allerdings einen BeginOpen Event gibt es IMHO nicht.Meines Wissens wird beim Laden einer Zeichnung die AcadDoc.Lsp abgearbeitet. Vielleicht kann man aus einer Kombination von eingebundener DVB und dieser Lisp was machen.Davon abgesehen würde ich das so nicht machen. Ich öffne nie fremde Dateien bei denen man erst die Makros aktivieren muss um sie zu laden. Mit 5 Zeilen ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA optionButton1 Aktive oder deaktive
Stelli1 am 13.02.2008 um 11:52 Uhr (0)
Hallo,dein Programmcode kann so nicht funktionieren. Das einizige was ihn durchlaufen läßt ist die Einstellung "On error resume Next". Dann überspringt er alle fehlerhaften Zeilen.Mit dem CodeCode:ThisDrawing.Layers.Add("7_Tekt_M2").Freeze = Trueerzeugst du einen Layer. Er ist nicht dazu geeignet die Eigenschaften abzufragen oder einzustellen.So geht es richtigCode:ThisDrawing.Layers("7_Tekt_M2").Freeze = Trueoption1.value = ThisDrawing.Layers("7_Tekt_M2").FreezeIn deinem Fall wäre es doch viel einfacher d ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Automatisches Drucken
Stelli1 am 14.02.2008 um 11:44 Uhr (0)
Hallo,wie Thomas schon geschrieben hat ...Du bist hier im AutoCAD VBA Forum. Ich schiebe den Beitrag mal nach Inventor VBA rüber.Ich hoffe da kann man dir besser helfen.Wilfried StelbergPS: Hast du schon einen Ansatz in VBA ?------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Automatischer Programmstart
Stelli1 am 14.02.2008 um 17:06 Uhr (0)
Hallo Ines,hier ist mal ein Programmcode mit dem du ab einem Startordner nach einer Datei suchen kannst.Code:Sub SucheDatei() Debug.Print DateiSuche("C: emp", "Suchmich.txt")End SubFunction DateiSuche(vlst_Root As String, vlst_Datei As String) As String !!! Verweis auf Microsoft Scripting setzen !!! Dim fso As FileSystemObject Set fso = New FileSystemObject Dim RootFolder As Folder Dim SubFolder As Folder Ist die Pfadangabe mit abschliessenden If Right(vlst_Root, 1) "" ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Automatischer Programmstart
Stelli1 am 14.02.2008 um 13:05 Uhr (0)
Hallo Ines,so langsam versteh ich was du machen willst. Einige Restriktionen sollten schon da sein. Das mit dem automatischen Suchen nach einer Datei geht ja ins Uferlose. Wenn da noch im Netzwerk gesucht werden soll. AutoCAD hat ja auch Supportpfade in denen es sucht. Da gibt es schon Funktionen (programmierte) die In Pfaden suchen. Dann hast du aber immer noch das Problem das der Anwender zwei Versionen von deinen Dateien hat. Ich würde es so machen, dass die Exceldatei und die DWG Datei im gleichen Ordn ...
|
| In das Form AutoCAD VBA wechseln |
