|
AutoLisp : Lisp Informationen
CAD-Huebner am 20.08.2005 um 19:21 Uhr (0)
Na, ich schreibs immer ans Ende der Lisp-Datei eine Verwendungsmeldung.Aber der Fehler liegt hier an der unsachgemäßen Verwendung der Anführungszeichen!Endweder soCode:(princ "
Zum starten bitte Test eingeben !")(princ "
alle Layer werden auf die Farbe blau gesetzt.")(prin1)oder so Code:(princ "
Zum starten bitte Test eingeben !")(princ "
alle Layer werden auf die Farbe "blau" gesetzt.")(prin1)------------------Mit freundlichem GrußUdo Hübner
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Q: Griffe von Lisp aus verwenden?
CAD-Huebner am 07.09.2005 um 12:52 Uhr (0)
Ich denke, dass könnte man gut über einen Reaktor lösen (allerdings wird dann 1-3 überflüssig). ------------------Mit freundlichem GrußUdo Hübner
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fehlermeldung bei command solans
CAD-Huebner am 06.11.2005 um 11:30 Uhr (0)
Hallo Werner, kann diese Fehlermeldung nachvollziehen, auch wenn ich noch nicht ganz begriffen habe, was dieses Makro tun soll. Zuerst hatt eich keine Volumenkörpwer, da kam schon die erste fehlermeldung, dann schnappete mein Ofang immer andere ecken beim Aufziehen des Fensters (ich hatte im Layout schion einiges gezeichnet).Also diesem Makro müsstest du noch ne Kurzanleitung mit Verwendungszweck und Eingangsvoraussetzungen beilegen.Wenn das Lisp einfach aussehen soll, würde ich persönlich nicht 3 AutoCAD ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fehlermeldung bei command solans
CAD-Huebner am 06.11.2005 um 11:30 Uhr (0)
Hallo Werner, kann diese Fehlermeldung nachvollziehen, auch wenn ich noch nicht ganz begriffen habe, was dieses Makro tun soll. Zuerst hatte ich keine Volumenkörper, da kam schon die erste Fehlermeldung, dann schnappete mein Ofang immer andere Ecken beim Aufziehen des Fensters (ich hatte im Layout schon einiges gezeichnet).Also diesem Makro müsstest du noch ne Kurzanleitung mit Verwendungszweck und Eingangsvoraussetzungen beilegen.Wenn das Lisp einfach aussehen soll, würde ich persönlich nicht 3 AutoCAD Ko ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Textsize mit Lisp steuern
CAD-Huebner am 17.11.2005 um 14:16 Uhr (0)
Ohne texthöhe.dcl kann man das Programm natürlich nicht test, aber der fehler liegt wohl hier: Zitat:... (if (= THohew "aktuelle Hoehe") ((setq Thoehe (atof (getvar textsize))) (command "_textsize" Thohe)Besser so: Zitat:... (if (= THohew "aktuelle Hoehe") (PROGN (setq Thohe (getvar "TEXTSIZE")) ; überflüssig Thohe ist doch gerade auf TEXTSIZE worden ; (command "_textsize" Thohe) ; ansonsten besser (SETVAR "TEXTSIZE" Thohe) ; statt command ... ); ende Progn );ende if------------------Mit ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : If-Funktion zum Auswahl prüfen
CAD-Huebner am 14.01.2006 um 18:56 Uhr (0)
@HänkDas Ausrufezeichen wird in Lisp nur verwendet, um an der Consolde direkt den Wert einer Variablen auszugeben, aber niemals innerhalb eines Programmes.also nicht(if (null !as))...sondern(if (null as) (Tue_dies) (sonst_dies))------------------Mit freundlichem GrußUdo Hübner
|
| In das Form AutoLisp wechseln |
|
Lisp : Map Civil 3D DGM Objekt via ActiveX erstellen
CAD-Huebner am 26.01.2006 um 15:01 Uhr (0)
Ich versuch ein Civil/Map 3D DGM zu erstellen.Leider gibts dafür nur spärliche VBA Tipps und gar keine Lisp Tipps.Mein Programm sieht so aus:Code:(DEFUN C:Test() ; Neue DGM Fläche in MAP/ Civil 3D anlegen ; aber wie definiere ich eien Variable vom Typ TinCreationData ? (setq acadObj (vlax-get-acad-object) ; connect to Civil oder Map3D aeccApp (vla-getinterfaceobject acadObj "AeccXUiLand.AeccApplication") aeccDoc (vlax-get-property aeccApp "activedocument") aeccSurfs (vlax-get-property aeccD ...
|
| In das Form Lisp wechseln |
|
Lisp : Map Civil 3D DGM Objekt via ActiveX erstellen
CAD-Huebner am 29.01.2006 um 22:07 Uhr (0)
Tja, noch keiner eine Idee, wie ich ein neues Objekt eines vorgegebenen Typs in Lisp erzeuge?Ich habe mal die obige Lisp-Routine in einen funktionieren AutoCAD-VBA Code umgesetzt.Gerne, würde ich das in Lisp ausführen, aber mir fehlt das Lisp-äquivalent für die markierte Zeile im folgenden Code:Code:Option ExplicitPublic Sub TestCreateTinSurface() Verweise als richtig gesetzt angenommen und Civil Applikation verfügbar Dim oApp As AcadApplication Set oApp = ThisDrawing.Application Dim CivilApp As AeccA ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Probleme mit align
CAD-Huebner am 28.02.2006 um 19:24 Uhr (0)
Hallo MCI und herzlich Willkommen im WBF. Offentsichtlich hat der Lisp-Routine Align nichts mit dem nativen AutoCAD Befehl AUSRICHTEN/_ALIGN zu tun. Kannst du eine Quellenangabe und die Funktion der Routine align hier mal angeben? Die Funktion C:ALIGN wird in einer *.FAS, *.VLX oder *.LSP Datei definiert und vermutlich erst beim ersten Aufruf geladen (AUTOLOAD). Suche mal alle LISP-Quelltexte nach DEFUN C:ALIGN durch, evt. wirst du fündig.Ohne mehr Infos kann man keine weiteren Tipps geben (außer Allgemein ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Drehwinkel von BKS
CAD-Huebner am 04.03.2006 um 12:13 Uhr (0)
Vorgestern abend war es schon so spät - da hats nur für ein Ja gereicht. Hier mal ein LISP-Programm für diesen speziellen Fall.Für Allgemeinfunktionalität muss zuvor noch die Drehung um die Z-Achse bestimmt werden und die Verschiebung des BKS Ursprungs berücksichtigt werden.Code:; Udo Hübner alias CAD-Huebner für CAD.de Beitrag:; http://ww3.cad.de/foren/ubb/Forum145/HTML/001558.shtml ; 3.3.2006;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(DEFUN C:UCSROTATION ( / ); Xdir Ydir) ; Unterfunktionen (D ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Drehwinkel von BKS
CAD-Huebner am 05.03.2006 um 16:46 Uhr (0)
Der Lisp Ausdruck Zitat:(ASIN (* 0.5 (SQRT (APPLY + (MAPCAR (LAMBDA (val) (* val val))(MAPCAR - Xdir (1.0 0.0 0.0))))))Berechnet die Winkelverdrehung nach folgender Formel: Als Grundlage habe ich folgendes Bild genommen: Die Verwendung von LAMDA mit APPLY (hier zum Quadieren der X, Y und Z Werte mit anschließender Addition) und von MAPCAR (zum Abziehen der Koordinatenwerte) kann man erschöpfend im Handbuch oder auf Axel Seiten (siehe oben) nachlesen.------------------Mit freundlichem GrußUdo Hübner
|
| In das Form AutoLisp wechseln |
|
Lisp : Linie in Punkt umwandeln
CAD-Huebner am 26.03.2006 um 18:10 Uhr (1)
Über Probleme ärgert man sich doch nicht - Probleme löst man.Der Beitrag provoziert natürlich Fragen wie die von Holger - was ist eigentlich der Sinn des Beitrags?a) Wolltest du dir nur mal Luft machen?b) oder suchst du Hilfe bei einer Programmieraufgabe wo du nicht weiterkommst - dann bitte zeigen (Code) wo du gerade hängst.c) war das ne Bitte um eine Lösung, was ja im "Selbsthilfeforum" schnell auch berechtigte Kritik einbringt.Also mit SSGET alle Linien filternDann in einer Schleife alle Linien, wo Anfa ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Auswahl aller Objekte auf bestimmten Layern
CAD-Huebner am 29.03.2006 um 18:00 Uhr (0)
Die Lösung von Holger ist sicherlich die einfachere und verständlichere Lisp-Lösung. Trotzdem möchte ich hier auf die Vorzüge von Jörns Code hinweisen, um seine Leisutng zu würdigen.Deine (aus Holgers Tipps entstanden Version) muss (wegen entsel) jedes Objekt einzeln anwählen, ssget erreicht durch Auswahlfenster mit 2 Mausklicks unendlich viele Objekte/Layer.Außerdem wird in Jörns Code jeder Layer nur einmal im Suchstring angegeben, bei deinem Code wird durch Anpicken von 10 Objekten auf dem gleichen Layer ...
|
| In das Form AutoLisp wechseln |
