|
AutoLisp : Höhenkote Lisp Code 3 Fragen
CAD-Huebner am 07.05.2004 um 14:59 Uhr (0)
Das Programm ließe sich sicherlich hinsichtlich error-handling und Benutzung lokaler Variablen verbessern, aber hier die Systemvariablen zu den Fragen. Prinzip ist am Anfang die Einstellung der Systemvariablen merken, und am Ende des Programmes germerkte Werte wiederherstellen. (defun c:HKATTS (/ ) (princ
H koten setzen. Starten mit HKATTS ) ;FEHLERBEHANDLUNGSROUTINE.................................. . . . (setq aosm (getvar osmode )) (setq abli (getvar blipmode )) (setq alup (getvar luprec )) (setq ...
|
| In das Form AutoLisp wechseln |
 |
AutoCAD Civil 3D : Detailliertes Geländemodell aus Höhenlinien, Meldung:Punkte liegen übereinander
CAD-Huebner am 17.10.2015 um 16:26 Uhr (1)
Also soll die Aufgabe sein, aus den Höhenlinien wieder mit AutoCAD Civil 3D ein DGM abzuleiten, daraus einen AutoCAD Volumenkörper zu machen, um diesen anschließend in Zitat:mit einem "weichen" Netz umhüllt werden und dieses Netz für GlobalMapper lesbar abgespeichert werdenob das nicht von hinten durch die Brust ins Auge geht?Kann man nicht einfach die Punktdaten der Höhenlinien in Globalmapper visualisieren (das kann ja etliche Punktwolkeformate einlesen), völlig ohne den Umweg einer Vermaschung?Ich habe ...
|
| In das Form AutoCAD Civil 3D wechseln |
|
AutoCAD Civil 3D : Punkte exportieren - Spezialformat
CAD-Huebner am 21.09.2011 um 11:44 Uhr (0)
Einen zeilenorientierten Export wird man mit dem Civil Punktdateiformaten in der Form wohl nicht realisieren können (Das Format erwartet, dass jeder Datensatz in einer Zeile steht, die einzelnen Werte in getrennten Spalten).Evt. findet man in TrimbleLink schon ein passendes Ausgabeformat - kann ich jetzt gerade nicht nachsehen.Außerdem kann man Civil Punkte auch durch einen angepassten XML Bericht in diesem Format ausgeben (siehe WerkzeugkastenReports Manager bzw. Berichte), dazu muss man sich nur ein weni ...
|
| In das Form AutoCAD Civil 3D wechseln |
|
AutoCAD ObjectARX und .NET : .dwg-Layout von Inventor erstellen
CAD-Huebner am 17.12.2013 um 11:59 Uhr (1)
Es geht also um die Automatisierung der Funktionen Befehl: _VIEWBASE (nur in AutoCAD Standard und einigen Vertikalprodukten wie Mechanical verfügbar)Das kann man einfach Scripten, über LISP (Command "_viewbase" .... oder über VBA via SendCommand aufrufen.Code:Befehl: _VIEWBASEModellquelle angeben [Modellbereich/Datei] Datei: DAutodesk Inventor-Dateinamen eingeben: *Abbruch*Befehl: GRUNDANSModellquelle angeben [Modellbereich/Datei] Datei: DAutodesk Inventor-Dateinamen eingeben: c:TESTTestbaugruppe.iamNeuen ...
|
| In das Form AutoCAD ObjectARX und .NET wechseln |
|
Rund um AutoCAD : Kreise tangential verbinden (Lisp o.ä.)
CAD-Huebner am 25.03.2011 um 15:31 Uhr (0)
Da wirken sich wohl Rundungsungenauigkeiten beim Rückrechnen des Winkels aus dem Tangens des sehr schmalen Dreiecks aus.Hier mal semiprofessionewll nachgebessert - einfach Linie mit aktiviertem Objektfang "Tangente" aufgerufen.Code:(defun C:KTANV( / dm e1 e2 k1 k2 m1 m2 os p1 p2 r1 r2 rd sk win winm wint) (prompt "Kreise tangential verbinden
") (setq k1 (car (entsel "Kreis 1 (groß) wählen:")) k2 (car (entsel "Kreis 2 (klein) wählen:")) e1 (entget k1) r1 (cdr (assoc 40 e1)) m1 (cdr (assoc 10 e1) ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoCAD Civil 3D : Punkte fortlaufend neu nummerieren
CAD-Huebner am 01.07.2010 um 08:21 Uhr (1)
Hallo Mario, fragen kostet ja erst einmal nichts. Programmieren ist mein Hobby, mit dem ich auch Geld verdienen darf/muss. Wenn mich das Thema interessiert und der Aufwand begrenzt ist, programmiere ich es auch gern mal kostenlos und poste z.B. bei CAD.de.Die Umnummierung alller Punkte war ein 15 Zeiler in Lisp, das ging recht schnell.Wenn allerdings nur einzelne Punkte (definiert durch eine Punktgruppe) umnummeriert werden sollen, wirds kompliziert.Hier mal spontan 2 Probleme, die sich auftun:a) gegeben s ...
|
| In das Form AutoCAD Civil 3D wechseln |
|
AutoCAD ObjectARX und .NET : Umrechnung UCS von Kreis
CAD-Huebner am 11.10.2015 um 13:50 Uhr (1)
Beispiel: gegeben sei ein Kreis im Koordinatenursprung.Der Kreis wird um die X-Achse um 30° und anschließend um die Y-Achse um 45° verdreht.Anschließend wird der Kreis verschoben vom Nullpunkt um die Koordinate/Vektor (3,2,1)Gegeben hast du Der Ursprung des WCS (0, 0, 0) - festgelegtDen Normalenvektor des WCS (0, 0, 1) - festgelegtDer Ursprung des ECS (0, 0, 0) - identisch mit Ursprung WCSDen Normalenvektor des ECS bezogen auf WCS (0.612372, -0.5, 0.612372) - DXF Code 210Kreismittelpunktskoordinate/Verschi ...
|
| In das Form AutoCAD ObjectARX und .NET wechseln |
|
AutoLisp : Drehwinkel von BKS
CAD-Huebner am 04.03.2006 um 12:13 Uhr (0)
Vorgestern abend war es schon so spät - da hats nur für ein Ja gereicht. Hier mal ein LISP-Programm für diesen speziellen Fall.Für Allgemeinfunktionalität muss zuvor noch die Drehung um die Z-Achse bestimmt werden und die Verschiebung des BKS Ursprungs berücksichtigt werden.Code:; Udo Hübner alias CAD-Huebner für CAD.de Beitrag:; http://ww3.cad.de/foren/ubb/Forum145/HTML/001558.shtml ; 3.3.2006;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(DEFUN C:UCSROTATION ( / ); Xdir Ydir) ; Unterfunktionen (D ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Ein paar weitere Anfängerfragen...
CAD-Huebner am 06.11.2009 um 14:15 Uhr (0)
Zitat:Original erstellt von Erwin Furtner:Servus Robert,die Unterfunktion VERBINDEN von PEDIT verwende ich eh als Standardbefehl zum umwandeln von normalen Linien und Bögen... Was dabei leider nicht passiert ist, dass mehrere einzelne Linienelemente, welche direkt hintereinander liegen - und ohne Selektion aussehen wie eine Gerade - in der neu erstellen Polylinie nicht eine Gerade wird sondern die Endpunkte der ursprünglich einzelnen Linienelemente beibehalten werden.Man kann diese Punkte zwar entfernen, ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : plotstiltabelle in den ordner der .dwg kopieren
CAD-Huebner am 01.11.2008 um 11:51 Uhr (0)
Aber wenns denn so sein soll:So z.B. findet man via Lisp/ActiveX die Plotstiltabelle zum aktuellen Layout heraus: http://ww3.cad.de/foren/ubb/Forum145/HTML/000618.shtml#000001 oder siehe hier http://ww3.cad.de/foren/ubb/Forum145/HTML/000283.shtml#000000 Die gefundenen CTBs könnte man dann ins Zeichnungsverzeichnis kopieren ( vl-file-copy ... und mitdiesen Tools verwenden http://www.cadwerk.com/download/createlink/clink.html oder http://www.cadmaro.de/downloads/freeware/linkplotstyles.html Siehe dazu folgen ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Linie aus Funktion y=f(x) erstellen
CAD-Huebner am 23.09.2006 um 20:38 Uhr (0)
@Werner - ich hab den Code mal korrigiert, damit er überhaupt funktioniert:Code:(defun C:yfx ( / x y) (setq x 1) (command "Linie" (0 0)) (while (<; x 10) (setq y (sqrt x)) (command (list x y)) (setq x (+ x 1)) ) (command ""))Anbei noch mal ein einfaches Programm von mir zum Erstellen von FunktionsplotsCode: Funktionsplot beliebiger Funktionen; Udo Hübner 20.04.2001;(DEFUN C:FVONX ( / os Xa Xe X inc) ; es wird eine LISP-FUNKTION namens ; FUNKTION aufgerufen, die das Argumen ...
|
| In das Form Rund um Autocad wechseln |
|
Mechanical Desktop : Schraffuren und die Z-Achse
CAD-Huebner am 05.10.2004 um 17:30 Uhr (0)
@TK-Elevator Ich hab so etwas schon vermutet. Deshalb hab ich ja auch geantwortet. Leider kann das Forum eine (hilfreiche) Schulung nicht ersetzen, sondern nur bei einzelnen Problemen helfen. In deinem ersten Beitrag war leider nicht zu erkennen, welche AutoCAD Version eingesetzt wird, da beziehe ich mich erst einmal auf die aktuelle Version (derzeit 2005). Den angesprochenen Befehl FLATTEN hat man, wenn man die Expresstools installiert, die bei AutoCAD 2005 kostenlos auf der Installations-CD beiliegen. Wu ...
|
| In das Form Mechanical Desktop wechseln |
|
Lisp : Lisp Programme von R14 nach 2007 portieren
CAD-Huebner am 03.09.2006 um 21:51 Uhr (0)
Ich habe den Code etwas überarbeitet, schön ist er aber nicht. Vor allen Dingen die extensive Nutuzng von Variablen ist für dieses Programm völlig unnötig. Code:(defun c:fens1( / FEP GD1 GD1M I1 I1A I1E I1H I1HF L1 LGD1 OS PI2 PIWIN WIN X1 X2 X3 X4 X5 X6 XL1A XL1E XPI2) (if ( (setq os (getvar "OSMODE")) 16384) ; Objektfang deaktivieren (setvar "OSMODE" (+ os 16384)) ) (setq L1 (getpoint "
Winkel P1: ")) (setq WIN (getangle L1 "
Winkel P2: ")) (setq PI2 (+ (/ pi 2) WIN)) (setq XPI2 (+ (/ (* 3 pi) ...
|
| In das Form Lisp wechseln |
