|
Lisp : LISP MANAGEN,DOKUMENTIEREN USW
Wolfgang S am 20.11.2007 um 15:23 Uhr (0)
Hossa!Um mal die Diskussion über LSP-Management ins Rollen zu bringen hab ich mir einen LSP-Manager programmiert.Das Programm läuft über einen lokalen PHP-Server (EasyPHP mit PHP und APACHE)Eingabe: ein Formular mit auszulesenden Start/Endbereichen, sowie das auszulesende Verzeichnis und einer Option für Unterverzeichnisse auslesenDie freigegebenen Bereiche beginnen bei mir mit;;;publicinfo;;;HIER FREIGEGEBENER TEXT;;;/publicinfoAuch wird der Dateiname und die definierten Funktionen ausgelesen (per defun u ...
|
| In das Form Lisp wechseln |
|
Lisp : Import Layer aus Fremd-dwg über Lisp
CADblue am 25.06.2012 um 17:17 Uhr (0)
jo danke so weit euch beidenhab bisschen geforstet und das hier gefunden,Code:(defun c:hollayer (/ oAcad oCurDoc strFile oOpenDoc oOpenDocLayers lstObj oLayer array) (setq oAcad (vlax-get-acad-object)) (setq oCurDoc (vla-get-ActiveDocument oAcad)) (setq strFile (getfiled "Zeichnung wählen:" (getvar "DWGPREFIX") "dwg" 0)) (setq oOpenDoc (vla-Open (vla-get-documents oAcad) strFile)) (setq oOpenDocLayers (vla-get-layers oOpenDoc)) (setq lstObj nil) (vlax-for oLayer oOpenDocLayers (setq lstObj (cons oLayer ls ...
|
| In das Form Lisp wechseln |
|
AutoLisp : 3D Volumenkörperhöhe ermitteln und
Brischke am 21.11.2002 um 08:49 Uhr (0)
Hallo loup, das ganze ein wenig umstellen und dann kommt folgendes raus: Code: (defun C:su1 (/ po1 obj objTyp extrhoehe) (graphscr) (prompt "
Select closed polyline you want to subtract: ") (setq po1 (ssget)) ;;;(prompt "
Select solide : ") (while (not (= "3DSOLID" objTyp)) (setq obj (entsel "
Körper wählen")) (if obj (setq objTyp (cdr (assoc 0 (entget (setq obj(car obj)))))) ) ) (setq extrhoehe(SUB obj)) ;;;(setq so1 (ssget)) (command "_extrude" po1 "" extrhoehe ...
|
| In das Form AutoLisp wechseln |
 |
Lisp : Wo gibt's BKS-Koordinaten?
Frank88 am 31.03.2022 um 10:32 Uhr (15)
Hallo zusammen,Kann es sein, dass Code:(entget (entlast)) nur WKS-Koordinaten liefert? Wenn ja, wie bekomme ich die Koordinaten des letzten gesetzten Punktes im BKS?Das hier ist ein Teil des Ausdrucks im Textfenster (Inhalt von ENTGET per PRINC):Zitat:Befehl: _ucsAktueller BKS-Name: *WELT*Ursprung des neuen BKS angeben oder [FLäche/bENannt/Objekt/VOrher/ANsicht/Welt/X/Y/Z/ZAchse] Welt: enOption eingeben [HOlen/SPeichern/Löschen/?]: hoName des wiederherzustellenden BKS eingeben oder [?]: Koos1Befehl:Koos1 g ...
|
| In das Form Lisp wechseln |
|
Lisp : AccoreConsole nimmt kein Lisp Befehle
cadffm am 03.10.2017 um 12:07 Uhr (1)
Ohne es zu am PC anzusehen:So wird es in den vieln Fällen wie gewünscht funktionieren, gut.Aber noch mal zu deinen Anmerkungen oben zu command und setq:Deine Erklärung zu command ist zwar nett, aber falsch.Man kann damit Eingaben in die Befehlszeile senden und darüber dann also auch Autocad-Befehle fernsteuern,aber command selbst ist eine Lispfunktion, ebenso wie lsh setq oder defun,da ist nichts besonderes an command.SetqImmer wieder das gleiche Lied und oben ging ich auch hier schon mal darauf ein.Poste ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Alles auswählen ausser... mit Lisp
archtools am 11.01.2006 um 22:50 Uhr (0)
Zitat:Original erstellt von marc.scherer: Hallo Tom,mal ne grundsätzliche Frage:Ist das immer der richtige Weg?Geht bei wirklich großen Objektmengen nicht eine Menge Zeit für die Umwandlung von Selset nach Liste und später eventuell wieder zurück drauf? Ist bei großen Selsets ein ss-foreach (siehe Mapcars Seiten...) nicht deutlich effizienter?Ich weiß es nicht, bin nicht so der Laufzeit-Analytiker, aber vielleicht kannst Du ja mal was aus Deiner Praxis heraus was dazu sagen?Du kannst das ja einfach mal au ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : BAND od. PLINE-Teil versetzen
m-troeger am 19.06.2006 um 22:37 Uhr (0)
Hallo Holger,nu genau - das funztVielen Dank. so wird ausCode:(setq DISTANCELIST (mapcar (lambda (ARG) (vlax-curve-getdistatpoint AX-OBJ ARG)) PKTLIST))Code:(setq DISTANCELIST (mapcar (lambda (ARG) (vlax-curve-getdistatparam AX-OBJ ( vlax-curve-getparamatpoint AX-OBJ ARG))) PKTLIST)) also:Code:(vlax-curve-getdistatparam AX-Objectname ( vlax-curve-getparamatpoint AX-Objectname Punkt));; "Punkt" im Format/als Liste (123.321 456.987 0.0)???@Alle Wenn ich nun mal überleg wie viel (Frei-)Zeit das hier gekostet ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : EOF - Fehler bei VLX-Kompilierung
Peter2 am 01.11.2004 um 18:17 Uhr (0)
Ich habe in meinem Netzverzeichnis diverse lsp, dcl und eine fas, die ich immer wieder zu einer VLX kompiliere. So weit, so gut. Seit einigen Tagen erfolgt in der VISUAL-Lisp-Konsole immer die Abschlussmeldung ; Starte Komprimierung von VLX-Anwendung... ; Fehler: EOF gefunden Die erstellte VLX ist auch klar kleiner (70 kB) als sie sein sollte (121 kB), diverse Programmteile fehlen. Im Fenster Ausgabe für die Erstellung kann ich keine Fehlermeldung entdecken, es werden auch alle in der PRV-Datei definiert ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Kochrezept für Verknüpfung Linie - Infoblock?
Peter2 am 13.07.2016 um 15:47 Uhr (5)
EDIT: Es geht um das ..- automatische Zeichnen und Beschriften von Linien und - Einfügen von Attributblöcken und Beschriften, - basierend auf Textdateien- ev. gewisse händische Veränderungen in der Zeichnung- das Zurückschreiben von Informationen aus der Zeichnung in eine Textdatei.Die Frage hier betrifft nur den folgenden Einzelschritt:---- Ende Edit ----Ich soll eine Linie mit einem "Infoteil" verküpfen. "Infoteil" deshalb, weil es Block, Text, MText .. sein kann; es muss aber menschenlesbar und -editier ...
|
| In das Form Lisp wechseln |
|
Lisp : Attribute aus Excel einlesen
cadffm am 16.06.2014 um 10:23 Uhr (1)
Es ist ehren und liebenswert das du diese Dinge angehst, aber so ein wenig Basics wären schon nicht schlecht.(nach ein paar Wochen solltest du lieber Zeichenketten und zahlen manipulieren können anstatt dich mit der Blockstruktur zu quälen )Du mußt einfach erst mal mit Messer und Gabel umgehen können, erst danach geht die Nahrungsaufnahme richtig los Wie man addiert, vergleicht und Zeichenketten manipuliert == Klick! Wie das Spiel weiter geht, das steht dort auch beschrieben.Wie die Datenstruktur in Lisp/ ...
|
| In das Form Lisp wechseln |
|
Lisp : ErrorHandler
rkauskh am 14.05.2009 um 10:12 Uhr (0)
HalloIch habe jetzt mit vl-catch-all-apply das Überschreiben einer bestehenden Datei geregelt und den Programmabbruch verhindert. Für das gesamte LISP habe ich die *error*-Funktion von oben genommen. Funktioniert soweit.Da ich eigentlich den gesamten Code "zusammengeklaut" habe, teilweise von mapcar, teilweise hier im Forum, würde ich das Resultat gern allen zur Verfügung stellen. Gibt es dafür eine zentrale Möglichkeit?Der Vollständigkeit halber, in dem Code von oben mußte die fettgedruckte Zeile noch geä ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Option Bezug bei (command _.rotate)
cad-intensiv am 17.08.2005 um 10:18 Uhr (0)
Zitat:Original erstellt von joern bosse:Hallo,gibt es eine Möglichkeit, die Option "Bezug" bei der Verwendung des Command-Befehles "Drehen" zu unterdrücken?(command "_.rotate" (entlast)"" basispkt pause)In diesem Beispiel soll nur die Winkelangabe über die Tastatureingabe oder über einen Richtungspunkt mit der Maus zugelassen werden.Bei dieser Zeile gibt es einen Abbruch, sobald die Option "b" oder "_r" eingegeben wird.Falls Du doch alle Eingabemöglichkeiten zulassen willst, dann geht das hier:Code:(comma ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ansichtsfenster koordianten
mapcar am 18.02.2003 um 09:48 Uhr (0)
Georg, ein paar Korrekturen: vla-get-LowerLeftCorner und --UpperRightCorner sind nicht für PViewport, sondern für Model-Vports definiert. Es geht also in beiden Fällen um Zentrum, Höhe, Breite. Und es ist (trans 3 2), kleine Verwechslung;-) Diese Lisp-Routine macht dir einen Durchschlag des aktiven Mansfens im Modellbereich (aber nur, wenn kein BKS usw. -- es wird nichts geprüft!): (defun vrect( / doc vport model c h w p pts) (vl-load-com) (setq vport (vla-get-ActivePViewport (setq doc ...
|
| In das Form AutoLisp wechseln |
