|
AutoLisp : Polylinie versetzen
andi2050 am 03.04.2003 um 15:33 Uhr (0)
Hi Forum Eine komplizerte und heikle Frage... Ich möchte den VERSETZ Befehl für LWPOLYLINIEN in LISP nachbilden und für meine Bedürfnisse optimieren.Die PLINE besteht aus Linien und Bögen.(keine Splines o.ä.) Das ganze benötige ich für die CNC-Bearbeitung von Konturtaschen, die ich Konturparallel ausräumen möchte. Dazu soll eine geschlosene Kontur um einen bestimmten Wert nach innen versetzt werden. Die versetzte Kontur wird nun wieder um den gleichen Wert versetzt usw... - siehe Ausraeumen.jpg Ursprüng ...
|
| In das Form AutoLisp wechseln |
|
Lisp : reactor in lisp
archtools am 14.05.2011 um 19:53 Uhr (0)
Zitat:Original erstellt von zech:Hallo Cadmium,habe ich schon dran gedacht. Ist aber so, das dem object-reactor vorher alle Objekte bekannt sein müssen. Man muss also ein oder mehrere Objekte dem reactor in einer Liste zuordnen (sog. owner).Mal abgesehen von einem bestimmten Block, wie oben beschrieben. Ich möchte die Referenz des Objektes haben welches ich anklicke und verschiebe, das ist eigentlich alles, alles andere ist dann ein Kinderspiel.DankeDein Problem ist kein exotisches, sondern ein ganz und g ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Auswahlsatz - nach Farbe filtern?
Brischke am 11.07.2003 um 10:45 Uhr (0)
Hallo Jürgen, dann nimmst du einmal die Variante Layer SOWIESO +Farbe VONLAYER und das andere mal, nur die Farbe FARBNR . Beides addiert ergibt dann, das was du suchst. So kann das dann aussehen: Code: (defun ssget:Farbe (farbe vLayer / at autom as) (if vlayer (setq at T autom (apply strcat (mapcar (lambda (S) (if at (progn (setq at nil) S );progn (strcat , S) ) ) (apply append (mapcar (lamb ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Zahlen von CADWiesel
CADwiesel am 16.03.2005 um 16:50 Uhr (0)
(Defun C:ZAHLEN () (START) (setq STYLE_LIST (EARX:LIST-TAB STYLE ) STYLE_TAB (list) FF (getvar textstyle ) ) ;_ end of setq (if (or (null ff) (= ff )) (setq FF STANDARD ) ) ;_ end of if (prompt
Textstil wählen ) (princ STYLE_LIST) (prompt (strcat FF )) (if (not (member (setq textst (strcase (getstring T))) STYLE_LIST) ) ;_ end of not (setvar textstyle ff) (setvar textstyle textst) ) ;_ end ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Höhenkote Lisp Code 3 Fragen
tom.berger am 04.09.2004 um 15:32 Uhr (0)
Zitat: Original erstellt von CAD-Tötti: Hmmm, irgendwie..... ...naja, sagen wir es so: 1. habe eine andere Frage gestellt ! Auf wen beziehst Du Dich damit? Zitat: Ich weiss zwar nicht, ob ich mit meiner persönlichen Rechtsauffassung richtig liege, aber ich denke, wenn jemand auf sein Copyright besteht, darf er hier grundsätzlich keine LSP-Dateien veröffentlichen sondern nur noch kompilierte Dateien (er hat ja somit damit gerechnet, dass diese unverschlüsselte Datei zu Testzwecken evaluier ...
|
| In das Form AutoLisp wechseln |
3dKanal_Problem-DWG.txt |
Lisp : 3D Objekte Zeichnen
Nano am 18.05.2013 um 09:52 Uhr (0)
Hallo JürgenKannst du behilflich sein, da wäre ich froh.bei diese Zeile habe ich noch ein Problem und ich weiss nicht mehr weiter.Habe noch eine Zeichnung im Anhang, so dass mann den Fehler sieht.Lisp:(DEFUN c:3dKanal() (SETVAR "cmdecho" 0) (SETQ $breite (Getreal "
Kanal-Breite angeben: ") $hoehe (Getreal "
Kanal-Höhe angeben: ") $laenge (Getreal "
Kanal-Länge angeben: ") $flansch 22 $flanschbreite (+ (* $flansch 2) $breite) $flanschhoehe (+ (* $flansch 2) $hoehe) $blechdicke 5 ) (command "bks" " ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Block -> Ursprung -> in Auswahlsatz.... aber wie?!
Brischke am 17.12.2002 um 08:58 Uhr (0)
Hallo Siegfried, Hallo Sebastian, ich gehöre jetzt auch zu denen, die bereits ausgeschlafen haben (mußten). Habe gerade mal Dein Programm getestet. Wenn ich das richtig sehe, dann möchtest du doch einen Kreis entlang eines Pfades extrudieren. Warum extrudierst Du nicht einer 3D-Polylinie? Anbei ein Programmansatz, mit dem du einen Kreis erzeugen und diesen dann auch entlang eines Pfades extrudieren kannst. Aber Achtung: es ist keine Logik drinnen, wo und in welcher ebene der Kreis gezeichnet wird. Diese Lo ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Flächen Summe berechnen
Brischke am 23.08.2017 um 15:14 Uhr (1)
Zitat:Original erstellt von fmfm:werd ich jetzt hier angegriffen weil mein Chef kein Geld investieren möchte?... das ist bisher nicht meine Absicht gewesen.Zitat:Original erstellt von fmfm:... Was ist den euer Problem?...... ich habe kein Problem.Zitat:Original erstellt von fmfm:... Wenn mein Chef sagen würde hier nimm das Geld und lass dir LSP-Dateien erstellen so dass meine Arbeit ganz einfach wäre, denkt ihr dann würde ich nein sagen? ... wohl nicht, denn dieser Job macht bestimmt keinen Spaß.Zitat:Or ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Platzbedarf (Kontur) von AutoCAD-Objekten
Brischke am 09.09.2004 um 13:48 Uhr (0)
@Marc, nein, habe ich nicht, muss man ja auch erst einmal drauf kommen. @All Da ich aber meine Lösung nun schon fertig habe, poste ich meinen Ansatz dennoch: 1) Insert kopieren 2) Kopie explodieren 3) von den Elementen (außer den Texten) einzeln mit dem üblichen GETBOUNDINGBOX dei Koordinaten ermitteln. 4) Element löschen 5) Aus Koordinaten min/max ermitteln 6) Punktliste aus den Koordinaten basteln -ferdich- Einzige Vorbedingung, die Layer sollten alle entsperrt sein. Code: (defun hb:getboundingboxINS ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Protect your Lisp
cadplayer am 09.07.2013 um 12:34 Uhr (0)
So könnte vielleicht eine Verschlüsselung aussehen.Die Funktion kann nur an dem Tag aktiviert werden, an dem der Aktivierungscode bestellt wurde. D.h., wenn man am nächsten Tag gleichen Activierungscode verwendet, funktioniert er nicht mehr.Es gilt jetzt vielleicht noch, die Funktionen sinnvoll aufzuteilen oder zu kürzen. Vom Prinzip funktioniert es aber.Code:; Funktion verschlüsselt das Passwort mit dem aktuellem Datum(defun encrypt (str / p) (setq p (mapcar + (vl-string-list str) (1 8 14 19 3 6 17 36 25 ...
|
| In das Form Lisp wechseln |
|
Lisp : Diplomarbeit
skyzem am 09.12.2010 um 14:03 Uhr (0)
Hallo, ich darf für mein Studium in Elektrotechnik eine Diplomarbeit schreiben.Das Ziel (meine Idee) umfasst, das automatische Erkennen von Kabelbäumen (Polylinien). Diese sollen dann je nach vorhandenen Eigenschaften berechnet werden können.Gegeben ist sicher immer die Länge eines Teilkabels.Zum einen soll der minimale Kurzschlussstrom berechnet werden. Auch die Leiterquerschnitte und die Verlustspannung/Verlustleistung. Dies soll euch aber nicht kümmern, denn das ist ja meine Aufgabe.Meine Frage ist eher ...
|
| In das Form Lisp wechseln |
|
Lisp : tatsächlicher Winkel einer Linie
archtools am 16.11.2017 um 19:53 Uhr (1)
Zitat:Original erstellt von jörg.jwd:Hallo zusammen,die Frage hört sich wahrscheinlich trivial an, aber ich bin seit Jahren aus der Lispprogrammierung raus und muss jetzt wieder loslegen.Ich suche eine Möglichkeit den tatsächlichen Winkel einer Linie zu bekommen. Wenn ich mir die mit _list anschaue zeigt mir die Kiste den Winkel in der xy-Ebene an. Genau diesen Winkel würde ich gern über Lisp ermitteln um damit weiter zu arbeiten. Mir (angle Punkt1 Punkt2) komme ich da nicht weiter da dieses Ergebnis ja da ...
|
| In das Form Lisp wechseln |
|
Lisp : dyn Blöcke 2
Christian B. am 08.02.2010 um 16:29 Uhr (0)
Hallo da draußen, http://ww3.cad.de/foren/ubb/Forum145/HTML/001303.shtml#000002 http://ww3.cad.de/foren/ubb/Forum145/HTML/002928.shtml Nachdem nun einige Monate vergangen sind und ich mich jetzt einigermaßen in Lisp eingearbeitet habe, hab ich nun zwei Funktionen, die auf den Sichtbarkeitsparameter ansetzten.-test funktioniert soweit, kann aber nur ein Obkekt auswählen und ist mit if-aa sollte eigentlich ein ganzes Selection-Set auswählen und dann mehrere Bedingungen aktzeptieren, hier liegt das Problem.E ...
|
| In das Form Lisp wechseln |
