|
Lisp : Verbesserungsvorschläge gesucht!
THE_ONE am 05.03.2007 um 00:26 Uhr (0)
Hallo! Bin derzeit dabei mir Lisp beizubringen! Hab mal etwas lisp Code geschrieben und möchte wissen ob man da irgendwie was besser machen hätte können: Code:(defun c:fz();Erzeugung eines Blechstreifen mit Löchern!;Angaben in cm (setq rahmenlänge 81.0 materialdicke 0.3 ) (setq anzahl_h_löcher 5 loch_durchmesser 0.5 hor_lochabstand 1.0) (setq spoint (GETPOINT "
Please select STARTPOINT location: "));Blechstreifen erzeugen (command "_box" spoint (list (+ (car spoint) rahmenlänge) (+ (cadr spoint) (* hor ...
|
| In das Form Lisp wechseln |
|
Lisp : Bögen im Raum Endpunkt per DXF Gruppencode 210
THE_ONE am 05.03.2007 um 13:34 Uhr (0)
allo!Nein, erster Grund warum ich das wissen wollt ist dass ich den Befehl trans nicht gekannt habe, und ich aber versuche 3d Objekte in Lisp zu erstellen. Der ja, glaube ich, genau das macht. Funktionieren tut trans glaube ich so:(trans zu_transformierender_Punkt von_Koordinatensystem zu_Koordinatensystem disp)von_Koordinatensystem und zu_Koordinatensystem können die Werte: 0 Weltkoordinatensystem (WCS)1 Benutzerkoordinatensystem (UCS)2 Display Koordinatensystem (DCS)3 Papierbereich Display Koordinatensys ...
|
| In das Form Lisp wechseln |
|
Lisp : Blöcke anhand gegebener Polylinie einfügen
THE_ONE am 19.03.2007 um 11:20 Uhr (0)
Hallo!!Ich will anhand einer wählbaren Polylinie, eines gegeben Blockes und einer Anzahl (Anzahl der Blöcke), folgendes erreichen:z.B.: Anzahl =5 gegebener Block ist das blaue Dreieck Das Problem liegt darin die Einfügepunkte und die Ausrichtung zu ermitteln. Hab derzeit überhaupt keinen Plan wie ich da anfangen könnte. Brauche ich dazu VisualLisp, höchstwahrscheinlich oder??MFG THE_ONEps.:Kennt vielleicht jemand schon ein Lisp das sowas (oder ähnliches) kann??
|
| In das Form Lisp wechseln |
|
Lisp : Alle Einfügepunkte eines Blockes ermitteln
THE_ONE am 19.03.2007 um 12:28 Uhr (0)
Hallo! Frage kann mir vielleicht einer von euch sagen wie man alle Einfügepunkte eines Blockes bekommt- am besten in einer Liste!Hab hier im Forum ein Auto-Nummerierungstool gefunden, das ich mir auf meine Problemstellung angepasst habe! Nur muss ich dazu jeden Einfügepunkt selber angeben. Und eigentlich will ich ja nur das jeder Block eine eindeutige Nummer bekommt die neben dem Block steht (in einem fixen Abstand), dazu bräuchte ich aber die Einfügepunkte des Blockes.hier mal was ich bis jetzt habe:Code: ...
|
| In das Form Lisp wechseln |
|
Lisp : Nummern automatisch an Text anfügen
THE_ONE am 21.01.2008 um 08:43 Uhr (0)
Hallo!Ich habe MTexte/Text auf dem Bildschirm. Kann ich es mit Lisp schaffen das ich einen Befehl kreiere der folgendes bewirkt:1.Beim starten des Befehls fragt er mich nach einer Nummer danach klicke ich nach der Reihe Mtexte/Texte an, bei jedem klick auf einen Mtext/Text wird die Nummer um eins erhöht und dann dem Mtext/Text angefügt.MFG THE_ONE
|
| In das Form Lisp wechseln |
|
Lisp : Nummern automatisch an Text anfügen
THE_ONE am 21.01.2008 um 11:23 Uhr (0)
Hallo!So habe es jetzt endlich fertig!Code:(defun c:addnumber (/ START_NUMBER Object stringeintrag stringelement x) (initget 5) ;lässt kein NULL (also nur ENter drücken) und keine negativen Zahlen zu (if (setq START_NUMBER (getint "Enter a number:")) ;liest einen Integer ein (progn (initget 0) (while (setq Selection (entsel "Wähle Text")) ;solange bis der User Enter drückt ;entsel liefert eine Liste mit zwei Elementen: 1stes Element ist der Name, ;zweites Element ist die Cursorposition an der der Curs ...
|
| In das Form Lisp wechseln |
|
Lisp : retext - ssget
THE_ONE am 18.07.2008 um 10:25 Uhr (0)
Hallo! Ich hab mir das Programm ReText (Lisp) von der Seite von mapcar geladen, das auch wunderbar funktioniert.Das Lisp durchsucht die ganze Datei nach einen SUCHSTRING, wird dieser gefunden ersetzt diese Tool dann diesen SUCHSTRING durch den zu ersetzenden String. Das ganze n mal, also so oft wie diese Tool den String in dieser Datei findet. Ich wollte nun diese Lispdatei so modifizieren das es nicht die ganze Datei durchsucht sondern lediglich alle Objekt die ich mit einem Fenster auswähle.Hier mal ein ...
|
| In das Form Lisp wechseln |
|
Lisp : retext - ssget
THE_ONE am 18.07.2008 um 10:50 Uhr (0)
Zitat:Original erstellt von Dorfy:Hallo,schon mal ssget ohne "Zusatz" verwendetHallo und danke erstmal für dein Hilfe!Genau das wäre die Lösung, aber dann kann ich die Filterliste nicht verwenden (ich brauche ja nur die Objekte die Text enthalten), obwohl genau wissen was die einzelnen Elemente in der Liste bedeuten tue ich sowieso nicht (für was gehören die ersten zwei und die letzen 3 Elemente in der Liste???). Ich will halt nur das das ganze funktioniert am Schluss und will daher nicht soviel veränder ...
|
| In das Form Lisp wechseln |
|
Lisp : Plotstil zuweisen
THE_ONE am 29.07.2008 um 12:36 Uhr (0)
Hallo!Meiner Auffassung nach verwendest du benannte Plotstile. Und da finde ich dass du gar keine Lisp brauchst. Mach einfach ein Quickselect auf alle Blöcke und weis dann den Plotstil zu. Hab dir dazu ein Video angehängt(animated Gif)Geht auch ruck zuck und du ersparst dir die Arbeit mit dem Lisp.Lg _THE_ONE_[Diese Nachricht wurde von THE_ONE am 29. Jul. 2008 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Global Color / Farbe verändern
THE_ONE am 01.08.2008 um 11:16 Uhr (0)
Zitat:Original erstellt von CADmium:1. setvar weil der command overhead nicht bei ist, aber das ist bei einmal setzen nicht relevant2. aus der Hilfe im Vlide3. ja .. und thx rübchen für die "256" .. ZU 2: Habs gefunden: im Visual Lisp Editor auf Hilfe klicken und dann auf den Reiter Inhalt, dort dann auf ActiveX and VBA Developers Guide, dort dann auf ActiveX Automation Basics und dann noch auf Understand the AutoCAD Object Model klicken.Das ist zwar ein netter Baum, bin aber der Meinung eine DWG gehabt z ...
|
| In das Form Lisp wechseln |
|
Lisp : Pause (2sec) in LispCode einfügen
THE_ONE am 07.08.2008 um 15:20 Uhr (0)
Hallo!Hat Lisp einen Pause Befehl oder gibt es sonst irgendwelche Möglichkeiten um Lispcode zu pausieren für eine bestimmte Zeit? LG THE_ONE ps.: Busy wait wäre wahrscheinlich eine Möglichkeit, aber da brauche ich wahrscheinlich 4 verschachtelte Schleifen , also ned ganz des optimale, noch dazu tue ich mir da schwer mit der Festlegung der Zeit.
|
| In das Form Lisp wechseln |
|
Lisp : Layerfarben automatisch grau färben
THE_ONE am 10.09.2008 um 12:19 Uhr (0)
Hallo!Hat bzw. kennt jemand ein Lisp, dass abhängig von den aktuellen Layerfarben, die Layerfarben auf einen entsprechende Grauwerte ändert?Lg THE_ONE
|
| In das Form Lisp wechseln |
|
Lisp : Layerfarben automatisch grau färben
THE_ONE am 10.09.2008 um 18:06 Uhr (0)
Hallo!Danke herzlichst euch beiden! Hab hier die Seite von MapCar gefunden die du (CADmium) gemeint hast.Dank Wronzky brauche ich diese Umrechnung jetzt nicht mehr (dafür gibt es 10 Unities,müssten schon bei dir sein)!vla-get-truecolorvla-get-redvla-get-green vla-get-blue - diese Befehle sind wirklich klasse nur stehen die nicht in der Hilfe, oder??Nun ist ein weiteres Problem aufgetaucht: Wie um alles in der Welt verändert man nun diese Werte?Warum gibt es KEINE vla-put-red, vla-put-green und vla-put-blu ...
|
| In das Form Lisp wechseln |
