|
Lisp : Erweiterung Lisp zum Ermitteln von einem Schnittpunkt
StephanJP am 18.12.2008 um 08:28 Uhr (0)
Vielleicht sowas...Code:;by Stephan Vette - 2006-09-13(defun c:vme () ;verschneidet alle Linien mit einer Ebene (arxload "geomcal" T) (setq as (ssget ((0 . "LINE"))) ebene (getreal "zu erreichende Ebene eingeben: ") ep1 (list 0.0 0.0 ebene) ep2 (list 0.0 10.0 ebene) ep3 (list 10.0 0.0 ebene) n 0 en (ssname as n) ) (while en (setq p1 (cdr (assoc 10 (entget en))) p2 (cdr (assoc 11 (entget en))) ) (kal "vp=ilp(p1,p2,ep1,ep2,ep3)") (cond (( (nth 2 p1)(nth 2 p2))(entmod (list (car (entget en))(cons 10 vp)) ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp warten lassen
Theodor Schoenwald am 09.01.2009 um 18:16 Uhr (0)
Hallo Alfred,auch das habe ich gerade getestet.Hochzählen (von Z3 und Z4) oder (Command "PAUSE" Wert).Als Wert habe ich von "PAUSE" 1000 bis 30000, verschiedene Stufen getestet.Es gab keine Unterschiede bei verschiedenen Pause-Werten und auch nicht zwischen Hochzählen und Pause.Ich habe mit einer aufwendigen Kontur getestet, es waren immer zwischen 23 und 24 Sekunden.Der Zeitverbrauch kommt vom rechnen der "PGCPock.EXE".Auf jeden Fall bin ich froh, dass ich - dank Deinem ersten Vorschlag - nun überhaupt ei ...
|
| In das Form Lisp wechseln |
|
Lisp : Verzeichnis erstellen ergibt immer NIL
Dorfy am 02.04.2010 um 10:50 Uhr (0)
Morgen,Code:(defun mkdir (dirname / pos mddir) (if (and (setq pos (vl-string-position 92 dirname)) (setq mddir (substr dirname 1 pos)) ) (while pos (setq pos (vl-string-position 92 dirname (+ pos 1)) mddir (substr dirname 1 pos) ) (if (not (vl-directory-files mddir)) (vl-mkdir mddir) ) ) ))(mkdir "C: est est1 est2")(mkdir deinstring )ein paar Abfragen und Rückmeldungen fehlen noch...------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern ...
|
| In das Form Lisp wechseln |
|
Lisp : Dcl / Variable $key
Bernd10 am 07.10.2013 um 07:24 Uhr (1)
Hallo Hans-Peter,danke für Deine Antwort.Zitat:Original erstellt von HPW:Bei gleicher AutoCAD-Version?Der Fehler tritt auf, wenn ich unter AutoCAD Mechnical 2012 meine VLX-Anwendung lade und den Befehl für das Dialogfenster ausführe. Ich habe inzwischen noch herausgefunden, dass der Fehler nicht auftritt, wenn ich meine Lisp-Sourcen lade und dann den Befehl für das Dialogfenster ausführe. Ich konnte bisher den Unterschied nicht finden.Kennst Du den Grund für das oben genannte Verhalten?Danke im Voraus und ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Runden von einer reellen Zahl in Gazzahl
Manuel Sauter am 28.06.2004 um 15:16 Uhr (0)
Hallo Holger, ich möchte garnicht Runden, sonder nur die Nachkommastellen weg haben. In diesem Falle verstehe ich den Befehl fix schon richtig. Wie oben schon geschrieben bekomme ich aber aus dem Wert 750.0, der berechnet wurde, über den Befehl fix manchmal den Wert 749! Über den Visual Lisp Editor habe ich mir immer die Werte von nBelBrW1 und nBelBrW2 anzeigen lassen. Die sind jedesmal 750.0. Die Werte eBelBrW1 oder eBelBrW2 sind aber manchmal 749. Das darf doch nicht sein, oder?
|
| In das Form AutoLisp wechseln |
|
Lisp : Wenn Dann
CAD-Huebner am 14.03.2008 um 23:52 Uhr (0)
Das Lisp Programm zum Anbringen von Koordinatenbeschriftung aus Civil 3D 2008 heißt"Koordinatenbeschriftung für Ansichtsfenster.lsp"Ein automatisches Sperren des beschrifteten Ansichtsfensters ist eine recht gute Idee.Ich hab auch schon mal über einen Reaktor nachgedacht, der eine Warnung bei Änderungen am Ansichtsfenster ausgibt - aber der Aufwand ist schon recht hoch.Ich mach die Randbeschriftung einfach immer erst zum Schluss. Ansonsten schnell weglöschen und neumachen. Zitat:Frage: An welcher stelle de ...
|
| In das Form Lisp wechseln |
|
Lisp : CADWIESEL'S NONAMEBLOCK.LSP
Brischke am 04.09.2003 um 09:42 Uhr (1)
Hallo Darius,das ist das Blocktausch-Programm. Beschreibung findest du dort: http://www.cadlon.de/Freedwnload/B_Tausch.pdf Mittlerweile kann das Tool auch Blöcke mit Attributen tauschen. Dabei können auch die Attributsbezeichnungen voneinander abweichen, da diese in einem Dialogfenster komfortabel neu zugeordnet werden. Ebenfalls berücksichtigt ist der Umstand, dass Attribute eingefügter Blöcke manuell verschoben/geändert wurden. Diese Änderungen werden wahlweise auf die Attribute des neuen Blockes übertra ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Lisp für Höhenschichtlinien?
moes am 17.06.2004 um 12:09 Uhr (0)
Ich habe vektorisierte Karten mit Höhenschichtlinien, die ich in 2D als Spline nachzeichne. Zum Schluss füge ich in die offen gelassenen Lücken die Höhenangaben ein. Etwas umständlich und nicht sehr präzise, was die Ausrichtung der Schrift anbelangt. Ich würde mir das so vorstellen, dass man die Höhenangabe eingibt und diese dann entweder in regelmäßigen Abständen (oder etwa beim Doppelklicken?? falls sowas geht)eingefügt wird, wobei die Linie gleichzeitig unterbrochen wird. Die Schrift müsste natürlich mi ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Alles auswählen ausser... mit Lisp
benwisch am 13.01.2006 um 09:37 Uhr (0)
Hallo Tom,ich habe das mit einem Selectionset von ~ 500000 Objekten und der Profiler Funktion von Achim Dabrunz geprüft. Ich habe verschiedene Szenarien ausprobiert und bin überrascht, daß der Zeitaufwand für die zus. Listenerstellung tatsächlich vernachlässigbar ist.Danke für diesen Tipp. Zitat:(defun ss_e2s (eset / sset x) (setq sset (ssadd)) (mapcar (lambda (x) (setq sset (ssadd x sset)) ) eset ) sset)Bei deiner Funktion ss_e2s ist ein setq innerhalb lambda nicht notwendig, da ssadd eine desktruktive F ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Block tauschen
FlorianP am 04.04.2005 um 13:37 Uhr (0)
Hallo, kann mir jemand einen Tipp geben wie ich einen vorhandenen Block, Name xyz , durch einen gleichnamigen ersetzten kann? Das Einfügen über das Menü Einfügen - ... ist mir bekann, nur versuche ich das in eine Lisp-Datei mitreinzupacken. Der Versuch über den Befehl (command _insert C:...Blockname.dwg ) ist fehlgeschlagen. Dabei wird ein Block eingeladen, jedoch weiterhin die vorhandene Blockdefinition verwendet. Ich hab es auch schon versucht, so wie es im Forum steht, mit (command _insert Blo ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Testen ,ob der Befehl/Funktion verfügbar ist.
Brischke am 08.09.2003 um 12:28 Uhr (0)
Hallo, um das einiegermaßen hantieren zu können, kannst du ja die Versionen in eine ASCII-Datei schreiben. Ich würde dass dann in folgendem Format machen: ("VERSION_X" . T);wenn lauffähig ("VERSION_Y" . nil);wenn nicht Dann ist für dich nur die Version aus der aktuellen Acad-Version wichtig, die du dann mit Hilfe der ASCII-Datei abschecken kannst ob es denn läuft. Vorteil, bei neuen Versionen brauchst du nur die ASCII-Datei tauschen. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over nigh ...
|
| In das Form AutoLisp wechseln |
|
Lisp : verankerte Bauteilstempel in Auswahlsatz
cadking am 06.04.2020 um 08:53 Uhr (1)
Hallo Lispler,ich habe Zeichnungen mit vielen Bauteilstempeln. Einige sind mit ACA-Objekten verankert (z.B. Räume oder Türen) einige sind nicht verankert.Ich würde nun gerne per Lisp die nicht verankerten Bauteilstempel in einen Auswahlsatz holen.Ich habe versucht mit (vlax-dump-object ...) ob es einen Unterschied zwischen verankerten und nicht verankerten Bauteilstempeln gibt,habe aber keinen Unterschied gefunden. Hat jemand eine Idee?------------------Danke Stefan
|
| In das Form Lisp wechseln |
|
Lisp : NIL in der Befehlszeile
Ralf-CAD-Support am 03.01.2013 um 11:32 Uhr (0)
Hallo Zusammen,unter dem Visual Lisp Editor erstellte und auch ausgeführte Programme zeigen in der Befehlszeile die mit princ ausgegebenen Texte wie gewünscht dar.Kompiliere ich die Inhalte in eine VLX Datei, erscheint in der Ausführung immer ein NIL am Ende.z.b. Routine xxx Version v1.2 - 28.12.2012 finished!nilNichts dramatisches, sieht bloß blöde aus !Zweite Frage, wenn okDie Flächenabfrage bei Auswahl einer Schraffur mit (if (vlax-property-available-p VLA-OBJEKT Area)geht erst ab 2006 ?!?!, finde im Ne ...
|
| In das Form Lisp wechseln |
