|
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 |
|
AutoLisp : Verschachteln von Dialogfenstern
snafu am 06.10.2004 um 10:56 Uhr (0)
Hallo, ich habe folgendes Problem: Ich möchte über ein Dialogfeld ein weiteres Dialogfeld aufrufen um von dort verschiedene Blöcke einfügen zu können. Grundsätzlich funktioniert das auch fast. Also das zweite Dialogfeld ist fertig, und funktioniert alleine Problemlos. Wenn ich dieses aber über ein Dialogfeld vorher aufrufen will, geht das neue zwar auf, aber wenn ich dann hier einen Button anklicke wird das dialogfeld nicht beendet, AutoCAD hängt sich auf! Hier ein Ausschnitt aus dem ersten Dialogfeld (aus ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : getenv
Bernd10 am 19.05.2004 um 13:08 Uhr (0)
Hallo, ich habe ein Problem mit der Lisp-Funktion getenv in Verbindung mit der Umgebungsvariable ACAD. Ich führe zunächst den AutoCAD-Befehl Optionen aus und trage bei Suchpfad für Supportdatei folgende Verzeichnisse ein: C:ProgrammeAutoCAD 2002 Deudrv C:ProgrammeAutoCAD 2002 Deusupport C:ProgrammeAutoCAD 2002 Deufonts C:ProgrammeAutoCAD 2002 Deuhelp C:ProgrammeCAOSCATS-Pro 3 W:Anwendung W:Block W:Dcl W:Funktionen W:Funktionen_laden W:Funktionen_anreiss W:Funktionen_batch W:Hilfe W:Menue W:Listen W:Vorl ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Blockeinfügepunkt herausfiltern
kathi-witt am 24.01.2006 um 18:37 Uhr (0)
Hallo Thomas, Zitat:Original erstellt von CADmium: Für den Durchblick sorgt vielleicht das ausgezeichnete Lisp-Tutorial von Mapcar. Ansonsten hab ich natürlich Verständnis für deine sagen wir mal "anfängertypischen Defizite". Es wäre natürlich auch kein Problem, den kompletten - für deine Zwecke angepassten - Code hier reinzustellen, aber wäre dir damit geholfen ???sicher wäre es einfacher für mich mit einem auf meine Zwecke angepassten Code klar zu kommen, als mich in einen umfangreichen Code reinzufinden ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Formatgröße übergeben
Brischke am 01.04.2003 um 12:22 Uhr (0)
Zitat: Original erstellt von CADchup: Hallo Holger, ... Das Problem ist zum Einen, dass die Namen der Papierformate der Drucker unterschiedlich sein können ( A3 A4 bei dem einen, ISO A3 Querformat ISO A4 Hochformat bei dem andern) und ich somit nie über (members) an das passende Format komme... Darum habe ich ja gesagt, dass du dir Liste vorher bauen mußt. Das kann man ja mit einem Tool geschehen lassen, welches die beiden Listen schreibt. Kannst ja in meinem Beispiel mal einen Anderen Dru ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
cad-intensiv am 29.09.2005 um 16:44 Uhr (0)
Zitat:Original erstellt von Dober Heinz:damit geht es schon besser aber manche sachen sind wir noch nicht so klar wie ich den Text "220/1.1" umwandle und letzte Zahl um eins erhöhe.Naja, es kommt halt prinzipiell drauf an, welche Texte da so auf einen zukommen können, und was die alles enthalten können. Die Frage ist schon mal die, ob in diesem Fall die letzte Zahl die letzte "1" ist, oder ob das die "1.1" ist. Meine oben gezeigte Funktion gibt letzteres zurück. Diese 1.1 auf 2.1 hochzuzählen ist simpel, ...
|
| In das Form AutoLisp wechseln |
