|
Lisp : Map Civil 3D DGM Objekt via ActiveX erstellen
CAD-Huebner am 26.01.2006 um 15:01 Uhr (0)
Ich versuch ein Civil/Map 3D DGM zu erstellen.Leider gibts dafür nur spärliche VBA Tipps und gar keine Lisp Tipps.Mein Programm sieht so aus:Code:(DEFUN C:Test() ; Neue DGM Fläche in MAP/ Civil 3D anlegen ; aber wie definiere ich eien Variable vom Typ TinCreationData ? (setq acadObj (vlax-get-acad-object) ; connect to Civil oder Map3D aeccApp (vla-getinterfaceobject acadObj "AeccXUiLand.AeccApplication") aeccDoc (vlax-get-property aeccApp "activedocument") aeccSurfs (vlax-get-property aeccD ...
|
| In das Form Lisp wechseln |
|
Lisp : Wo bin ich - in Excel ?
CAD-Huebner am 06.09.2006 um 09:08 Uhr (0)
Zitat:Original erstellt von Andreas Kraus: ...Wie soll denn ein normaler Mensch drauf kommen was für Parameter da gebraucht werden ?...AndreasUm die richtigen Parameter für ActiveX Aufrufe herauszufinden, ist (vlax-Dump-Object Object) in AutoLisp schon ein geeignetes Mittel, um die verfügbaren Eigenschaften (Properties) und Methoden aufzulisten. Was die Eigenschaften und Methoden im Einzelnen bedeuten und welche Parameter nötig sind, kann man in der Dokumentation des jeweiligen ActiveX Servers (hier Exce ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : winklige Linien zeichnen
CAD-Huebner am 24.06.2006 um 21:44 Uhr (0)
@CADHeinerDas ist ein Problemthema in AutoCAD@griesgramAuch bei der polaren Koordinateneingabe = LängeWinkel oder @LängeWinkel, wird der Winkel immer absolut von der X-Achse des BKS aus gemessen. Hat man eine Linie unter 17 grad gezeichnet und will dann eine Linie unter 15° anschließen, müsste man 17+15 = 32° von der Xachse als Winkelwert eintippen (und was, wenn ich den vorangegangenen Winkelwert nicht kenne?).@WernerDas Problem lässt sich auch allein mit dem Polaren Fang nicht lösen.Es muss noch POLARMOD ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : PDF mit Hyperlink erstellen
CAD-Huebner am 03.09.2012 um 17:32 Uhr (0)
Zitat:Original erstellt von LindaFIT:...Die CAD-Datei mit den Profillinien sollte am Besten auf die Excel-Datei zugreifen und dann den Link der PDFs zu jeder einzelnen Linie erkennen.Jetzt solltest du einen neuen Beitrag aufmachen, den dieser Beitrag heißt"PDF mit Hyperlink erstellen", du willst aber offenbar kein PDF erstellen, sondern"Aus Linienobjekt in der DWG über Excelverknüpfung zum PDF verlinken"Du kannst mit dem Befehl: HYPERLINKzu einem PDF oder zu einer Zelle in einer Exceltabelle verlinken.für ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Wo bin ich - in Excel ?
CAD-Huebner am 05.09.2006 um 22:13 Uhr (0)
Hier gehts doch nur um die Bestimmung der ausgewählten Bereiche in Excel auis AutoCAD heraus - richtig?Ich habe da mal ein paar Zeilen Code als Denkanstoß zusammengeklappert:Code:(defun ExSel ( / CNTAREAS EXCELAPP EXCELSELECTIONAREAS I RANGEAREA rangelist) ; Udo Hübner - www.CAD-Huebner.de ; 05.09.2006 ; ; Rückgabe der in Excel markierten Zellen / Bereiche ; beginnend vom Excel Objekt hangeln wir und durch die (evt. unbekannten) Methoden und Eigenschaften von Excel ; mit Hilfe der Lisp Anweisung v ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : AutoCAD 5
CAD-Huebner am 03.06.2004 um 17:58 Uhr (0)
Zitat: Original erstellt von littlemike1005: Habe heute mal das vergnügen gehabt mit AutoCAD 2005 zu arbeiten. Aber ich musste festellen das sich nichts (oder so gut wie nichts) geändert hat. Es kann immer noch keine Rohre Extrud., Das drehen in OpenGL geht immer noch im Flat - Modus (keine Texturen drauf) das Licht ist immer noch nicht frei einstellbar (verglichen mit Art*lantis). Export in das 3Ds - Format ist immer noch nicht für Große Datein geeignet. Ich könnte noch viele Punkte nennen die wie ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Online-Monitoring
CAD-Huebner am 12.08.2005 um 12:58 Uhr (0)
Hallo Axel, hallo Magicpower2580, Vermessungsinstrumente (ich habe selbst eins von Zeiss und zwei von Wild/Leika) senden überlicherweise 7 oder 8bit ASCII mit 1200 bis 19200 Baud. Die korrekte Übertragung wird oft durch Beantwortung des gesendeten Strings mit einem bestimmten Zeichen quittiert. Zitat:Original erstellt von Magicpower2580:Moin, ich habe folgendes Problem. Ich möchte Messungen von einem Vermessungsinstrument online in einem CAD darstellen.Kann ACAD so was? Zur Zeit schreibe ich alles in eine ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Access-Daten ins Autocad Importieren
CAD-Huebner am 11.01.2005 um 21:18 Uhr (0)
@Erik Schreibe dir ein kleines AutoCAD Script (Textdatei mit der Endung SCR). Zuerst exportiere deine ACCESS-Daten in eine Textdatei, diese dann mit NOTEPAD, WINWORD oder einem geigneten Texteditor bearbeiten, so das nach einigen Suchen und Ersetzen Durchläufen die Datei so aussieht: Beginnt nach dieser Zeile ----- _-INSERT MESSPUNKT 1234.56,23456.78,123.45 1 1 0 _-INSERT MESSPUNKT 2234.56,23456.78,123.45 1 1 0 _-INSERT MESSPUNKT 3234.56,23456.78,123.45 1 1 0 ----- Endet vor dieser Zeile In AutoCAD ei ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Lisp beenden!
CAD-Huebner am 04.06.2015 um 10:30 Uhr (1)
Ich denke ein Mouse Reaktor ist hier Overkill.Als Kompromiss kann man eine Option zur Beendigung des Befehls einbauen (hier Beenden).Code:(defun Init () (setq Err *error* *error* Fehler Osx (getvar "OSMODE") ))(defun ReInit () (setvar "OSMODE" Osx) (setq *error* Err) (redraw t_2 4) (princ))(defun Fehler (s) (print (strcat "Fehler: " s)) (ReInit))(defun c:LINE_BRUCH (/ t_0 t_1 t_2 Err Osx) (Init) (vl-load-com) (setq t_0 T) (While t_0 (setq t_0 nil) (While (not t_0) ; Diese Zeile auskommentieren, ...
|
| In das Form Lisp wechseln |
|
Autodesk GIS Produkte : Bild transformieren
CAD-Huebner am 01.03.2010 um 21:32 Uhr (0)
Um Bilder affin einzupassen, benutze ich eine Lisp-Routine, die es mir ermöglicht ein Bild in X und Y unterschiedlich zu skalieren. Das ist für AutoCAD-Bildobjekte grundsätzlich vorgesehen, leider über normale AutoCAD-Befehle nicht einstellbar.Einzige Möglichkeit mit MAP-Bordmitteln ist ADERSHEET, der Befehl gleicht aber die gewählen Punkt im Bild frei aus, deshalb passt das Bild erst nach einigen Anläufen (so einigermaßen) und auch nur mit der Option Auswahl.Alernativ und als brauchbares Ergebnis verwende ...
|
| In das Form Autodesk GIS Produkte wechseln |
|
Rund um Autocad : grad minuten in gauß krüger
CAD-Huebner am 31.03.2005 um 22:35 Uhr (0)
Ich sehe gerade, das MAP 3D 2005 verfügbar ist. Dann lässt sich die Umrechnung leicht mit MAP erledigen: Das Schwierigste ist dabei wohl noch, die Längen- und Breitengrade vom Format Grad Minute Sekunde auf Dezimalgrad umzurechnen. Dabei hilft der Taschenrechner oder z. B. dieser Lisp Audruck (angtos (angtof "47d47 57"" 1) 0) ergibt 47.7992 Nehmen wir mal eine Koordinate vom Universitätsgelände in Salzburg an (Grüße an Tunnelbauer ). Längengrad 13.0417° Ost bzw. 13d 2 30" Breitengrad 47.7992° Nord bzw ...
|
| In das Form Rund um Autocad wechseln |
|
AutoCAD Architecture ACA (ADT) : Geländehöhen konstruktiv ermitteln
CAD-Huebner am 23.06.2009 um 22:12 Uhr (0)
Zitat:Original erstellt von Gregi:...Geländeaufmaß in 2D, in dem an einigen stellen Höhenkoten angegeben sind. Meine Aufgabe ist es, an einigen Stellen im Gelände auf Grund der vorhandenen Höhenkoten des Vermessers, neue Höhenkoten zu interpolieren. Dies würde ich gerne konstruktiv lösen.....aber wie?...Ja, das kann man in der Tat zum Verdichten einiger Höhen gebrauchen. Und von Hand konstruktiv (ich nehm immer 3 Hilfslinien:2 Linien über bekannte Höhenpunkte unm ein Dreieck/Ebene aufzuspannen, die dritte ...
|
| In das Form AutoCAD Architecture ACA (ADT) wechseln |
|
Autocad VBA : vorhandene Bemassungen ändern
CAD-Huebner am 02.12.2004 um 23:15 Uhr (0)
Ich kanns nur in Lisp, das hier sollte wohl auch mit AutoCAD 14 laufen da ich vollständige auf VisalLisp Funktionen verzichtet habe. Dafür ist es auch etwas länger geworden und nicht so elegant wie der Code von CADmium. Code: ; Hauptprogrammm ; Beispielprogramm zum Einsatz der Bemaßungsüberschreibungen ; die in EEDs gespeichert sind. (DEFUN C:BEMU ( / ss cnt) (PROMPT
Übersteuerung von Bemaßungsvariablen hier DIMDEC = 3 ) (PROMPT
Bemaßungen wählen: ) (SETQ ss (SSGET (LIST (CONS 0 DIMENSION ))) ...
|
| In das Form Autocad VBA wechseln |
