|
Lisp : Lastpoint
Steff179 am 02.03.2011 um 11:20 Uhr (0)
Du kannst zum Beispiel am Anfang mittels (entlast) den Elementname des letzten Objektes in der Zeichnung speichern und prüfst, nachdem die Umgrenzung erstellt werden sollte, ob es nicht mer das gleiche Objekt ist.Wenn es das gleiche ist, dann wurde keine Umgrenzung erstellt.Code:(Defun c:vers ( / SAVELAST ab LP) (setq SAVELAST (entlast)) ;Ename des letzten Objekts speichern (command "-umgrenzung" "o" "i" "n" "" "" (setq LP(getpoint "
Internen Punkt wählen: "))"") (setq ab (entlast)); Ename der Umgrenzun ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Bemassung
niltons am 18.06.2004 um 14:52 Uhr (0)
Zitat: Original erstellt von mapcar: Klingt nicht aufregend. Tut mir leid, aber wenn man es kann mag es wohl Banal sein, aber sicher nicht wenn man es nicht kann! So wie ich! Es gibt da sicher noch einige Haken, aber ich bin sicher es ist auf jeden Fall einfacher als die Masse einzeln in eine Excel Datei zu kopieren. So wie es jetzt, mit einigen Zeichnungen, gemacht wird. Ich habe mir aus verschiedenen Posts, von hier, was zusammengebastelt. Ich bin also schon so weit, dass ich die Masse nu ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blockattribute von Linien freistellen
kathi-witt am 26.04.2006 um 14:47 Uhr (0)
Hallo Ernst.Vielen Dank für den wertvollen Tip.Ja ich studiere Vermessung und schreibe im Rahmen meiner Diplomarbeit ein Tool für AutoCAD, welches Punkte in die Zeichnung einliest und diese dann gleich mit dem entsprechenden Symbol - je nach Punktart - sowie der Punktnummer und der Höhe als Attribut darstellt. Außerdem ist es möglich einzelne Punkte anhand ihrer Punktnummern oder mithilfe einer Punktnummernliste durch eine Polylinie miteinander zu verbinden. Die Punktsymbole werden außerdem auch noch freig ...
|
| In das Form AutoLisp wechseln |
|
Lisp : ssget und entget
Frank88 am 09.04.2008 um 13:48 Uhr (0)
Hallo,Ich will aber nicht manuell auswählen! - Das hätte ich auch als Betreff schreiben können. Wahrscheinlich hätte mir das einige Kritik eingetragen.Ich erstelle eine Linie und weise dieses Objekt einer Variablen zu:Code: (entmake ((0 . "Line")(67 . 0)(8 . "0") (10 0.0 0.0 0.0)(11 0.0 0.0 0.8)) ) (setq Ax1 (entget(entlast)))Dann passiert da einiges im Programm. Irgendwann möchte ich diese Linie drehen:Code: (setq p1 (list -0.5 0 0.8)) (setq p2 (list 0.5 0 0.8)) (command "3ddrehen" Ax1 "" p1 p2 PC)PC ...
|
| In das Form Lisp wechseln |
|
Lisp : nochmal Cogo Punkte
proyectista am 16.07.2008 um 04:05 Uhr (0)
Hallo Leute,hab wiedermal (oder besser gesagt immernoch) das Problem, keine cogo points (C3D 2008) via Lisp erzeugen zu koennen;Ich kann Daten vorhandener Punkte auslesen oder sogar aendern, aber neue Punkte in die Zeichnung einzufuegen bekomm ich einfach nicht hin...Kann mir da jemand helfen?mein Datensatz sieht so aus:(("y" "x" "z" "description")...) ;;; auslesen und aendern klappt bestens:(setq cogopto (vlax-ename-vla-object (CAR (ENTSEL))));;#VLA-OBJECT IAeccPoint 129c6968(vlax-get-property cogopto "N ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Text automatisch ersetzen
CADmium am 29.09.2004 um 11:42 Uhr (0)
Auch wenn das hier kein Wunschbrunnen ist .... (defun Tausche (Altertext Neuertext / Auswahl Index OBJEKTDATEN) (if(and(=(type Altertext) str) (=(type Neuertext) str) (setq AUSWAHL(ssget _x (list (0 . *TEXT )(cons 1 ALTERTEXT)))) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX))))) (entmod(subst(cons 1 NEUERTEXT) (assoc 1 OBJEKTDATEN)OBJEKTDATEN)) ) ) ) ) ersetzt in ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Verdeckte Geometrie...
naservus03 am 17.10.2006 um 19:32 Uhr (0)
Hallo,der Block in der Zeichnung ist nur teilweise sichtbar.Mit Refbearb wird die gesamte Geometrie eingeblendet - auch beim Zerlegen in den Ursprung.Meine Fragen:1. Wie erzeuge ich so einen Block?2. Wie kann ich beim Zerlegen in der Ursprung verhindern, dass die gesamte Geometrie eingeblendet wird?Ich will also nach dem Zerlegen nur mehr jene Elemente sichtbar haben, die vor Zerlegung auch sichtbar waren...Acadversionen: Autocad 2006 und 2007, Mechanical und LTDie Datei wurde mit Solidedge erzeugt.Ich sol ...
|
| In das Form Lisp wechseln |
|
Lisp : Layerkonverter
mapla am 09.04.2009 um 12:18 Uhr (0)
Hallo Andreas,ich habe vor Jahren bereits einen LayerKonverter gebastelt.Wir mußten damals komplexe Layerstrukturen von R14 nach 200x umstellen.Es gab vorgefertigte Listen im CSV Format für einzelne Abschnitte,Spezielle Bedingungen für TXT, Schraff und Bem Objekte,der User kann eingene CSV Tabelle erstellen wo er Sonder layer konvertieren kann.Vor allem habe ich sehr lange gebraucht die AFLayer korrekt mit zu konvertieren,den nicht jeder Layer kann umbenannt werden.Habe oftmals wurden aus mehreren layern e ...
|
| In das Form Lisp wechseln |
|
Lisp : LISP und OLE-Objekt
JotEs am 23.07.2021 um 12:30 Uhr (1)
Hallo zusammen,ich bin ein Anfänger mit LISP, aber trotzdem wollte ich ein Programm Schreiben, dass zwei Rahmen um in der Zeichnung eingebetetes OLE-Objekt (Bild) zeichnet: einen genau an Bildgrenzen und einen mit Abstand von 2 mm. (defun c:retan (/ p1 p2 p3 p4 p5 p6 p7 p8)(setq p1 (getpoint "
Unten Linkss: ")) (setq x1 (car p1)) (setq x1 (- x1 2)) (setq y1 (cadr p1)) (setq y1 (- y1 2))(setq p3 (getpoint "
Oben Rechts: ")) (setq x3 (car p3)) (setq x3 (+ x3 2)) (setq y3 (cadr p3)) (setq y3 (+ y3 2)) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Express Tools wollen nicht mehr
autocart am 13.06.2006 um 08:57 Uhr (0)
Liebe Lisp-Gemeinde!Immer wieder taucht bei mir jetzt folgender komischer Fehler auf, wenn ich manche Befehle aus den Express Tools verwenden will. Bis jetzt waren es die Befehle "Layer isolieren" und "Muli-Kopieren". Der Fehler: Nested error trapping used incorrectly.Resetting nesting index to 1.*Abbruch* Ich GLAUBE, dass es VIELLEICHT ab dem Zeitpunkt an auftrat als ich den Blockmanager cadlibdu installierte. Habe ihn aber bereits deinstalliert und gerade trat der Fehler wieder auf. Hat jema ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Attributen importieren
Nano am 27.09.2007 um 20:37 Uhr (0)
Hallo Thomas Ich habe ein Block mit Attributen.Blockname: Raum-Luft-Angaben1. Attributtbezeichnung: RAUM-NUMMER2. Attributtbezeichnung: ZUL-MONOBLOCK3. Attributtbezeichnung: ZUL-MENGE4. Attributtbezeichnung: ABL-MONOBLOCK5. Attributtbezeichnung: ABL-MENGEJetzt habe ein xls-Dateierste Zeile: RAUM-NUMMER Datenzeite Zeile: ZUL-MONOBLOCK Daten und so weiter......Es sollte eigendlich mit der Raum-Nummer wissen welcher Block es ist.In der Zeichnung sind die Blöcke mit Raum-Nummer geschrieben,aber ohne Monoblock- ...
|
| In das Form Lisp wechseln |
|
Lisp : T auf ActiveX?
Dea am 12.09.2008 um 11:52 Uhr (0)
Hallo!Ich kämpfe schon die ganze Zeit erfolglos mit dem Versuch, eine mit ActiveX angelegte Datei aktiv zu setzen. Mit vlax-get-property kann ich auslesen, das die Datei nicht aktiv ist. Nur der Versuch, die Eigenschaft auf True umzusetzen, scheitere ich.Ich vermute den Fehler in der Schreibweise der Eigenschaft True, komme aber mit allen Versuchen auf keinen grünen Zweig. Ich habe auch schon versucht, einen Variant anzulegen und mir im Einzelschritt seinen Inhalt anzuschauen. (setq true (vlax-make-variant ...
|
| In das Form Lisp wechseln |
 |
Lisp : Mtext auslesen und als Dateinamen verwenden
PAS81 am 04.01.2012 um 11:19 Uhr (5)
Hallo Leute,ich habe mal ne Frage!Wir nutzen bei uns in der Firma eine Lisp zum DXF-Speichern. Sieht wie folgt aus!Code:;---- Funktion um Zeichnung in DXF Version 2007 in Auftragsbezogenen-Ordner zu speichern ----(defun c:DXF_0001_Rohdecke () (setq objekte (ssget)) (setq Name (getfiled "DXF speichern unter" "F:Aufträge 001 Test 550110CNCHOMAG 2_MDD415_Owners_Cabin 1_Rohdecken" "dxf" 1) ) (command "dxfout" Name "V" "2007" "O" objekte "" ""));----Ende des Lisp Programmes----In jedem Werkstück was wir anwähl ...
|
| In das Form Lisp wechseln |
