|
Lisp : Aus Lisp ein BAT starten und darauf warten
Peter2 am 14.12.2010 um 12:44 Uhr (0)
Zitat:Original erstellt von Sanru:Könnte dir vielleicht noch DosLib mit dem Befehl dos_exewait helfen.Auch das klingt gut, danke. Ein Problem könnte es aber damit geben, dass im Handbetrieb der Druckertreiber (PDF XChange) von selbst noch Optimierungsroutinen laufen lässt, wenn AutoCAD mit dem Druck schon fertig ist. Also ist vielleicht das ohnehin erfolglos, wenn man zwar den Druckbefehl selbst überwacht, aber das dritte Unterprogramm noch was macht ....Wir werden sehen.Peter------------------Für jedes P ...
|
| In das Form Lisp wechseln |
|
Lisp : MapCars Lisp-Tutorials
Rabbit 007 am 28.03.2007 um 13:18 Uhr (0)
Hier noch ein Fehler in Wasser zu Wein:Code:(setq i 1)(repeat 100 (princ (strcat "
Dies ist der " (itoa i) ". Schleifendurchlauf" ) ))Das sollte wohl so :Code:(setq i 0)(repeat 100 (princ (strcat "
Dies ist der " (itoa (setq i (+ i 1))) ". Schleifendurchlauf" ) ))Oder so :Code:(setq i 1)(repeat 100 (princ (strcat "
Dies ist der " (itoa i) ". Schleifendurchlauf" ) ) (setq i (1+ i)))sein. ------------------
|
| In das Form Lisp wechseln |
|
AutoLisp : Punkte sortieren
Brischke am 03.08.2003 um 12:47 Uhr (0)
Hallo Peter, schau mal in der Hilfe nach (vl-sort ..), da ist ein Bsp drin, wie man die Punkte nach X oder Y- Koordinate sortieren kann. Daraus kannst du dann erst mal die Zeilen bauen. Dann die Zeilen nach X-Wert sortieren und anschließend einfach zeilenweise die X-Abstände berechnen und wenn dieser größer als ein bestimmter Wert ist, dann eine neue Liste beginnen. Das war jetzt mein letzter Beitrag vorm Urlaub. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann mu ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anfängerfrage: (list ...) oder (....) ?
autocart am 15.07.2004 um 11:13 Uhr (0)
@ tom & holger: Danke für die Antworten. Das hilft mir schon etwas weiter. Allerdings hätte ich vorher selbt mehr ausprobieren und in der Lisp-Hilfe nachschauen sollen. z.B. finde ich unter der Beschreibung von (list ...): As an alternative to using the list function, you can explicitly quote a list with the quote function if there are no variables or undefined items in the list. The single quote character ( ) is defined as the quote function. _$ (3.9 6.7) means the same as (list 3.9 6.7) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Fields/Felder und deren Werte addieren
-reltro- am 20.07.2010 um 14:41 Uhr (0)
Danke für die schnelle Antwort cadffmHmmm... ok...Funktioniert, nur wenn ich mir die Field-Expression anschau (erzeugt im Dialog zum erzeugen von Fields), hab ich ehrlich gesagt keine Ahnung wie ich diese aus einem Lisp heraus erzeugen soll.Das Field für die Fläche ist kein Problem.kannst du mir unter Umständen weiterhelfen?1.Field: %AcObjProp Object(%\_ObjId -1445000%).Area f "%lu2"%2.Field: %AcObjProp Object(%\_ObjId -1444992%).Area f "%lu2"%Formula: 1.Field - 2.Field- %AcExpr (%\_FldPtr -1353776% ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppencodes? Will Layer ändern!
kschlepp am 15.05.2007 um 17:44 Uhr (0)
@Rabbit: Tut mir leid, ich such jetzt seit einer Stunde nach so einer Übersetzungstabelle in der Lisp-Hilfe, kann aber leider keine finden. Ich möchte nämlich die Nummerierung nich auf irgendeinen neuen Layer schreiben, sondern auf den in Mechanical dafür vorgesehenen Text-Layer AM_6. Der heißt nur nicht immer AM_6, denn es gibt ja auch noch die Layergruppen, die sich dem Namen voranstellen. Möchte man eine Schraffur "richtig" einsortieren, so ruft man (glaube ich) "hatc" auf. Für den Layer 0 entsprechend ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer frieren
Bernd P am 20.01.2014 um 16:11 Uhr (1)
ServusMit dem Lisp kann man z.B. alle Layer die im Namen "Wand", "Steher" ... (zur freien Eingabe) einfrieren.Code:(progn (princ "Layerteil: ") (setq layt(getstring)) (command "_-layer" "_on" (strcat "*" layt "*") ""))(progn (princ "Layerteil: ") (setq layt(getstring)) (command "_-layer" "_off" (strcat "*" layt "*") ""))----------------------- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist MordRekorde: Scalelis ...
|
| In das Form Lisp wechseln |
|
Lisp : Wert von dynamischer Block lesen?
CAD-Huebner am 01.02.2009 um 17:26 Uhr (0)
Zitat:Original erstellt von Nano:hallo UdoKannst Du mir erklären, warum ich die Kanal-Breite nicht ändern kann.Habe hier ein kleines LISP.(DEFUN C:kbr()(command "_Insert" "kanal4" (setq pt (getpoint "Einfügepunkt: ")) "" "" "") (SETQ object (entlast)) (SETQ breite (GETDIST "Wert für Breite: ")) (setProperty (vlax-ename-vla-object object) "Kanal-Breite" breite))Gruss NanoWas genau macht denn die Funktion setProperty?Lege bitte von dieser Funktion noch den Quelltext bei.------------------Mit freundlichem ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Flächenlose Polylinien
Proxy am 26.05.2004 um 19:46 Uhr (0)
Hat keiner einen Lösungsansatz ? Könnte man mit ... Code: ... (setq n-pol (sslength polilineas) n 0 ) (repeat n-pol (setq auswahl (ssname polilineas n)) (if (or (= LWPOLYLINE (cdr (assoc 0 (entget auswahl)))) (= POLYLINE (cdr (assoc 0 (entget auswahl)))) ) (progn .... (command _.area _o auswahl) ... nicht so erweitern/modifizieren dass jede plinie auf ihren Flächeenwert überprüft und wenn 0 aus dem Auswahlsatz rausfliegt und dann der Rest mit dem entsprechend ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Leerzeichen in Layern
BBecker am 24.03.2009 um 11:27 Uhr (0)
Hallo ,ich möchte mich bei allen, die zu diesem Thema geschrieben haben, bedanken.Alle Codes laufen einwandfrei, auch die von Steff, dem mein besonderer Dank gilt für den großen Aufwand. Selbstverständlich sind an alle, die hier auf so vortreffliche Weise zur Problemlösung beigetragen haben, die vollen Unities vergeben worden. Für mich war es spannend zu sehen, wie dann ein Gedankenaustausch stattgefunden hat, die Codes immer kürzer wurden eingebettet von den Kommentaren dazu. Auch die Einführung von "arch ...
|
| In das Form Lisp wechseln |
|
AutoLisp : rätselhaftes rem
Dabrunz am 29.12.2004 um 12:03 Uhr (0)
Guten Tag zusammen. Das mit den REAL-Zahlen scheint ja eine Never-Ending-Story zu sein. Um ein wenig Licht ins Floting-Point-Dunkel zu bringen, 2 Bemerkungen und ein Verweis auf einen früheren (detailierteren) Beitrag: - die Rundungs-Fehler sind weder AutoCAD noch dem LISP-Interpreter anzulasten, sie liegen in der Implementierung von REAL-Zahlen in der sog. Floating-Point-Aritmetik begründet, wo die Konvertierung von Dezimal- in Binaärzahlen die Rundungsfehler verursacht; - nur ein Wechsel des zu Grund ...
|
| In das Form AutoLisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
cadplayer am 26.08.2009 um 08:06 Uhr (0)
Mein Ansatz zum Ausrichten von Text an Linie:1) wie schaffe ich es, dass es den Winkelwert in riwi auf den aws-text überträgt?2) wie kann ich mtext auswählen? (defun c:rt () (SETQ wahl (ENTSEL "select line: ") element (ENTGET (CAR wahl)) anfp (CDR(ASSOC 10 element)) endp (CDR(ASSOC 11 element)) riwi (atof (angtos (ANGLE anfp endp) 2 10)) ) ; (if (setq obj (entsel "select text: ")) (progn (setq objname (car obj)) (command "_change" objname "" "" "" riwi) ; rotate text ) ) )Gruss Dirk
|
| In das Form Lisp wechseln |
|
AutoLisp : Schraffur-Lisp !
CAD-Tötti am 24.08.2004 um 18:55 Uhr (0)
Zänk Ju, Leutz :-) !!! Hab ich die Tage schon mal irgendwo hier gelesen, dass das Thema am Ende verfehlt war (in der Schule gab es dafür eine 6 *lach*). Ich fasse also noch einmal zusammen: wir sind gestartet bei der unmöglichen Struktur der Schraffur im AutoCAD (dies was der Ausgangspunkt !), ritten im Schweinsgalopp über Layout und landeten am Ende bei Endlosmonologen über PROXY ENTITIES sowie griechischen Dingsbums. Jepp, was soll ich nun dazu sagen. Ich äußere mich dazu mal mit einem vorsichtigen aber ...
|
| In das Form AutoLisp wechseln |
