ASK Hochreiter

Udo Hochreiter
66969 Lemberg
++49(0)6331-209171
 info@ask-Hochreiter.de
 www.ask-Hochreiter.de

Power Menu Version: 23.2.10.402

Alle Rechte und Änderungen vorbehalten. Alle Inhalte dieser Website sind urheberrechtlich geschützt. BricsCAD ist ein Warenzeichen der Menhirs NV. BricsCAD, wird von Bricsys NV vertrieben.  Windows ist ein Warenzeichen der Firma Microsoft

Beschreibung  >  Befehle  >  Zusatzprogramme  >  TE-Programm  >  TE-Editor  >  Vorlagen erstellen  >  MNU-Erstellen  >  Befehle  >  TE_LISP  >  LISP
LISP

 

Lisp ist eine Programmiersprache die von BricsCAD verwendet wird.

BricsCAD LISP verwendet die "OpenLisp Core Engine" des französischen  Entwicklers Christian Jullien, dies ist die einzige Lisp Engine, welche aktuell immer noch weiter entwickelt wird. Alle sonstigen Lisp Systeme haben ihre Entwicklung (meist unvollendet !) in der Mitte der 90er Jahre eingestellt.

Sie können die Lisp-Datei im Lisp-Editor von BricsaCAD bearbeiten und testen.

Geben Sie in der Eingabezeile von BricsCAD “VLIDE” ein.

Hier ein Beispiel
       liegt im Verzeichnis “C:\Users\ U S E R\Documents\ASK Hochreiter\22\TE\LSP\BEREINIG.LSP

TE_LISP

Hier der ganze CODE:
;   Tablett-Emulator
;   ASK Hochreiter
;   Konstruktions-Software
;   66969 Lemberg
;   Rosenstraße 11
;   TEL:06331-209171
;   FAX:06331-209172
;   EMAIL:UH@ask-hochreiter.de
;   URL http://www.ask-Hochreiter.de
;   Alle Rechte vorbehalten
;   FILE: Do not change it!
;   Prüft die Zeichnung, versucht Fehler zu entfernen und entfernt nicht genutzte Elemente (Blöcke, Layer, ..) aus der Zeichnung.

(setvar"cmdecho"0)
(defun C:PM_Bereinig(/ ab ep)
 (command"cmdecho"0)
 (command"_UCS""_W")
 (princ"\n\n    - BKS gesetzt -")
 (setvar"clayer""0")
 (princ"\n\n    - Layer 0 gesetzt -")
 (command"_purge""_a""*""_n")
 (princ"\n\n    - 1. Level Bereinigt -")
 (command"_purge""_a""*""_n")
 (princ"\n\n    - 2. Level Bereinigt -")
 (command"_audit""_y")
 (princ"\n\n    - 2D Prüfung durch geführt -")
 (command"_dmauditall""""_F")
 (princ"\n\n    - 3D Prüfung durch geführt -")
 (princ)
)
(princ)