|
Autocad VBA : Abrollmenü anzeigen
Heiko76 am 14.10.2005 um 09:39 Uhr (0)
Hallo,falls es jemanden interessiert, hier der Code. Habe es dann doch noch hin gekriegt.*** Show Toolbar ***Set oMenuGrp = AutoCAD.Application.MenuGroups.Item(menüname in Autocad)Set oTBar = oMenuGrp.Toolbars.Item(toolbar)oTBar.Visible = TruesTBarName = oTBar.NameIf oTBar.Visible = True Then MsgBox "Toolbar: " + sTBarName + vbCr + "Status: Visible"Else MsgBox "Toolbar: " + sTBarName + vbCr + "Status: Hidden"End If*** End Show toolbar ****** Menü laden und Abrollmenü einfügen ***mnunamenew = "mnupfad"noc ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeiten im Programmablauf überwachen
Heiko76 am 14.10.2005 um 12:59 Uhr (0)
Ich habe eine Datenbankanbindung unter AutoCAD programmiert. Alles unter VB6 mit einer SQL Datenbank im Hintergrund. Das läuft auch Alles super. Jetzt ist der Quellcode mittlerweile ca. 3,5MB groß, also eine ganze Menge. Unsere Konstruktion ist an verschiedenen Standorten, aber die Datenbank nur an einem. Jetzt sitze ich mittlerweile an einem anderen standort und muß mit entsetzen fest stellen, das die Anbindung hier total lahm ist. Die Datenverbindung zum Server ist top, das Tool selber liegt lokal auf ei ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Timer in Autocad 2000 einbinden ?
Stelli1 am 16.10.2005 um 17:04 Uhr (0)
Hallo Ralf,da war doch so was. http://ww3.cad.de/foren/ubb/Forum259/HTML/000674.shtml#000008 Stelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeiten im Programmablauf überwachen
Stelli1 am 16.10.2005 um 17:31 Uhr (0)
Hallo Heiko,zur Arbeitserleichterung kannst du in VB mit bedingten Variablenarbeiten.Code:#Const demoversion = True#If demoversion = True Then If Format(Date, "yyyymmdd") "20051231" Then On Error Resume Next Unload frmSplash frmAbout.Show MsgBox "Sorry .." End End If#End IfSo kannst du deine Testroutinen im Programmcode lassen ohnedas diese nachher mit in die Exe kommen (Variable ändern).Wir haben ein zentrale Log Datei am Anfang und Ende einer Funktion wird hier ein Ein ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Code in neuem Modul oder in ThisDrawing
Stelli1 am 16.10.2005 um 20:02 Uhr (0)
Hallo Didi,grundsätzlich ist VBA auch Objekt orientiert. Beim AutoCAD VBA ist schon immer ein Standard Objekt "thisdrawing" angelegt. In diesem Objekt (Klassenmodul) werden die Eigenschaften und vor allem die Events für diese Klasse verwaltet. Für komplexere Aufgaben sollte man auch von der Möglichkeit gebrauch machen eigene Klassen anzulegen.Für globale Standardaufgaben z.B. Funktionen für irgendeine Umwandlung sollten die "normalen" Module verwendet werden.Ich habe die Module ein bisschen organisiert:z.B ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD-Befehl in VBA definieren
fred_tomke am 18.10.2005 um 16:17 Uhr (0)
Hallo,kann ich einen AutoCAD-Befehl (so einen, den man an der Befehlszeile eingeben kann) im VBA definieren?VG, Fred
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD-Befehl in VBA definieren
Goofy007 am 18.10.2005 um 16:29 Uhr (0)
hi fred,du kannst mittels ThisDrawing.SendCommand Autocadbefehle ausführen.mfg didi
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD-Befehl in VBA definieren
fred_tomke am 18.10.2005 um 16:31 Uhr (0)
Hallo,ich meine nicht ausführen, sondern definieren.Ich habe hier ein VBA-Sub und dieses möchte ich gern als Befehlszeilenfunktion haben. Ich will das aber nicht per Lisp definieren, sondern per VBA.Geht sowas?VG, Fred
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD-Befehl in VBA definieren
CADmium am 18.10.2005 um 17:20 Uhr (0)
... mit Lisp geht das .. ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD-Befehl in VBA definieren
fred_tomke am 18.10.2005 um 18:37 Uhr (0)
Hallo,gern möchte ich darauf verweisen, dass i des scho weiß. ;-)Ziel ist jedoch, dass eine DVB geladen wird und sofort ein neuer AutoCAD-befehl definiert ist.Geht sowas auch?VG, Fred
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD-Befehl in VBA definieren
Stelli1 am 18.10.2005 um 19:14 Uhr (0)
Hallo Fred,habs mal so probiert.Code:Sub testlauf() Alias xyz MsgBox "Hallo"End SubSub cmds() Dim strCmd As String strCmd = "(defun c:xyz (/) (vla-runmacro(vlax-get-acad-object) ""testlauf""))" & Chr$(13) ThisDrawing.SendCommand strCmdEnd SubDie Sub cmds erzeugt im AutoCAD das oder die Befehlssynonym(e).Du musst nur noch schauen das diese Sub zuerst abgearbeitet wird.Übrigens noch der Hinweis auf die Grundidee von RoSiNiNosiehe: http://ww3.cad.de/foren/ubb/Forum259/HTML/000142.shtml#000004 Zitat:.. ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : CivilTINVolumeSurface: Kaufe Äpfel, kriege Birnen
fred_tomke am 19.10.2005 um 08:02 Uhr (0)
Hallo,ich krieg hier Mega-schlechte Laune:Man erzeuge zwei TINSurfaces.Bilde aus den beiden ein TINVolumeSurface.Im VBA-Makro1 wird iterativ die Surface-Collection nach TINVolumeSurface geprüft. Für alle TINVolumeSurfaces werden aus dem Statistics-Objekt die Volumina ausgegeben.Ist das Surface vom Type aecckTINVolumeSurface, ist das Object vom Type AeccTinVolumeSurface und das Statistic-Object vom Type AeccTinVolumeSurfaceStatistics. So solls sein.Im VBA-Makro2 wird mittels ThisDrawing.Utility.GetEntity ei ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : CivilTINVolumeSurface: Kaufe Äpfel, kriege Birnen
fred_tomke am 19.10.2005 um 09:56 Uhr (0)
Nein, ich will kein DGM nachprogrammieren. Ich will das von Autodesk mitgelieferte DGM nutzen: Nachdem man nun DGMs im Map und Civil erstellen kann, gelingt es mir endlich, Kundenanfragen zu beantworten, die bspw. mit unserer Pflanzenverwendung einem TinSurface (z.B. Wall-Oberfläche) eine Ansaat zuweisen wollen.Das Pendant dazu wäre für das LV-Massenmanagement das TinVolumeSurface für die Mengenberechnung: Ich weise einer Position im AutoCAD ein Objekt zu und habe das Volumen für die Kostenschätzung.VG, Fr ...
|
| In das Form Autocad VBA wechseln |
