|
Lisp : Umstieg openDCL nach VBA
Gerd_Ecke am 21.10.2019 um 07:30 Uhr (1)
Hallo@Peter - ja ich will von den Dialogen dann Lisp-Funktionen starten. werde auf keinen Fall tausende Quelltextzeilen umschreiben@Jörn - Wertübergabe über Registry hab ich schon einen Lösungsansatz.Klar ist OpenDCL viel einfacher und besser. Aber da meine Tools von mehreren Nutzern unbedingt gebraucht werden, wir jedes Jahr auf die neueste Civil/Map umsteigen, geht es nicht dass wir so lange auf das angepasste OpenDCL warten.Das Einlesen sämtlicher Vermessungen der Abteilung sowie die gleichzeitige B ...
| | In das Form Lisp wechseln |
 |
Rund um AutoCAD : Punktliste aus DWG oder DXF exportieren
Gerd_Ecke am 29.03.2006 um 10:09 Uhr (15)
Hallo,hier noch mein Senf :Attributsextraktion wie vom Lutz vorgeschlagen.Der Befehl hat nur einen irreführenden Namen, müßte eigentlich Blockexport heißen. Du kannst Blöcke exportieren mit angabe der Koordinate bis zu 6 Nachkommastellen, UND alle Attribute dieser Blöcke.Bei uns z.B. Bohrlöcher mit X,Y,Z,Name,Tiefe,Durchmesser ...oder Schachtdeckel mit X,Y,Z,Deckelhöhe,Sohlenhöhe ... Bevor ich mit dem Befehl bekannt wurde habe ich ein LISP geschrieben das XYZ in eine Textdatei schreiben kann, ging auch unt ...
| | In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Tachymeterdaten in Autocad 2005 einfügen??
Gerd_Ecke am 10.05.2006 um 09:20 Uhr (0)
Hallo Thomasneu!Folgenden Weg würde auch ich empfehlen :- in Excel die Rechtwinkligen Koordinaten errechnen ( Gauß Krüger )- diese Punkte ins ACAD rein - gibt es sehr viele Lösungen (besonders in den Foren auf CAD.de- Karte erstellen --- färtsch (mit erstem Teil)2. Teil:- Die Textdatei mit den XYZ-Werten in ein MAP 2005 mit Civil einlesen und DGM erstellen daraus Höhenschichtlinien erzeugen.- Wenn kein Civil zur Hand mußt Du eine Vermessungssoftware nutzen um DGM zu erstellen.Die GK-Koordinaten aus den Po ...
| | In das Form AutoLisp wechseln |
|
BricsCad : Lisp und ser. Schnittstelle
Gerd_Ecke am 19.06.2009 um 06:07 Uhr (0)
Moin Moin,habe folgendes Problem :Ein Vermessungsgerät liefert über Com5 einen Koordinatenstring."$GPLLQ,113029.00,031109,4513368.726,M,5636051.405,M,3,06,0.012,290.428,M*36"In ACAD und in LTplus (ICAD von Arch.Büro Fürst) läuft folgende Funktion sofort:Code:(defun c:comlesen( / string comread char) (setq string "") (setq BEnde "Begin") (setq comread (open "com5:" "r")) (while (/= BEnde "ENDE") (while (/= 10 (setq char (read-char comread))) (If (/= char 10)(setq string (strcat string (chr char) ...
| | In das Form BricsCad wechseln |
 |
Lisp : Layer löschen
Gerd_Ecke am 09.05.2014 um 07:07 Uhr (1)
moin moin,@CADchup : werde das mit dem layzusf anwenden, danke.Ist immer das gleiche Schema : "tr-st0712-topo-gel" muss auf layer "tr-topo-gel" ABER wo hab ich in meinem Lisp einen Denkfehler ?Code:(defun a2 ( / ; obj ) ) (setq obj (entnext)) (while obj (if (= (cdr (assoc 8 (entget obj))) "TR-St0712-TOPO-GEL") (VertexLayerKorr obj)) (setq obj (entnext obj)) ))(defun VertexLayerKorr (FObjekt / ; M_Obj m_obj_dat m_obj_lay FObj_dat ) ) (princ (entget FObjekt))(princ "
") (setq M_ ...
| | In das Form Lisp wechseln |
|
AutoLisp : Datenrückgabe Funktion
Gerd_Ecke am 17.10.2005 um 10:56 Uhr (0)
Hallo Mitstreiter,beginne mich ein wenig mit LISP zu beschäftigen.Erstelle eine Routine die Blöcke und Attribute in eine Textdatei schreibt.Mit folgenden Zeilen schreibe ich die XYZ werte in besagte Datei, ohne Probleme :(Princ (rtos (car (cdr (assoc 10 (entget aa)))) 2 3) Datei )(Princ "; " Datei)(Princ (rtos (cadr (cdr (assoc 10 (entget aa)))) 2 3) Datei )(Princ "; " Datei)(Princ (rtos (caddr (cdr (assoc 10 (entget aa)))) 2 3) Datei )Da aber mein Excel als dezitrenner das Komma haben will habe ich fol ...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
