|
Lisp : Punktkoordinaten aus Datei auslesen
joern bosse am 12.06.2008 um 08:22 Uhr (0)
Hallo,nochmal eine Anmerkung zur automatischen Erkennung der Elemente X, Y und Z: in vielen Fällen kann man davon ausgehen, das nur für x, y und z ein Dezimalpunkt verwendet wird: Dann kann man über (if(vl-string-search "." Listenelement) die anderen Elemente herausfiltern. ------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
joern bosse am 12.06.2008 um 09:30 Uhr (0)
Hallo CADmium,bei DISTOF ist aber das Problem, das eine Punktnummer z.B. "2323" als 2323.0 zurückgegeben wird.------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
joern bosse am 27.01.2009 um 14:48 Uhr (0)
Hallo,noch ein kleiner Nachtrag:wenn das QUOTE (Apostroph) in folgender Zeile nicht geschrieben wird kann auf das CADR verzichtet werden.(setq LISTE (cadr(read(strcat "(" (vl-string-left-trim "0"zeile) ")"))))=(setq LISTE (read(strcat "(" (vl-string-left-trim "0"zeile) ")")))------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
joern bosse am 28.01.2009 um 09:46 Uhr (0)
Hallo Thomas, hallo PsychoDad,mit der Erkenntnis von Thomas habe ich jetzt den Code noch mal so zusammengebaut, das anstelle eines Punktes ein Block "Punkt" eingefügt wird (die Definition in anhängender Zeichnung)Code:(defun c:versuch (/ FILE LISTE ZEILE) (setvar "ATTREQ" 1) (if (setq file (getfiled "Verzeichnisliste" "" "" 2)) (progn (setq file (open file "r")) (while (setq zeile (read-line file)) (setq LISTE (read (strcat "(" zeile ")"))) (command "_.INSERT" "Punkt" (cdr LISTE) "" "" "" (itoa (c ...
|
| In das Form Lisp wechseln |
|
Lisp : getkword richtig verwenden
joern bosse am 08.06.2015 um 07:30 Uhr (1)
Hallo Christian,(initget "Z X xR")dann mußt Du auch in der COND-Abfrage (= Eintr_wert "xR") =Kleinschreibung beachtenNoch 2 Verbesserungsvorschläge:Verwenden im Syntax der Abfrage die normale AutoCAD-Schreibweise:z.B. (getkword "
Wert zuweisen[Z/X/xR]Z:")Vorteil: der Benutzer weiß, das er für den Eintrag "xR" auch einfach nur ein "r" eintippen kann und die Optionen sind im Kontextmenü der rechten Maustaste vorhanden.Wenn Du "Z" als Vorgabe hast, dann solltest Du vorweg ein (setq Eintr_wert "Z") als Initia ...
|
| In das Form Lisp wechseln |
|
Lisp : autocad unter win 7 friert temporaer ein
joern bosse am 02.11.2011 um 16:48 Uhr (0)
Hallo Marco,mir ist das unter Windows 7 64-bit, ACAD 2012 auch aufgefallen, das doofe daran ist, wenn die Meldung "keine Rückmeldung" in der Titelzeile erscheint werden die meisten Anwender ALT-STRG-ENTF verwenden anstatt abzuwarten, ob das Programm noch tut. ------------------viele GrüßeJörnhttp://www.bosse-engineering.com[Diese Nachricht wurde von joern bosse am 02. Nov. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : getfiled funzt nicht mit Dateityp prt ?!?
joern bosse am 31.10.2011 um 08:34 Uhr (0)
@CADffm Zitat:Kleine Korrektur für Nachahmer die selbst nicht darauf kommen:PRT? würde 4 Zeichen fordern - die gewünschte PRT also nicht anzeigen, besser wäre in diesem Fall PRT*Bei mir funzt es mit beiden Varianten, die Datei *.prt wird angezeigt.------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : autocad unter win 7 friert temporaer ein
joern bosse am 03.11.2011 um 15:36 Uhr (0)
@Henning,das was Du meinst ist das Problem ab 2011:(princ (strcat "
Aussenrandsegmente finden ("(itoa (+ n 1))"/0)"))(princ)Wenn in einer Schleife ein Fortschrittstext mit angezeigt werden soll, dann muß ein (princ) folgen, damit die Anzeige aktualisiert wird. Bis 2010 hat das auch ohne das funkioniert.------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : große zahlen -> andere ergebnisse
joern bosse am 15.11.2011 um 17:00 Uhr (0)
Hallo Theo, Zitat:ich dachte mit rundungsfehler meint man immer die stellen nach dem komma.anscheinend nicht.Meiner Meinung nach hast Du aber immer weniger Nachkommastellen zur Verfügung, je mehr Vorkommastellen benutzt werden.Auch ich habe da schon meine Erfahrung gemacht, Methoden wie Intersect-With funktionieren im hohen Koordinatenbereich sehr unzuverlässig und auch die meisten Command-Aufrufe wie Stutzen, Versetzen usw.Für solche Sachen habe ich es mir in der Tat angewöhnt AutoCAD-Objekte über einen V ...
|
| In das Form Lisp wechseln |
|
Lisp : Open DCL: Stimmungsumfrage
joern bosse am 23.11.2011 um 17:25 Uhr (0)
Hallo Peter,auch ich bin auf der PRO-Seite wie Marco. Ich habe bisher gute Erfahrungen gemacht. Die Erstellung von anspuchsvollen Dialogfenstern wird einem damit leicht gemacht, was die Verlässlichkeit bezüglich der zukünftigen Entwicklung angeht bin ich optimistisch. Wenn es eines Tages nicht mehr läuft, dann kommt eben was Neues.@Holger: sicherlich hat es Vorteile alles unter Kontrolle zu haben, aber es hat auch Vorteile, einen Code zu haben, der in BRICSCAD V10 aufwärts und in AutoCAD 2004 aufwärts läuf ...
|
| In das Form Lisp wechseln |
|
Lisp : Abrunden mit Command funktioniert nicht
joern bosse am 06.12.2011 um 18:14 Uhr (0)
Hallo,es gab schon mal ein ähnliches Thema: http://ww3.cad.de/foren/ubb/Forum145/HTML/002911.shtml#000006 Mein Problem: in der anhängenden Zeichnung probiere ich die beiden unteren Polylinien mit Abrunden mit dem Radius 25.0 abzurunden.Wenn ich den Befehl ABRUNDEN in der Befehlszeile aufrufe, dann kann ich die unteren beiden Polylinien abrunden.Wenn ich den Command-Aufruf (command "_.fillet" (entsel)(entsel)) verwende, dann geht es nicht (die ungefähren Pickpunkte habe ich versucht, mit den Pfeilen darzust ...
|
| In das Form Lisp wechseln |
|
Lisp : Abrunden mit Command funktioniert nicht
joern bosse am 06.12.2011 um 18:14 Uhr (0)
Hallo,es gab schon mal ein ähnliches Thema: http://ww3.cad.de/foren/ubb/Forum145/HTML/002911.shtml#000006 Mein Problem: in der anhängenden Zeichnung probiere ich die beiden unteren Polylinien mit Abrunden mit dem Radius 25.0 abzurunden.Wenn ich den Befehl ABRUNDEN in der Befehlszeile aufrufe, dann kann ich die unteren beiden Polylinien abrunden.Wenn ich den Command-Aufruf (command "_.fillet" (entsel)(entsel)) verwende, dann geht es nicht (die ungefähren Pickpunkte habe ich versucht, mit den Pfeilen darzust ...
|
| In das Form Lisp wechseln |
|
Lisp : Abrunden mit Command funktioniert nicht
joern bosse am 07.12.2011 um 10:58 Uhr (0)
Hallo nochmal, ich verzweifel gleich:Eigentlich ein ganz eigenes Thema, aber ich denke das passt von der Thematik doch hierher.Jetzt habe ich Probleme mit dem Command-Befehl Kreis Tangente-Tangente-Radius, folgendes funktioniert in ACAD 2007 einwandfrei, in ACAD 2012 gar nicht:Code:(command "_circle" "_ttr" (getpoint) (getpoint) 25.0)Ich habe das in der anhängenden Beispieldatei "Kreis_TTR.dwg" in 2007 und 2012 ausprobiert, als Punkte habe ich wieder in etwa bei den Pfeilspitzen gepickt.2007 Zitat:Befehl: ...
|
| In das Form Lisp wechseln |
