|
Lisp : Hilfe bei command schleife
cadplayer am 29.08.2012 um 10:59 Uhr (0)
Absolut klasse, wie systematisch und strukturell du in deinem Code vorgehst ... ist eigentlich meine Art (nur nicht leicht umsetzbar), da ich nicht genau weiss, wie man vorgeht, wenn man eine Unterfunktion aufbaut. An deinem Beispiel habe ich zwar eine sehr gute Vorlage. Aber irgendwie platzt der Knoten nicht.Beispiel der DT:TEXTFILE-LST (DATEINAME /...1) Code:(if (and(=(type DATEINAME) STR)...Abfrage die Eingabe ein String ist2)Code:(while(=(type(setq ZEILE(read-line DATEI)))STR)...lies solange aus wie d ...
| | In das Form Lisp wechseln |
 |
Lisp : INSERT(Block) contra GROUP
cadplayer am 29.05.2015 um 08:59 Uhr (1)
Einige Praxisanwendung:1)Mittels selection eines groupObjekts, kann man durch Wahl des "snapPoints" eine Gruppe [Base point/Copy/Undo/eXit] rotieren, wobei die Gruppe durch drehen auszurichten geht.- könnte man das mit LISP bewerkstellen, wie bekommt man da eine Gruppe selektiert ?2)Katalog erzeugen, welche Elemente eine Gruppe beinhaltet, Abfrage (ssget, entsel, nentsel) ?!3)identische Gruppen selektieren(Similar) ?------------------Gruss DirkBlog | Adolf Spende | Infra-Feed | ÅF AB[Diese Nachricht wurde ...
| | In das Form Lisp wechseln |
|
Lisp : Liste in Textstring umwandeln
cadplayer am 08.12.2011 um 14:43 Uhr (0)
Entschuldigung, etwas verwirrend - ich habe eine Liste aus Koordinaten ((....) (...) (...))Die möchte ich gern nach Excel auslesen, d.h. also "..." ; "..." ; "..."Code:(defun GetPlineVertexPoints ( ename / edata Punktliste) (setq edata (entget ename)) (cond ;neue Polylinie ((= (cdr (assoc 0 edata)) "LWPOLYLINE") (foreach n1 edata (if (= (car n1) 10) (setq Punktliste (cons (cdr n1) Punktliste))) ) ) ; alte Polylinie ((= (cdr (assoc 0 edata)) "POLYLINE") (while (setq ename (en ...
| | In das Form Lisp wechseln |
|
Lisp : Liste in Textstring umwandeln
cadplayer am 12.12.2011 um 11:13 Uhr (0)
Danke für deinen Beitrag(write-line (apply strcat (mapcar (lambda(X) (strcat (apply strcat (mapcar (lambda(Y) (strcat ";" (vl-princ-to-string Y)))X))"
")) Punktliste))z)macht eigentlich genau das was ich brauche;x1;y1;x2;y2;x3;y3...Mir ist nun klar, das strcat nicht im eigentlichen Sinn strcat ist sondern nur eine selbternannte Funktion "strcat"Nun zu meinem eigentlichen Problem;Ich möchte von mehreren Polylinien die Stützpunkte mit dem Block "koordinatpunkt" markierenund diese dann nach Excel auslesen. Wo ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
