|
Lisp : Polylinien-Stützpunkte entfernen mit entdel
Uwe Neumann am 12.08.2008 um 11:25 Uhr (0)
Hallo zusammen,ich versuche aus einer POLYLINE (gezeichnet mit 3dpoly) alle Stützpunkte außer dem Anfangs- und dem Endpunkt zu löschen. Leider komme ich dank meiner geringen LISP-Kenntnisse nicht weiter. Das Tool von CADWiesel hilft mir leider auch nicht, da es bei mir leider nicht für diesen Polylinientyp funktioniert.Deshalb hier meine Frage. Wie kann ich mit entdel einen Stützpunkt löschen?Hier mein Ansatz (basierend auf CADWiesel):(setq NeuePLinEig (entget (entnext (cdr (assoc -1 PLinEig)))))(while (= ...
|
| In das Form Lisp wechseln |
|
Lisp : INSERT mit (command) setzen
romi1 am 25.09.2008 um 14:21 Uhr (0)
Hi!Danke CADwiesel, das funktioniert.Damit ich es auch kapiere: Die Prog-Zeile ist ja Teil eines längeren Codes, und als ich "pause" noch nicht drinnen hatte, machte er mit den nachfolgenden Programmteilen (z. B. Element mit entdel löschen) weiter, bevor ich die Position interaktiv eingegeben hatte. Jetzt - nach dem einfügen von "pause" wartet er, bis ich die Position gepickt habe, und geht dann im Prog. weiter. Zwingt also "pause" das Lisp abzuwarten, bis der command-Befehl fertig ist Gruß,Roman
|
| In das Form Lisp wechseln |
|
Lisp : erstes programm
cadffm am 30.10.2008 um 12:52 Uhr (0)
cadwiesel.de das Programm SCC2 holen ("Scriptgenerator") oder so ähnlich.Anmerkung: Diese Version bearbeitet nur DWGProgramm im SDI Modus laufen lassen, Dateiauswahl der DWGs .. und angabe welches Script ausgeführt werden soll !PS: Denke dann an das _.QSAVE am Ende Wenn du es (für dich der einfachste Weg) so machst wie ich dirdas zeigte mit dem Script dann benötigst du nur nur am Endedas _.QSAVE und als *.scr abspeichern und fertig.TIP: Erstmal in Kopien.dwg testen EDIT: Will man das ein Lisp ausgeführt ...
|
| In das Form Lisp wechseln |
|
Lisp : Layerkonvertierung
cadnetz am 14.01.2009 um 14:31 Uhr (0)
Hallo zusammen,ich habe mir von Cadwiesel (Danke auf diesem Wege) das ispprogramm Konvlay zum konvertieren von Layern gezogen.Klappt prima, nur würde ich gerne in der Spalte Layerdaten in der cnv-Datei die Strichsärke angeben. Ich habe schon eintraäge 0.7 und "0.7" versucht, funktioniert nur leider nicht. gibt es da eine lösung ?(siehe Eintrag in Fett und Kursiv !-Danke schon im voraus-PS: Sollten bedenken bestehen den Code hier zu veröffentlichen, bitte Info, ich ziehe dann sofort zurück !!!Lispprogramm:; ...
|
| In das Form Lisp wechseln |
|
Lisp : Layerkonvertierung
cadnetz am 14.01.2009 um 14:46 Uhr (0)
Ja danke, werde ich machen. nur kurze frage noch, weil ich dich grad an der Angel :-) habe:(command "_LAYER" "_COLOR" RS_NCOL RS_NNAM "_LTYPE" XXXXX RS_NLTP RS_NNAM "") Da wo ich die vielen X gesetzt habe kommt doch sicherlich der "Aufruf" für die linienstärke. Du weißt sicherlich was ich jetzt fragen möchte? wie lautet der Aufruf ?Nach deiner (hoffentlich) Antwort werde ich ins Cadwiesel-forum wieseln
|
| In das Form Lisp wechseln |
|
Lisp : vlax-ldata-put und Co. - jetzt stabiler?
cadffm am 10.03.2009 um 23:57 Uhr (0)
unsichtbare Texte können sehr klein sein (relativ zum Rest) und dazu kommt noch,was CADmium evtl. auch gemeint haben könnte, das Sichtbarkeintsflag (gc61 ?).ADT oder ähnliches kann mit sowas zum Teil umgehen(einschalten), Acadpur aber nicht-außer mit Programmierung, siehe "NoShow" von CADwiesel zB.(daher würde ich evtl. den Text 1.sehr klein und 2.AUSschalten über gc61 nehmen)PS: regapp Einträge fliegen bei mir oftmals ungesehen raus - daher wäre das bei mir zB. absolut "unsicher" .------------------die al ...
|
| In das Form Lisp wechseln |
|
Lisp : Benutzerabfrage in einer Endlosschleife
Gerd_Ecke am 17.03.2009 um 13:38 Uhr (0)
Hallo CADwiesel,Das Messgerät gibt über die serielle Schnittstelle je 1sek einen Zeichenstring aus der die Koordinaten und Qualität enthält. Mit Lisp sollte es wohl möglich sein Diese kontinuierlich abzufragen.Um die Bildschirmausgabe testen zu können habe ich mir eine Datei angelegt um dies ohne Messgerät simulieren zu können.CAD-System ist ein 2005er LTplus da wir davon 10 Lizenzen haben und nur 8 nutzen.Die Bildschirmausgabe im Sekundentakt nachzuführen ist kein Problem soweit funktioniert es schon.Nur ...
|
| In das Form Lisp wechseln |
|
Lisp : HATCHFL äussere umgrenzung als pline
cadffm am 30.04.2009 um 08:00 Uhr (0)
warum nur bereichsweise ? und sachau auch mal nach doppelt.lsp bei CADwiesel.de------------------die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)
|
| In das Form Lisp wechseln |
|
Lisp : Block im Block sprengen
Jungspunt am 14.06.2009 um 14:10 Uhr (0)
HiIch habe bei Cadwiesel eine Lisp gefunden wie man die Layer innerhalb eines Blockes auf Layer 0 setzt und als Layerfarbe vonLayer.Damit Nehmen die Blöcke automatisch die Farbe des Layers an.Bei meine Blöcken geht das aber leider nicht, denn es befinden sich innerhalb des Blockesnoch Blöcke die auch gesprengt werden müssen. Damit würde sich dann auchder Layer automatisch auf 0 Setzen.Wie muss ich jetzt die Lisp erweitern damit das geht?Code:;Redefines ALL objects in any block in the drawing on layer 0.;(c ...
|
| In das Form Lisp wechseln |
|
Lisp : Block im Block sprengen
autocart am 14.06.2009 um 21:46 Uhr (0)
Hallo Jungspunt! Zitat:Original erstellt von Jungspunt:Ich habe bei Cadwiesel eine Lisp gefunden wie man die Layer innerhalb eines Blockes auf Layer 0 setzt und als Layerfarbe vonLayer.Du meinst wahrscheinlich "Elemente innerhalb eines Blockes", oder? Außerdem macht es grundsätzlich mehr Sinn (abgesehen von Ausnahmen), wenn man die Farbe von Elementen auf Layer 0 innerhalb von Blöcken auf "vonBlock" stellt und nicht auf "vonLayer". Zitat:Original erstellt von Jungspunt:Bei meine Blöcken geht das aber leide ...
|
| In das Form Lisp wechseln |
|
Lisp : Startgruppe
Jürgen Scheeren am 04.05.2004 um 11:23 Uhr (0)
Hallo CADmium,Hallo Cadwiesel,vielen Dank für Eure Hilfe.Voller Treffer volle Units.Gruß Jürgen
|
| In das Form Lisp wechseln |
|
Lisp : Problem LWPOLYLINE
GG-GREGOR am 14.07.2009 um 10:16 Uhr (0)
Hi CADwiesel,ja hab ich! wurde aber nicht ganz schlau draus.ich hab es dann mit dem gelöst(setq P1 (list (rtos (car thelist)2 2)(rtos (cadr thelist)2 2)));xy(setq P2 (list (rtos (car thelist-rest)2 2)(rtos (cadr thelist-rest)2 2)));xy rtos war die lösung für mein ProblemDanke für die Hilfe.
|
| In das Form Lisp wechseln |
|
Lisp : Boesch.lisp - Objekt schneidet keine Kante
KahSandra am 26.08.2009 um 10:40 Uhr (0)
Hallo,ich war total begeistert, als ich die CADWiesel Boesch.lisp entdeckt habe, musste aber leider feststellen, dass es bei mir nicht funktioniert. Ich erhalte fast immer die Meldung Objekt schneidet keine Kante. Nichts gewählt, keine Gruppe geschaffen.Allein für 2 Polylinien wurde eine Böschung erzeugt, aber auch nur, wenn ich einen Abstand zwischen 997 und 1001 (oder einem Vielfachen) gewählt habe. Für andere Abstände erhalte ich die gleiche Meldung wie oben. (Gut, ich hab jetzt nicht sämtliche Möglich ...
|
| In das Form Lisp wechseln |
