|
Lisp : Mittels Lisp auf ISO oder DIN umstellen
RalphRX8 am 14.05.2012 um 10:34 Uhr (0)
Vielen Dank mal.Ich hab jetzt per VBA das amsetupdwg bei 100 Zeichnungen durchgeführt.Musste zwar bei jeder Zeichnung "j" drücken, ist aber besser als jede Zeichnung komplett händisch zu verarzten.
|
| In das Form Lisp wechseln |
|
Lisp : Xdata GC 1011 und VLA-setXdata
CADmium am 22.05.2012 um 11:04 Uhr (0)
ach so ..der appli-Name .. den übergeb ich extra .... haste vielleicht (regapp "hallo")vergessen ?Die Funktionen sind Bestandteil einer Bibo, die außeinanderzuklamüsern würde hier zu weit führen, ..die Bibo zu posten aber auch.Aber ein GC-Lisp daraus kann ich dir zur Verfügung stellen:(defun DT:XDATA-PUT-GC (OBJ NEWXDATA / XDATA DATA) (if(and(=(type OBJ)ENAME) (=(type NEWXDATA)LIST) (=(type(car NEWXDATA))STR) (vl-every (lambda(X) (and (listp X) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Idee gesucht - Werte einer Defintion speichern
joern bosse am 22.05.2012 um 12:53 Uhr (0)
Hallo Jan,ich habe in einem bißchen angestaubten Blog mal beschrieben, wie ich das prinzipiell mit Listen wegspeichern handhabe:1. Liste mit PRIN1 in Schleife in *.lsp Datei schreiben, vorweg ein "(" und hinterher ein ")", damit diese Datei als gültige LISP-Liste geladen werden kann.2. Dann bei Bedarf über LOAD laden http://www.bosse-engineering.com/blog/?p=30 ------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : Layerfarbe nach MAPimport zuweisen
HansGageler am 22.05.2012 um 13:48 Uhr (0)
HalloIch nutzte noch den "alten" MAPIMPORT - Befehl, um ESRI shapefiles in ACAD MAP 3D zu importieren. Wenn ich mehrere Layer anhand der Werte in der dbf Datei beim Import erzeuge, werden diese Layer alle automatisch in einer Frarbe (Schwarz) eingestellt in der dwg.Es kann vorkommen, dass danach 100 Objektgruppen und somit 100 layer in "Schwarz" in der Zeichnung stehen. Das ist dann sehr unübersichtlich (Bohrpunkte)Ich arbeite mit MAP 3D 2011. Hat jemand einen Tip oder ein (LISP) Routine wie man automtisch ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppencode gezielt positionieren
tappenbeck am 24.05.2012 um 10:45 Uhr (0)
Hi !ich hatte kürzlich ein Posting in welchem es um das Arbeiten mit Views ging.Nun möchte ich mittels entmake Views erstellen lassen. Die Daten von tblsearch reichen hier nicht aus - siehe auch [URL=http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/LISP-to-define-a-VIEW-using-ENTMAKE/td-p/890808][/URL]. Es fehlen 2 GC 100.Von tblsearch bekomme ich folgende Daten: Zitat:((0 . VIEW) (2 . avt_view_snap) (70 . 0) (40 . 2637.6) (10 3269.69 1766.2) (41 . 5034.1) (11 0.0 0.0 1.0) (12 0.0 0.0 0.0) (4 ...
|
| In das Form Lisp wechseln |
|
Lisp : Attribut zurückspiegeln GC 71
Madler am 03.06.2012 um 14:57 Uhr (0)
Hallo,ich sitze nun schon eine Weile an meinem Programm und es funktioniert irgendwie nicht. Kurz zur Idee:In der Firma haben wir Blöcke mit einem Attribut die in eine neue Zeichnung kopiert werden. Beim kopiervorgang passiert nun etwas eigenartiges....bei einigen Blöcken (alles gleiche Referenz also gleicher Blockname) ist nach dem Kopiervorgang der Text des Attributes gespiegelt. Ich hab absolut keine Ahnung wie das zu stande kommt???Nun versuche ich ein kleines Lisp zu schreiben, das bei allen Attribute ...
|
| In das Form Lisp wechseln |
|
Lisp : Attribut zurückspiegeln GC 71
Madler am 03.06.2012 um 17:51 Uhr (0)
Ich hab (entupd ent) in die Schleife eingefügt, ergab aber keine Besserung.Code:(while (setq ent (ssname ss j)) (if(= (cdr(assoc 71(entget(entnext ent)))) 2) (progn (entmod (list (71 . 0) (assoc -1 (entget(entnext ent))) ) ) (setq zähler(1+ zähler)) ) ) (entupd ent) (setq j (1+ j)) )Ich hab nochmal folgendes getestet:1. Block eingefügt2. mit Battman Attributstext gespiegelt3. 2.Block eingefügt (Text richtig)4. Lisp gestartet -- Das Programm soll ...
|
| In das Form Lisp wechseln |
|
Lisp : Caesar-Chiffre
CAD-Huebner am 10.06.2012 um 19:17 Uhr (0)
Wo ist denn dein Problem - die Aufgabe scheint mir doch recht überschaubar.Kannst du überhaupt nicht programmieren, oder hast du nur keine Ahnung von Programmieren in Lisp.http://de.wikipedia.org/wiki/Caesar-Verschl%C3%BCsselung(defun CaesarCrypt (aList aShiftValue); ... hier was tun)(defun CaesarDecrypt (aList aShiftValue) (CaesarCrypt (aList (- aShiftValue)))(CasearCryt (CasearCryt (list 1 2 3 4 5) 6) -6)------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : Caesar-Chiffre
WiMa11 am 10.06.2012 um 19:25 Uhr (0)
Das Problem ist, dass ich von LISP eigentlich keine Ahnung habe und nicht so wirklich durchsteige. Ich hab sonst immer mit JAVA programmiert.Dementsprechend kann ich auch mit deinem Hinweis leider nicht viel anfangen .Aber trotzdem danke.
|
| In das Form Lisp wechseln |
|
Lisp : Caesar-Chiffre
WiMa11 am 10.06.2012 um 19:50 Uhr (0)
Kann mir vielleicht jemand noch weiterhelfen?Wäre wirklich nett. Wie gesagt ich bin blutiger Anfänger in LISP.Danke.
|
| In das Form Lisp wechseln |
|
Lisp : Caesar-Chiffre
WiMa11 am 10.06.2012 um 18:57 Uhr (0)
Hey Leute,ich habe leider ein Problem mit folgender Aufgabe, die ich in Emacs-LISP programmieren soll:Die Caesar-Verschlüsselung ist eine einfach Verschiebechffi re. AlleBuchstaben eines Eingabetextes werden dabei eindeutig auf einen Geheimbuchstabenabgebildet. Das Geheimalphabet ensteht durch die zyklischeVerschiebung der geordneten Buchstaben des Eingabealphabetes umeine feste Anzahl an Stellen. Diese Anzahl der Verschiebungen stellt somitden Schlüssel zum kodieren und dekodieren von Eingaben dar.Schreib ...
|
| In das Form Lisp wechseln |
|
Lisp : Unterdrücken von Rückmeldungen
cm-Zeichner am 11.06.2012 um 14:45 Uhr (0)
Bereinige in einem LISP Programm verschiedene Blöcke in einer Zeichnung. Wie kann ich es verhindern die Meldungen:Löscht Block "dadsadd"Löscht Blöck "fdfdfdfd"2 Blöcke gelöscht angezeigt zu bekommenCMDECHO ist 0MENUECHO ist 2------------------Grüße Bernd
|
| In das Form Lisp wechseln |
|
Lisp : BURST in LISP integrieren
Daniel Möller am 13.06.2012 um 18:30 Uhr (0)
Hallo zusammen,wir wollen in einer Zeichnung alle Attribute von allen Blöcken in Text umwandeln ( mit dem Befehl burst ) und anschließend alle Texte in eine Excel Datei schreiben.An sich funktioniert alles allerdings bekommen wir es nicht hin dass der Befehl burst durchläuft.(defun C:convert()(C:burst)(command "alle" )(C:TXTXLS)(command "z" "z" )) )Gibt es eine Möglichkeit dem Befehl burst zu übermitteln dass er einfach alles auswählt? Über command geht es nicht.Oder ist die einzige Alternative die burst.l ...
|
| In das Form Lisp wechseln |
