|
Lisp : Lisp Programmierung (ein Dorf in China?)
Theodor Schoenwald am 06.08.2007 um 18:54 Uhr (0)
Hallo Andreas,zu:"...anleitung zu lisp..."findest Du ab dem 2. August hier: http://www.hanser.de/buch.asp?isbn=978-3-446-41217-0&area=Computer auch wenn Dein gezeigtes Problem kein direktes Lisp-Problem ist.GrußTheodor
|
| In das Form Lisp wechseln |
|
Lisp : Änderung in Zeichnung: gelöschte Objekte
wronzky am 15.08.2007 um 14:37 Uhr (0)
Hi Jörn,und sowas wie (setq [deine-Liste] (vl-remove-if-not (lambda (x) (entget (handent x))) [deine-Liste]))schon probiert?Wäre natürlich dann die Fragen WANN man die Liste aktualisiert bzw. aktualisieren muss.Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Block ersetzen
wronzky am 15.08.2007 um 17:55 Uhr (0)
Hallo Ernst,mir ist doch gerade LCBlockLite - hier unter VB(A) / Downloads beim Aufräumen unter die Maus gefallen.Vielleicht wäre das noch was für Dich.Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Block ersetzen
wronzky am 14.08.2007 um 11:25 Uhr (0)
Hallo Ernst,Blockreplace aus den Expresstools z.B.Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Schraffur mit entmod verändern
wronzky am 16.08.2007 um 13:14 Uhr (0)
Hallo Alfonso,da in der Schraffur auch die aktuellen Musterdaten mit abgespeichert werden, müsstest Du warscheinlich die entsprechenden Einträge (GC 45, 46, 49) auch noch "skalieren", damit das Muster geändert angezeigt wird. (Habs noch nicht gebraucht, aber probiers mal aus).Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : referenzierte Layer auslesen
wronzky am 27.08.2007 um 15:23 Uhr (0)
Hallo,also eigentlich ist der flag 64 im GC 70 des Layers dafür zuständig. Da der aber wohl nicht funktioniert, könnte man -- in Anlehnung an die Antwort von Don Butler -- auch so testen:Code:(defun layerused (lyr) (= :vlax-true (vla-get-used (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)) ) lyr ) ) ))Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : referenzierte Layer auslesen
wronzky am 27.08.2007 um 16:02 Uhr (0)
Hallo Karsten,wird das bei allen Layern falsch angezeigt? Ich hatte festgestellt, dass die Aktualisierung (bei mir - Acad 2007) erst nach einer Layeraktion durchgeführt wird.Und warum der Flag 64 bei GC 70 nicht korrekt funktioniert - weiss ich auch nicht, ist aber schon lange so...Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : String Zerlegung Buchstaben/Zahlen
wronzky am 06.09.2007 um 11:39 Uhr (0)
Hallo Thomas,hab da eine Funktion, die aus einem String ungültige Zeichen entfernt:Code:(defun str-delete (string letterliste / ) (setq i 1 return "") (repeat (strlen string) (or (member (setq letter (substr string i 1)) letterliste) (setq return (strcat return letter))) (setq i (1+ i)) ) return)string ist der Text, letterliste die "verbotenen" Zeichen.Z.B. (str-delete "Horst2005" ("1" "2" "3" "4" "5" "6" "7" "8" "9" "0")) - "Horst"vielleicht kannst Du sie ja ausbauen...Grüsse, Henning------------------ ...
|
| In das Form Lisp wechseln |
|
Lisp : Bemassungstex nach X oder Y Achse verschieben
wronzky am 10.09.2007 um 10:32 Uhr (0)
Hallo ???,welche AutoCAD-Versionhast Du denn? In 2008 gibt es den Befehl BEMPLATZ, der alle Bemassungen aufeinander ausrichten kann.Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Heisse Eisen : subwoofer an Computer??
Wolfgang S am 07.09.2007 um 11:08 Uhr (0)
Hallo!hab mal was überlegt, das zerteilt die Strings in Zahlen, ist aber nicht fertig.Vor allem die rekursive Rückgabe der richtigen Werte passt noch nicht. Aber die Aufteilung der Zahlen passt schon!Code:(defun text2zahl (String / stringlist restlist TMP_LIST ZAHLENLIST idx) (if (= (type string) STR) (setq stringlist (vl-string-list String)) (setq stringlist string) ) (setq restlist stringlist zahlenlist (vl-string-list "1234567890+-.,") ) (setq idx 0) (while (member (nth IDX stringlist) zahlenlist ...
|
| In das Form Heisse Eisen wechseln |
|
Lisp : String Zerlegung Buchstaben/Zahlen
wronzky am 06.09.2007 um 11:39 Uhr (0)
Hallo Thomas,hab da eine Funktion, die aus einem String ungültige Zeichen entfernt:Code:(defun str-delete (string letterliste / ) (setq i 1 return "") (repeat (strlen string) (or (member (setq letter (substr string i 1)) letterliste) (setq return (strcat return letter))) (setq i (1+ i)) ) return)string ist der Text, letterliste die "verbotenen" Zeichen.Z.B. (str-delete "Horst2005" ("1" "2" "3" "4" "5" "6" "7" "8" "9" "0")) - "Horst"vielleicht kannst Du sie ja ausbauen...Grüsse, Henning------------------ ...
|
| In das Form Lisp wechseln |
|
Lisp : Geometrie von Polylinien vergleichen
wronzky am 26.09.2007 um 14:03 Uhr (0)
Hallo Maustreiber,als Ansatz würde ich evtl. über die Fläche der Polylinie gehen (es sieht so aus, als ob die einmalig ist), Polylinien mit gleicher Fläche zusmmenfassen und über die bounding-box in x- und y-Richtung sortieren.Grüsse, Henning(PS: Ah ja, Willkommen im Forum...)------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de[Diese Nachricht wurde von wronzky am 26. Sep. 2007 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Line mit festem Winkel -> AutoLisp
wronzky am 27.11.2007 um 20:55 Uhr (0)
Hi,also ich gehe davon aus, dass Du in pt1 bereits einen Punkt gespeichert hast.Dann könntest Du es so machen:Code:(command "_.line" pt1 (polar pt1 (/ pi 4) (getdist pt1 "Abstand:")) "")Wenn Du lieber einen Text an den Command-befehl übergibst, dann muss der vollständig sein, also so etwa:Code:(command "_.line" pt1 (strcat "@" (rtos (getreal "Abstand:") 2 8) "45") "")Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
