|
AutoLisp : String in Zahlen umwandeln
cad-intensiv am 29.07.2005 um 20:34 Uhr (0)
Zitat: Original erstellt von MH Bit: Hallo, ich hab doch noch eine Frage denn: jetzt kommt bei (rtos 1000 2 4) = "1000.0000" da kam sonst immer "1000" raus. Wie kann ich die Anzahl der Stellen nach dem Komma einstellen? Hat das was mit DIMZIN zu tun? Michael Ja, das hat was mit DIMZIN zu tun - das stand bei Dir früher vermutlich auf 8. Ich verwende statt RTOS immer meine eigene Funktion, die Du gerne für Dich passend ändern kannst: Code: (defun my-rtos (zahl modus stellen / result olddimzin) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Directory Tree kopieren...
CADchup am 16.05.2007 um 10:32 Uhr (0)
Hi, Zitat:Original erstellt von marc.scherer:[QUOTE]Weil ich das Ding aus der acaddoc.lsp aufrufen will und dort möglichst wenig Overhead und advanced Schnickschnack drinnen haben will...du willst bei jeder Zeichnung, die geöffnet wird, Dateien und Ordner prüfen und ggf. kopieren lassen (können)? Okaaaaay... Dann verstehe ich die Overhead-Sache.Als User fänd ich es allerdings nicht so prickelnd, wenn ich nur mal schnell eine DWG aufmachen würde, um etwas nachzusehen und ich dann u. U. warten müsste, bis e ...
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 09.06.2009 um 17:06 Uhr (0)
Hallo!Habe hier eine kleine Simulation mit Lisp geschrieben! Habe später vor etwas größeres (aufwendigeres) zu machen.Code:(defun C:Dreh(/ x) (setq x 30) ;(command "_.pline" "950,500" "1050,500" "1000,500" "1000,550" "1000,450" "") (command "_.rectang" "975,475" "1025,525") (command "_.pline" "950,500" "1050,500" "1050,550" "1000,550" "1000,450" "950,450" "950,550" "1050,550" "1050,450" "1000,450" "") (setq y 0) (while (= y 89) (command "_.rotate" (entlast) "" "1000,500" "1") (setq y (+ y 1)) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Schraffuren nach Farben auswählen
muntafuner am 22.10.2019 um 15:15 Uhr (1)
Hallo zusammen,ich bin auf der Suche nach einer Lösung (wahrscheinlich am besten mittels einer Lisp-Datei) für folgende Problemstellung:Derzeit bin ich beschäftigt erhaltene Zeichnungen auf meinen Layer-Standard zu bringen. Dabei liegen alle Schraffuren der erhaltenen Zeichnung auf dem Layer "Poly_Muster" jedoch mit verschiedenen Farben.Nun möchte ich zum Beispiel alle Schraffuren auf dem Layer Poly_Muster mit der Farbe 241,227,215 auswählen und auf meinen Layer "Poly_Stahlbeton" mit der Farbe VonLayer set ...
|
| In das Form Lisp wechseln |
|
Lisp : Wenn Dann
Martin Henkel am 28.11.2007 um 09:31 Uhr (0)
Hallo Jörn und Cadwiesel,erstmal Guten Morgen (an Alle) und Danke.Allerdings bin ich jetzt erstmal gefrustet.Grund meiner ganzen Anfragen, war die Ergänzung der afkoord.lsp die hier schon geraume Zeit herumschwiert. Aber ich werfe jetzt erstmal das Handtuch (Respekt für die, die Lisp verstehen).Bei meiner Ergänzung ging es darum Koordinatenkreuze für das gewählte Ansichtsfenster einzufügen und anschließend vom Modellbereich in den Layoutbereich zu schieben. Zuerst hat es noch für ein Layout funktioniert. B ...
|
| In das Form Lisp wechseln |
|
Lisp : Wo liegt hier der Fehler ???
romi1 am 04.05.2007 um 09:29 Uhr (0)
Hi!Habe mich scheinbar schon zu früh gefreut ....Brauche bitte nochmals Eure Hilfe bzw. Eure Meinung:Habe nun das Programm nach den Angaben von Herrn Hübneradaptiert und es zeichnet nun auch brav die Längsabwicklungder 3D-Polyline. Wenn ich allerdings die Funktion nochmalsaufrufe, und die gleiche 3D-Polyline wähle und den Einsetzpunktetwas oberhalb angebe, bekomme ich ein anderes Ergenis.Beim 3. Durchlauf wirds wieder etwas anders gezeichnet, usw...Meistens wird (unerklärlicherweise) ein Punkt auf die zuvo ...
|
| 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 |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 16.11.2005 um 20:58 Uhr (0)
Hallo,ich wollte das ganze noch einwenig verbessern und erweitern, aber irgendwie klappt das nicht. Es kommt immer wieder Syntaxfehler.(DEFUN c:ordi (/ nprpfpcpDXXDXDYYDYP1P2P3)(COMMAND "bks" "o" pause)(COMMAND "_dimordinate" (SETQ np (GETPOINT "
Startpunkt")) (setq fp (GETPOINT "
Führungspunkt"))) (if fp (progn (setq DXX (- (car fp) (car np)) DX (- (car np) (car fp)) DYY (- (cadr fp) (cadr np)) DY (- (cadr np) (cadr fp)) ) (if (and ( DYY DXX) ( DX ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 14.11.2005 um 08:11 Uhr (0)
Hi,ich möchte mir gerne einen Zusatz zur Koordinatenbemassung von AutoCAD lt 2000 schreiben (ähnlich der von AutoCAD mechanical). Da ich leider ein absoluter Anfänger bin, erweist das ganze ziemlich schwierig für mich. Eine kurze Erklärung zum Bild:Wenn das Lisp gestartet wird:Frage nach dem Startpunkt und dem Abstand der Bemassung, wenn der Startpunkt die Koordinate null hat (egal ob Achse X oder Y) soll ein Kreis Ø2 in einem Abstand 1,25 vom Endpunkt der Bemassung erstellt und eine Linie aktiviert werde ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Geländemodell DGM Höhenpunkte
mapcar am 17.11.2004 um 12:35 Uhr (0)
Schau dir diese Funktion im Code an: Code: (defun DRAWTRIANGLE (triangle) ; (entmake (list (cons 0 "LINE")(cons 10 (car triangle))(cons 11 (cadr triangle)))) ; (entmake (list (cons 0 "LINE")(cons 10 (cadr triangle))(cons 11 (caddr triangle)))) ; (entmake (list (cons 0 "LINE")(cons 10 (caddr triangle))(cons 11 (car triangle)))) (grdraw (car triangle)(cadr triangle) 1) (grdraw (cadr triangle)(caddr triangle) 1) (grdraw (caddr triangle)(car triangle) 1) ) Kommentier die drei unteren Zeilen raus und ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
cad-intensiv am 29.09.2005 um 21:55 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo Cad-inwenn ich mir meinen Text so einlese ist das überhaupt ein string den ich bearbeiten kann.(setq textw (car (entsel))) (setq abfrage (entget textw)) (setq letzteob (cdr (assoc 1 abfrage))) Du solltest mehr prüfen und solltest die Variablen so benennen, dass sie wenigstens irgend was mit dem Inhalt zu tun haben und nicht völlig falsche Namen haben.Beispiel:Code:(if (and (setq text-entityname (car (entsel "
Textelement wählen: "))) (setq text-entgetlist ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Linie im Block
Nano am 09.12.2006 um 13:50 Uhr (0)
Hallo zusammenHabe hier ein kleines Lisp erstellt.Es sollte für mich alle Linien-Elemente im einem Block filtrieren,Die Linien auf ein Layer und die Farben auf "Vonlayer" setzten.Habe bemerkt das es alle Linien im Block findet.Layer und Farbe neu setzten habe ich probleme,kann mir jemand sagen an was es liegt im (DEFUN AL1()??Danke Nano(DEFUN C:AL() (setq Jblock (tblnext "BLOCK" t)) (while Jblock (setq blk (tblobjname "BLOCK" (cdr (assoc 2 Jblock)))) (while(setq blk (entnext blk)) (setq blkdaten (entg ...
|
| In das Form Lisp wechseln |
|
Lisp : Excel API Aufruf erzeugen
Meldin am 23.09.2022 um 09:41 Uhr (1)
Hallo,also der Code von Terry Miller ist ja in sich ein schlüssiges Prog. das dir eine Excel-Tabelle in Acad (Lisp) liefert, daher würde ich für ein spezielles vorhaben einen solchen code nicht verwenden, da dieser funktioniert wie er funktionieren soll, und sich auf das ganze bezieht.Die frage an sich ist wie dein such vorhaben ist? Also wie kommst du in Excel an deinen Wert, wenn du in die Tabelle schaust?Einen direkten Zugriff, könntest du auch so gestalten. Code:(setq ExcelUsedRange (vlax-variant-v ...
|
| In das Form Lisp wechseln |
