AutoLisp

AutoLisp

AutoLISP [ˈɑːtoʊˌlɪsp] ist ein Dialekt der Programmiersprache LISP als Bestandteil des verbreiteten CAD-Programmes AutoCAD.

Mit Hilfe von AutoLisp können Funktionen in einem AutoCAD-System hinzugefügt, gelöscht und geändert werden. Um dies zu gewährleisten, gibt es spezielle AutoLisp-Routinen die direkt auf die AutoCAD-Datenbasis zugreifen können. Das sind im wesentlichen Funktionen zur Behandlung von Koordinateneingaben, deren zeichnerische Umsetzung in CAD-Elemente, wie Linie, Kreis usw. Mit Hilfe von AutoLISP lassen sich komplexe Umgebungen zur Handhabung von AutoCAD, beispielsweise hinsichtlich der Anwendung von Normteilen, erstellen.

Inhaltsverzeichnis

Hello World

(Defun c:HelloWorld()
    (princ "\nHello World")
)

Beispiel: zum Zeichnen eines Rechtecks

(defun c:recht2 ( / p1 laenge breite w p2 p3 p4)
  (setq p1 (getpoint "\nEinfügepunkt: "))
  (setq laenge (getdist p1 "\nLänge: "))
  (setq breite (getdist p1 "\nBreite: "))
  (setq w (getangle p1 "\nEinfügewinkel: "))
  (setq p2 (polar p1 w laenge))
  (setq p3 (polar p2 (+(/ pi 2)w) breite))
  (setq p4 (polar p3 (+ pi w) laenge))
  (command "linie" p1 p2 p3 p4 "s") 
  (princ)
)

Beispiel: Ermittlung eines Abstandes in Autolisp

(defun c:Distanz()
 (setq old_osmode (getvar "osmode"))
 (setvar "osmode" 1)
 (setq P01 (getpoint    "\nErster  Punkt:"))
 (setq Distanz (getdist P01 "\nZweiter Punkt:" ))
 (princ "\nDistanzwert: ")
 (princ Distanz)
 (princ "\n , zugreifen in AutoCAD mit !DISTANZ ")
 (setvar "osmode" old_osmode)
)

Beispiel: Drehen von Objekten in Autolisp

(defun c:verdreh (/ Drehpunkt Radius Auswahl Erster_Punkt)
 (setq Drehpunkt  (getpoint "\nDrehen mit dem Kreis <Zentrum des Bezugskreis>: "))
(if Drehpunkt 
 (progn
  (setq Radius (abs (getdist Drehpunkt "\nRadius für den <Bezugskreis>:")))
  (if Radius
   (command "Kreis" Drehpunkt Radius )
  );end if Radius
 );end progn Drehpunkt
);end if Drehpunkt
(if Radius  
 (setq Auswahl (ssget  )  ) ;Wählen der Elemente zum Drehen 
);end if Radius
(if Auswahl 
 (progn
  (setq Erster_Punkt  (getpoint Drehpunkt "\nAusgangspunkt der Drehung [Schnittpunkt] mit dem <Bezugskreis>:"))
  (if Erster_Punkt
   (progn
    (command "drehen"  (ssget "V") ""  Drehpunkt "B" Drehpunkt Erster_Punkt pause nil)
    (command "Löschen" "L" "" )
    );end progn Erster_Punkt
   );end if Erster_Punkt
  );end progn Auswahl
 ); end if Auswahl
); Ende der Funktion verdreh
(princ "\nVERDREH.LSP wurde geladen.." )
(princ "\nStarten mit verdreh \n")
(princ)

Beispiel: setzt Objekte auf den aktuellen Layer in AutoLisp

; Setzt gewählte Objekte auf den aktuellen Layer
(defun c:selayer(/ ak_layer)
(setq ak_layer (getvar "clayer"))
(princ "\nObjekte setzen auf: <")
(princ ak_layer)
(princ "> alle Eigenschaften des Layers werden übernommen.")
(command "_change" (ssget) "" "_p"  "_LA"  ak_layer  "_LT" "_bylayer"  "_C"  "_bylayer" "_S"  "1" "")
)

Weblinks


Wikimedia Foundation.

Игры ⚽ Нужна курсовая?

Schlagen Sie auch in anderen Wörterbüchern nach:

  • AutoLISP — is a dialect of Lisp programming language built specifically for use with the full version of AutoCAD and its derivatives, which include Autodesk Map 3D and Autodesk Architectural Desktop . Neither the application programming interface nor the… …   Wikipedia

  • AutoLISP — [ˈɑːtoʊˌlɪsp] ist ein Dialekt der Programmiersprache LISP als Bestandteil des verbreiteten CAD Programmes AutoCAD. Mit Hilfe von AutoLisp können Funktionen in einem AutoCAD System hinzugefügt, gelöscht und geändert werden. Um dies zu… …   Deutsch Wikipedia

  • AutoLISP — AutoLISP,   eine funktionale Programmiersprache zur Entwicklung von Programmen für AutoCAD. Dabei können bei AutoCAD vorhandene Variablen verwendet werden. AutoLISP basiert auf den Konzepten der Sprache Lisp. Die Auslegung als Interpreter bzw.… …   Universal-Lexikon

  • AutoLISP — …   Википедия

  • AutoCAD — 2006, запущенный под Windows XP. Тип Программы САПР Разработчик Autodesk …   Википедия

  • Dialog Control Language — (DCL) is a high level description language and interpreter within AutoCAD for creating simple graphical dialogs. AutoLISP extensions use it to interact with the user in the AutoCAD environment. Contents 1 Features and usage 2 Example 3… …   Wikipedia

  • Auto CAD — AutoCAD Mechanical 2D Zeichnung AutoCAD Mechanical Desktop 3D Zusammenbau …   Deutsch Wikipedia

  • Autocad — Mechanical 2D Zeichnung AutoCAD Mechanical Desktop 3D Zusammenbau …   Deutsch Wikipedia

  • AutoCAD — Mechanical 2D Zeichnung AutoCAD [ɑːtoʊˈkæd] ist Teil der CAD Produktpalette von Autodesk. Die aktuelle Version AutoCAD 2012 wurde im März 2011 vorgestellt. Die Autodesk Produktpalette ist mit mehr als 3 Mio. verkauften Lizenzen weltweit die… …   Deutsch Wikipedia

  • ZwCAD — ZWCAD  2 х и 3 х мерная система автоматизированного проектирования и черчения компании ZWSOFT (ZWCAD Software Co., Ltd; до 2007 года Guangzhou Chinaweal Longteng Technology Co., Ltd). ZWCAD разработан на базе IntelliCAD с применением… …   Википедия

Share the article and excerpts

Direct link
Do a right-click on the link above
and select “Copy Link”