|
Lisp : Probleme mit (polar ... )
Oberpeilsteiner Florian am 22.06.2011 um 13:46 Uhr (0)
Hallo,das ist mein erster Beitrag auf CAD.DE - ich hoffe ich mache keine (all zu großen) Fehler bei der Fragestellung:In meinem LISP-Programm wird eine Liste von Anweisungen in die Gruppencodes 10 und 42 einer Polylinie umgewandelt. Für die Ermittlung des Mittelpunktes eines Kreisbogens verwende ich den Anfangs- und Endpunkt der letzten Linie und den Endpunkt des Kreisbogens. In den meisten Fällen funktioniert der folgende Code.Code:(setq line (list "LINIE" 800 0 0 0 0)) ;aktueller Punkt(setq l ...
|
| In das Form Lisp wechseln |
|
Lisp : Positionsnummern
besele am 13.09.2011 um 19:26 Uhr (0)
Hallo habe hier eine LISP Datei gefunden,die aber nicht richtig funktioniert.werden immer nur Nullen geschrieben??(Defun C:ZAHLEN () (START) (prompt "Die aktuelle Texthöhe wird übernommen...") (Setq A (Getint "
Startnummer: ")) (Setq E 1) (Setq I 0) (Initget 1 "A") (Setq P1T (Setq P1 (Getpoint"
Einfuegepunkt oder Abbruch"))) (While(/= P1T "A") (Setq F (Itoa A)) (Command "Text" "z" P1 "" I F) (Setq A (+ A E)) (Initget 1 "A") (Setq P1T (Setq P1 (Getpoint "
Einfuegepunkt oder A für Abbruch"))) ) ...
|
| In das Form Lisp wechseln |
|
Lisp : Plotstildatei
mkl-cad am 31.07.2003 um 11:48 Uhr (9)
Schade. Auch mit Visual Basic nicht?Ich habe mit Lisp ein Programm geschieben in dem der Benutzer für 10 verschiedene Gewerke Layer einstellen kann, die dann immer erstellt werden wenn der Benutzer Menüs für die jeweiligen Gewerke öffnet.Zusätzlich wird durch die Eingabe der Layer das Pull-Down Menü von ACAD umprogrammiert. Das Einzigste was dann noch fehlt währe das auch die Plotlinienstärke in den Plotstiltabellen angepaßt wird, und nicht nur die Linienstärke in der Layereinstellung, und das für verschie ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zweites Element
Rabbit 007 am 22.07.2005 um 23:12 Uhr (0)
Hallo Axel Hier das LISP wie du es zu lesen möchtest. Und du hast recht Ordnung ist das halbe leben. Nicht als Entschundigung aber ich stecke mit dem Programmieren hier voll in den Kinderschuhen und bin froh wenn ich einfache einzelne Programmzeilen lesen und halbwegs verstehen kann.(dank dem Toturial) Aber vieles bleibt einfach ein Geheimniss für mich, andere Literatur exestier ja nun auch nicht wirklich dazu. Das mit der Formatierung sieht hier in der Vorschau nicht wirklich gut aus (nicht so wie ich e ...
|
| In das Form AutoLisp wechseln |
|
Lisp : 3d länge
nebuCADnezzar am 06.02.2013 um 11:43 Uhr (0)
Hallo zusammen.Ich bin gerade drann n paar alte LISPs ins neue ACAD 2013 anzupassen. Eins davon macht mir gerade etwas schwierigkeiten (naja meine LISP skills waren schonmal besser...)Code:(defun C:3dlength () (setq LENGTH 0) (setq C nil) (setq PT2 nil) (setq ENAME (car (entsel "
3d Polyline: "))) (setq E (entget ENAME)) (if (= (cdr (assoc 0 E)) "POLYLINE") (progn (if (= (logand (cdr (assoc 70 E)) 1) 1) (setq C 1) ) (setq T C) (setq ENAME (entnext ENAME)) (setq E (entget ENAME)) ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und Dialogboxen
DrCNC am 12.07.2014 um 13:56 Uhr (1)
Hallo Jörn,Dank deiner genaueren Beschreibung deines Codes, habe ichdieses Problem einigermaßen kappiert.Ich habe meinen Code etwas abgeändert und es funktioniert bestens.Code:(defun DialogFraesen (/ I1 OK) (setq I1 (load_dialog "CNC.DCL")) (if (null (new_dialog "CNC" I1)) (alert "Laden der Dialogbox nicht moeglich!") ) (setq ZAchse (atof (get_tile "ZAchse"))) (setq WZNr (atof (get_tile "WZNr"))) (setq Vor (atof (get_tile "Vor"))) (setq Ab (atof (get_tile "Ab"))) (setq Wzkr "NoWRK") (action_tile "ZAchse ...
|
| In das Form Lisp wechseln |
|
Lisp : Expresstools 2006: Tframe ignoriert Option 2
Peter2 am 08.11.2006 um 19:01 Uhr (0)
(still nachfragend):Äh - scheint nicht das zu sein, was ich wollte - jetzt ist anscheinend Code "2" fix codiert und wechselt damit nicht nur 0-2-0-2-..., sondern geht auch von 1 weg: 1-0-2-0-2 ...Und anscheinend passt auch die Wipeout - Logik nicht dazu: Die kann man anscheinend nur wie bisher zwischen ein und aus wechseln, und damit setzt man die Bilder auf "2" (sehen, nicht plotten) und die Wipeouts auf "1" (sehen und plotten)..Folgende Fragen:1)Die DXF-Referenz zu Objects - Rastervariables zeigt zu Code ...
|
| In das Form Lisp wechseln |
|
Lisp : Ausnahmebedingung bei GC 102 + 103 ???
joern bosse am 19.03.2010 um 08:30 Uhr (0)
Hallo,ich habe ein Phänomen entdeckt was ich nicht ganz nachvollziehen kann.Folgender Code erzeugt eine Ausnahmebedingung:Code:(defun c:test (/ liste) (setq liste ( (102 . 0) (103 . 0) )) (setq liste (subst (cons 102 1) (assoc 102 liste) liste) liste (subst (cons 103 1) (assoc 103 liste) liste) ))Ergebnis:Befehl:Befehl: test; Fehler: Ausnahmebedingung aufgetreten: 0xC0000005 (Zugriffsverletzung)Befehl:Befehl: testFehler bei Aussage in Datei ..LOSIOLOSTERMWIN.CPP, Zeile 398:tp-GetBuf ...
|
| In das Form Lisp wechseln |
|
Lisp : Spline schliessen
archtools am 04.09.2022 um 12:33 Uhr (1)
Zitat:Original erstellt von ositodepeluche:Vielen Dank für die Bemühungen. Ich habe folgendes versucht:[i](defun mycommand (cmnd / oldecho) (setq oldecho (getvar "cmdecho")) (setvar "cmdecho" 1) (initcommandversion) (command cmnd) (while (eq 1 (logand 1 (getvar "cmdactive"))) (command pause) ) (setvar "cmdecho" oldecho)) (defun c:FREIHAND () (setvar "skpoly" 2) (While (mycommand "._sketch") (command "splineedit" "l" "_close" "" "" "") ))Leider funktioniert das bei mir nicht. Es wir ...
|
| In das Form Lisp wechseln |
|
Lisp : Spline schliessen
ositodepeluche am 03.09.2022 um 21:57 Uhr (1)
Vielen Dank für die AntwortenIch haben dementsprechend folgendes versucht:(While (initcommandversion) (command "_SKETCH" pause) (setq obj_data (entget (entlast))) (if (assoc 70 obj_data) (setq obj_data (subst (cons 70 1)(assoc 70 obj_data) obj_data)) (setq obj_data (reverse (cons (cons 70 1) (reverse obj_data)))) ) (entmode obj_data) In obj_data habe ich nun die Daten geändert aber die Spline bleibt offen. Ich hab dann mal mit entupd gepröbelt. Ohne Erfolg. Beim Anschauen der Gruppencodes einer gesc ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp command _explode ergänzen
marc.scherer am 13.09.2006 um 14:29 Uhr (0)
Hi,kurz und schmerzlos:Code:(if (setq AUSWAHL (ssget "X" (list (cons 0 "INSERT") (cons 2 "tuer")))) (progn (setq ALT-QAFLAGS (getvar "qaflags")) (setvar "qaflags" 1) (command "_explode" AUSWAHL "") (setvar "qaflags" ALT-QAFLAGS) ))Oder schick und sicher mit Rückmeldung und variabel:Aufruf in Deinem Fall dann mit:Code:(INSERTSEXPLODE "tuer")Variabel, weil man die Funktion auch mit allem füttern könnte was wcmatch so verarbeiten kann:Code:(INSERTSEXPLODE "tuer,fenster,schriftfeld")(INSERTSEXPLODE "*")Und ...
|
| In das Form Lisp wechseln |
|
Lisp : Rückgabe von (command... an Variable
archtools am 07.11.2019 um 16:36 Uhr (1)
Zitat:Original erstellt von cadking:Hallo Lispler,gibt es eine Möglichkeit, dass was der Befehl (command "... zurückgibt an ein (setq zu übergeben?Beispiel:(command "-xref" "_r" "296_G-05-Überströmung")gibt zurück:-xrefOption eingeben [?/Binden/Lösen/Pfad/pFadtyp/Entfernen/Neuladen/Überlagern/Zuordnen] Zuordnen: _rNamen für neu zu ladende XRef(s) eingeben: 296_G-05-ÜberströmungXRef "296_G-05-Überströmung": ..........GebäudemoduleGebaeude 296IntegrationsplanungDeckeÜberströmung296_G-05-Überströmung.dwg"296_ ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadplayer am 18.02.2013 um 14:02 Uhr (0)
Ich hab das ganze jetzt mal mit einer GeradenschnittMethode umgesetzt. Es läuft noch nicht so wie es soll. Dennoch will ich es hier mal zum Testen reinstellen. Es ist auf den ersten Blick ein Wirrwar von Variablen - verbessungswürdig, desweiteren müsste eigentlich gesagt werden, wie das Attribut von seiner Ursprungsposition verschoben wurde.Vielleicht kennt einer einen besseren Weg das auszumerzen.Code:(defun _selectAtt (InsObj / ) (if (setq InsObj (entsel "Insert wählen: ")) (setq InsObj (entget (car Ins ...
|
| In das Form Lisp wechseln |
