LWneu2D-Ref.lsp.txt |
Lisp : Kranke Polylinien?
Arcuso am 30.07.2011 um 10:50 Uhr (0)
Guten Tag!Um die Sache abschließen zu können:Der Zugriff auf ein neues Objekt kann ermöglicht werden, indem man das alte nicht mehr vorhandene per (vlax-release-object) freigibt, egal ob darauf per (vlax-dump-object) oder einer anderen VLA-Funktion zugegriffen wurde.Hintergrund meiner dbzgl. Anfrage ist, wie eingangs erwähnt, dass ich unseren Zeichnungs-Altbestand ggf. in eine neue Block- und Layer-Struktur konvertieren muss. Um dabei bestehende Verweise in den XDaten nicht zu verlieren, wenn ich z.B. eine ...
|
| In das Form Lisp wechseln |
|
Lisp : Kranke Polylinien?
Arcuso am 01.08.2011 um 07:22 Uhr (0)
Guten Morgen!@Theodor SchönwaldDanke für den Hinweis! Auf den Befehl _CONVERTPOLY stieß ich erstmals bei einem Beitrag betr. AutoCAD 2011 hier in diesem Forum und nahm an, dass er - weil undokumentiert - neu ist. Aber tatsächlich fand ich ihn auch im 2005er.Die Lisp-Datei ConvertPoly.lsp habe ich auch gefunden, sogar mit dem letzten Upgrade vom 03.12.2010. Sie kann zwar zwischen LW- und 2D-Polylinien hin und her konvertieren, lässt aber event. vorkommende XDaten außer Acht. Da sich Elementname und Handle ä ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ohne Geometrie
Bernd10 am 01.08.2011 um 10:28 Uhr (0)
Hallo,ich möchte den Schnittpunkt einer Linie und einem Kreisbogen berechnen, jedoch ohne dass die Objekte vorhanden sind. Wären diese vorhanden, könnte ich es wie im Beitrag http://ww3.cad.de/foren/ubb/Forum145/HTML/000302.shtml machen. Wären es zwei Linien würde die Lisp-Funktion (inters lpkt1s lpkt1e lpkt2s lpkt2e nil) funktionieren. Folglich suche ich eine ähnliche Lisp-Funktion zu inters, die aber den Schnittpunkt einer Linie und einem Kreisbogen berechnet.Diese Werte sind mir bekannt:- Startpunkt Lin ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ohne Geometrie
Bernd10 am 01.08.2011 um 11:30 Uhr (0)
Hallo Thomas,danke für Deine Antwort. Zitat:Original erstellt von tunnelbauer:Welchen der beiden Schnittpunkte?Wenn ich alle Schnittpunkte hätte, könnte ich vielleicht durch eine weitere Analyse meinen gewünschten Schnittpunkt herausfinden. Zitat:Original erstellt von tunnelbauer:Siehe: http://www.unet.univie.ac.at/~a9907818/kreisund.htm http://de.answers.yahoo.com/question/index?qid=20081204075108AABfb0U Das übersteigt meine Mathe-Kenntnisse. Ich verstehe zwar noch, dass es die drei Fälle geben kann, a ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ohne Geometrie
tunnelbauer am 01.08.2011 um 11:56 Uhr (0)
Ich hab jetzt noch ein bisschen weiter gegoogled... http://www.mario-konrad.ch/index.php?page=10200 - Das PDF "Intersection" enthält bereits die Programmierung in "C" Source-Code... Einfacher wirds dann hier... http://paulbourke.net/geometry/sphereline/ (gibt es den Lisp-Code bereits...)bzw hier: http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Intersection-between-line-and-circle/td-p/831902 ------------------GrüsseThomasKorrekturen zum Kochbuch AutoLISP
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ohne Geometrie
archtools am 01.08.2011 um 11:59 Uhr (0)
Zitat:Original erstellt von Bernd10:Hallo Thomas,danke für Deine Antwort. Das übersteigt meine Mathe-Kenntnisse. Ich verstehe zwar noch, dass es die drei Fälle geben kann, aber dann ist es vorbei mit meinem Verständnis. Eine Umsetzung in eine Lisp-Funktion ist mir deshalb leider nicht möglich.Viele GrüßeBernd[Diese Nachricht wurde von Bernd10 am 01. Aug. 2011 editiert.]1. Zentrum des Kreises berechnen2. Normalvektor vom Zentrum des Kreises auf die Linie ermitteln3. Schnittpunkt der Linie, die der Normalv ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ohne Geometrie
Bernd10 am 01.08.2011 um 14:42 Uhr (0)
Hallo Thomas,danke für Deine Informationen. Zitat:Original erstellt von tunnelbauer: http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/ Intersection-between-line-and-circle/td-p/831902 Die Lisp-Funktionen in diesem Beitrag berechnen den von mir gesuchten Schnittpunkt. Ich verstehe zwar nicht nicht wie das passiert, aber ich werde es mir noch genauer ansehen.Viele GrüßeBernd
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 01.08.2011 um 16:12 Uhr (0)
Zitat:Original erstellt von cadplayer:Danke für Eure Anworten@Dorfy attsync ist doch meiner Meinung nach nur möglich, wenn man Blockeigenschaften von einem Original zur Kopie überträgt....ähm - nöwie rübe schin sagt, einfach mal probieren...ungetestet so Code:(DEFUN c:rb (/ ele wi ) (SETQ ele (CAR (ENTSEL "Block wählen: "))) (setq bname (vla-get-Name (vlax-ename-vla-object ele))) (SETQ ele (ENTGET ele)) (COMMAND "_ucs" "_object" (CDR (ASSOC -1 ele))) (SETQ wi (+ (CDR (ASSOC 50 ele)) (GETANGLE (TRA ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 01.08.2011 um 14:14 Uhr (0)
jag mal attsync drüber...------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
|
Lisp : Farbe VonLayer in Objektfarbe umwandeln
Dorfy am 01.08.2011 um 21:17 Uhr (1)
Die Jungs von d-tools haben da sicher was (meist für kleines Geld).PS.: nein - ich gehöre nicht dazu und nein - ich bekomme keine Provision oder sonstige Vergütungen ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."[Diese Nachricht wurde von Dorfy am 02. Aug. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 01.08.2011 um 19:46 Uhr (0)
Zitat:Original erstellt von cadplayer:...@Dorfy Du warst jetzt schneller mit posten - Danke aber ich bekam Deine Lösung nicht richtig zum Laufenlass mich raten (vl-load-com) fehlt?!sollst du dir mal in die acad.lsp packen oder irgendwo, wo es immer mitgeladen wirdbei mir läuft es - wenn man es so nennen kann sollstest mal noch ein Paar Abfangseile einbauen Edit: greift dein entlast immer? auch wenn dein Block nicht das letzte Objekt ist?nein - macht es nicht...------------------Mfg Heiko Elefanten ...
|
| In das Form Lisp wechseln |
|
Lisp : Symbol erstellen
CADMATIC am 27.07.2011 um 20:34 Uhr (0)
Hallo,es darf kein STRING sein, sondern es muß sich hierbei um ein Symbol handeln.Das Ergebnis soll exakt so aussehen:([ASD])Als String ist das kein Problem.Wenn ich (list [ASD]) schreibe, dann erhalte ich folgendes Ergebnis :([AS D])Irgendwie muß man das Lisp doch austricksen können.Gruß CADMATIC
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 02.08.2011 um 10:25 Uhr (0)
(command "_rotate" (setq en (car(entsel))) "" (cdr(assoc 10 (entget en))) (getpoint)))dein Winkel - Zielpunkt fehlt------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
