|
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 |
|
Lisp : Blockattribute drehen
cadplayer am 01.08.2011 um 13:35 Uhr (0)
Durch ein wenig rumstöbern bin ich dieses Lisp gestossen, womit ich Blöcke drehen kann. Allerdings würde ich es mir wünschen, dass auch die Blockattribute mitgedreht werden. Funktioniert das nur mit Hilfe von ssget und Bestimmung eines Auswahlsatzes oder kann ich in die Variable ele noch mit den Attribut füllen?(DEFUN c:rb ( /elewi) (SETQ ele (ENTGET (CAR (ENTSEL "Block wählen: ")))) (COMMAND "_ucs" "_object" (CDR(ASSOC -1 ele))) (SETQ wi (+ (CDR(ASSOC 50 ele)) (GETANGLE (TRANS (CDR (ASSOC 10 ele)) 0 1))) ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 02.08.2011 um 13:42 Uhr (0)
ich versuch es mal(DEFUN c:rb ( / obj ele pkt wi ) (if ;if schleife auf( (setq obj (car (ENTSEL "Block wählen: "));bedingung( ele (entget obj);bedingung pkt (CDR (ASSOC 10 ele));bedingung );bedingung)(progn;fehlt hier sicherlich (COMMAND "_ucs" "_object" (CDR (ASSOC -1 ele)));koordinatensystem verschieben (SETQ wi ;neuen drehwinkel berechnen(+ ;du addierst (CDR(ASSOC 50 ele));die Drehung vom insert (GETANGLE ;mit einem Winkel aus Basispunkt und einer Eingabe(TRANS ;Transformieru ...
|
| In das Form Lisp wechseln |
schnpkt_kreis_linie.lsp.txt |
Lisp : Schnittpunkt ohne Geometrie
Bernd10 am 02.08.2011 um 16:04 Uhr (0)
Hallo,hier meine Lisp-Funktion, mit der ich nun beginne meine Fälle zu testen. Danke an alle für die super Unterstützung und viele GrüßeBernd
|
| In das Form Lisp wechseln |
RotBlock.lsp.txt |
Lisp : Blockattribute drehen
Arcuso am 02.08.2011 um 17:38 Uhr (0)
Hallo !Anbei eine Lisp, wenns wer brauchen kann:Geklickte Blöcke manuell drehen mit 3 Modi:Option O: Es wird nur der Block ohne Attribute gedrehtOption S: Der Block wird samt seinen Attributen gedreht (Standard)Option A: Attribute werden zwar mitgedreht, ihre Ausrichtung bleibt aber gleichBei Attributen werden gesperrte Layer berücksichtigt.Auch mit BricsCAD getestet.MfG Arcuso
|
| In das Form Lisp wechseln |
|
Lisp : Inseln in Hatch erkennen DXF
FiRePhoeniX am 09.08.2011 um 12:40 Uhr (0)
Danke noch mal Brischke,wir belassen es erst mal bei. Ich schau mal nach was ich machen kann. Das AutoCad .Net hat ist mir klar, die entsprechenden Informationen könnte ich auch mit Lisp raus bekommen(mit recht viel Arbeit). Was ich aber machen möchte ich unabhängig von der Autocad, sprich nur mit der DXF zu arbeiten. Wie schon erwähnt ist DXF halt das Austauschformat Nummer eins zur zeit. Somit müssen wir das verarbeiten können. Zur Not muss der Anwender die "Hatches" überarbeiten, solange ich noch keine ...
|
| In das Form Lisp wechseln |
