|
Lisp : Assoziativität von Schraffuren
joern bosse am 08.08.2006 um 09:30 Uhr (0)
Hallo,ich möchte eine Schraffurfläche und deren Umgrenzung duplizieren und neu in die Zeichnung einfügen. Diese Schraffurfläche ist assoziativ mit der Umgrenzung verbunden, diese Assoziativität soll auf die duplizierten Objekte übertragen werden.Das Duplizieren mache ich folgendermaßen: Ich nehme mir jeweils die Objektliste über "entget" von dem HATCH und der LWPOLYLINE. Nachdem ich aus der Liste den GC 5 (Handle) entfernt habe, kann ich über "entmake" einen neuen HATCH und eine neue LWPOLYLINE mit einem n ...
|
| In das Form Lisp wechseln |
|
Lisp : Punkte einer Polylinie in Datei schreiben
mhol25 am 17.04.2008 um 13:51 Uhr (0)
Hallo Community,erst einmal vielen Dank für das hier von euch geteilte Wissen!Ich stehe vor der Aufgabe, Raumpolygone in eine räumliche Datenbank (MS SQL SERVER 2008) zu überführen. Mittels des Beitrags von Holger vom 23.08.05 (http://ww3.cad.de/foren/ubb/Forum145/HTML/001248.shtml#000005) konnte ich die X- und Y-Koordinaten aller relevanten Raumpolygone einer Zeichnung in eine Textdatei extrahieren (Vielen Dank für die Hilfe! 10 unities sind überwiesen)Zur Überführung in die Datenbank ist jedoch ein spez ...
|
| In das Form Lisp wechseln |
|
Lisp : Kann man Variablen dauerhaft...
Brischke am 28.11.2012 um 12:46 Uhr (0)
... eleganter gehts immer ;-) Das ist aber nicht immer die frage: den Weg, den ihr ihr vor habt, den halte ich für Fehleranfällig.Denn man sollte beachten, dass beim 1er GruppenCode nur eine begrenzte Zeichenanzahl möglich ist .. nicht dass dann irgendwann irgendwelche Daten fehlen oder unvollständige Listen zurück gegeben werden. Daher meine Empfehlung: Finger weg von dieser Lösung.Meine Empfehlung: Dann geht doch über Dictionaries, in welches ihr die Daten ja sogar benannt ablegen könntet. Sinnvolle Stru ...
|
| In das Form Lisp wechseln |
|
Lisp : umgang mit rechenungenauigkeiten
Code Kian am 29.09.2023 um 11:21 Uhr (1)
Hallo Cadffm, mega danke fürs sich anschauen, hatte zwischenzeitlich schon angst, dass keiner bock hat sich diesen unsympatischen block an text überhaupt durchzulesen...{wie geschrieben, ich schau mir nur das Thema Lisp an, nicht ob dein Rechenweg überhaupt stimmt}Anm: Bei den gaanz vielen Nachkommastellen in der Antwort habe ich dann auch mal irgendwo gerundet/aufgehört, werde ja nicht fürs tippen nicht bezahlt. richtig so. ich werde mich auch für eine Gehaltserhöhung um 100% für dich stark machen!!!_" ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Liste mit Linienstücken zusammensetzen
mapcar am 15.03.2004 um 15:24 Uhr (0)
Warum nicht AutoCAD die Arbeit machen lassen? Code: (defun mk-plines(segs / le lines) (setq le(entlast)) (foreach seg segs(command _line (car seg)(cadr seg) )) (setq le(if le(entnext le)(entnext))) (while le(setq lines(cons le lines)le(entnext le))) (foreach line lines (if(= LINE (cdr(assoc 0(entget line)))) (eval(append (command _pedit line _yes _join )lines ( ))) ) ) ) (mk-plines liste1) Ein paar Hinweise: a) Die Prüfung am Anfang ist nur dazu da, damit die Funktion ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : LAyer wechseln anhand einer Lisproutine
Sparky am 07.08.2002 um 16:35 Uhr (0)
Hallo zusammen, ich möchte anhand eines Lispprogrammes einen Layer wechseln. Ich möchte das aber innerhalb eines Programmes erreichen. Also nicht mit einer ccf-Datei arbeiten und auch nicht mit einem andern Tool wie es z.B. bei Cadwiesel liegt. Das funzte nämlich bei mir nicht. Außerdem ist die Schwierigkeit das die Layer von den gewechselt werden, nach dem Wechsel nicht mehr in der Layersteuerung enthalten sein sollen. Das ist nämlich bei der Verwendung einer ccf-Datei der Fall. Im ersten Schritt meines ...
|
| In das Form AutoLisp wechseln |
|
Lisp : wozu eigentlich Lisp Dateien
spider_dd am 03.07.2012 um 10:59 Uhr (0)
Hallo JoeyZitat:Original erstellt von joeycool:Meine Routine habe ich in der CUI unter einem Befehl abgespeichert, den auf einen button gelegt, und gut ist.Hier musst Du Dich aber auch mit den CUIx auskennen, sonst kommt ein Update oder eine neue Version und Du fängst wieder an mit dem reinbasteln.Zitat:Warum soll man jetzt daraus eine Lisp Datei schreiben, die man (wahrscheinlich auch über einen Butto) erst mit appload in jeder Zeichnung laden muss, um sie dann über den definierten Befehl aufzurufen.Progg ...
|
| In das Form Lisp wechseln |
|
Lisp : Koordinatentext vom Punkt verschieben
Brischke am 04.10.2011 um 05:59 Uhr (0)
Hallo Madler,nachfolgend dein Code, den ich mal ein wenig erweitert habe. 2 Wege der Addition von Koordinaten sind darin aufgezeigt.Code:(defun c unktid ( / xyz xyz1 uprec ptx pty ptz lname PunktNeu PunktMoved MoveVector fil) (command "-layer" "machen" "Punkt-ID" "farbe" "rot" "" "") (setq uprec (progn (initget 5)(getint "Nachkommastellen: ")) lname "?" ) ;;- Layer abfragen und sicher stellen, dass der NAme gültig ist. Layer erzeugen(wenn nicht vorhanden) (while (not (snvalid lname)) (initget 1) ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer von Vertex und Seqend ändern
Geos am 06.11.2006 um 07:50 Uhr (0)
ServusEigentlich gibts ja sowas bereits(http://www.cad-od.de/downloads.html - Nr.24), aber das scannt anscheinend die ganze Zeichnung (und meine hat jetzt 15MB).Drum hab ich mir selber was geschrieben, wo ich vorher Objekte wählen kann.Im Prinzip "funktionierts" - (subst) liefert richtige #elist, aber (entmod) schreibt offensichtlich nix zurück (liefert nil)!Was ist da falsch?Code:(defun c:cleanpoly ( / #aws #awslist #ename #elist #layer) (setq #aws (ssget "X" ((0 . "Polyline")))) (setq #awslist (f#awslist ...
|
| In das Form Lisp wechseln |
|
Lisp : spiegeln & layerwechsel in einem ?
cadffm am 29.04.2009 um 21:22 Uhr (0)
Wegen der Option: Gut, so habe ich es ja umgesetzt."Was meinst du damit ?"Das war darauf bezogen das die gezeigte Variante in der Befehlszeile eine völligandere Ausgabe bringt als der Weg "per Hand" - noch nicht bemerkt ?"..dann übernommen wird. Ähnlich einer normalen Layerzuweisung.So hatte ich mir das vorgestellt."Genau davon (Layerzuweisung / Objekte ändern) hast du im Posting aber nichts gesagt !Und genau das meinte ich mit dem deutlichen Mehraufwand (deutlich, relativ zum bisherigen Lösungsstand)und a ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Visuallisp
Kenny1 am 06.07.2004 um 08:51 Uhr (0)
ja, vom Prinzip her ist es ne Art Lego. Die Teile werden aneinandergesetzt, wobei die Art und Weise immer unterschiedlich ist. Es gibt lediglich gewisse „Regeln“. Diese sind aber auch nicht immer zwingend. Die Bauteile haben zu 95 % die Geometrie eines Quaders. Ab und an müssen die Bauteile verformt werden, haben aber nie hochkomplexe 3D Formen. Mit „_extrude“ und ein wenig Schneiden kriegt man bei diesen „komplexen“ Teilen alles hin. Weiter müssen die Teile auftragsspezifisch bearbeitet werden : Bohrungen ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Bitte um Hilfe zur Präfix-Notation
joern bosse am 03.12.2008 um 15:00 Uhr (0)
Hallo Danijel,also erstmal den Auswahlsatz mit Texten.Voraussetzung, um es einfach zu halten ist, das Du das WKS aktuell geschaltet hast, und das die Textrahmen auch in diesem WKS ausgerichtet sind.Code:(defun c:test ( / AWS_TEXT BASISPUNKT BLOCK LISTE_TEXT N RECHTSUNTEN X Y) (setq x 4.0 y 8.0);angenommene Werte für Breite (x) und Höhe(y) des Textrahmens (if(setq block (car(entsel "Bitte Block picken"))) (progn (setq basispunkt (cdr(assoc 10 (entget block))) rechtsunten (mapcar - basispunkt (list x y))) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Linientypfaktor
mkl-cad am 20.03.2006 um 14:01 Uhr (0)
HalloUnsere Eingabemaske des Maßstabs sieht bei uns so aus (Foto)Hier wird anschließend nicht nur der Ltfaktor eingestellt sondern auch Textstile in der passenden Größe erstellt und Layer mit passenden Linientypen geladen. (Dazu das Detail und Schema) Dann werden Linientypen mit Buchstaben drin durch den linientyp ausgezogen ersetzt.maß : dialog {label = "Zeichnung einrichten";fixed_width = 50; :row{ : boxed_column{ label = "Maßstab wählen"; : radio_button { key = "1 : 1000"; label = "1 : 1000"; } : ...
|
| In das Form AutoLisp wechseln |
