|
Lisp : StartUndoMark EndUndoMark?
archtools am 08.08.2023 um 12:44 Uhr (1)
Zitat:Original erstellt von kadirozen:Ich danke Ihnen für den Vorschlag.Ich habe dies als Beispiel geschrieben. Wenn ich es ausführe, entstehen 4 Punkte in der Mitte des Bildschirms. Wenn ich Strg Z drücke, werden alle 4 Punkte gleichzeitig entfernt und nicht einer nach dem anderen.Code:(defun c:zBeispiel ( / *error* c pt1 pt2 pt3 msg) (vl-load-com)(setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-startundomark doc) (defun *error* ( msg ) (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUI ...
| | In das Form Lisp wechseln |
|
Lisp : Radius über drei Punkte berechnen
archtools am 07.11.2016 um 13:38 Uhr (1)
Zitat:Original erstellt von Bernd10:Hallo,ich versuche den Radius eines Kreises über drei vorhandene Punkte zu berechnen. Ich mache einen Fehler und finde ihn aber nicht.Hier mein Programmcode dazu:( defun test ( / ) (setq lpkt1 (list -2.0 4.0 0.0)) (setq lpkt2 (list 1.0 -3.0 0.0)) (setq lpkt3 (list 5.0 7.0 0.0)) (setq rabst (distance lpkt1 lpkt2)) (setq ra (/ rabst 2.0)) (setq rwin12 (angle lpkt1 lpkt2)) (setq lmp12 (polar lpkt1 rwin12 ra)) (setq rwinm3 (angle lmp12 lpkt3)) (setq rabstm3 (dista ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |