AutoLISP

AutoLISP ist ein Dialekt der Programmiersprache Common-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.

Hello World

 (Defun c:HelloWorld()

      (princ "/nHello World")

  )

 

Beispiel zum Zeichnen eines Rechtecks

 (defun c:recht2()

  (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)

  )

Weblinks

• LISP für ACAD Codeschnippsel und Downloads
• Codebeispiel Bogenbemaßung