neue Folder LAYOUT MENU und MODULE dazu

2025-04-14 16:56:58 +02:00
parent e6e1705f0d
commit 35f7b2d75e
935 changed files with 803964 additions and 0 deletions
@@ -0,0 +1,24 @@
+(Defun C:Balloon ()
+  (Setvar "Cmdecho" 0)
+  (Setvar "Osmode" 0)
+  (Setq DS (Getvar "Dimscale"))
+  (Setq TH (Getvar "Dimtxt"))
+  (Initget 1)
+  (Setq P1 (Getpoint "\nFrom Point: "))
+  (Initget 1)
+  (Setq P2 (Getpoint P1 "\nTo Point: "))
+  (If
+    (<= (Car P2) (Car P1))
+      (Setq B (* -2 TH DS))
+      (Setq B (* 2 TH DS))
+  )
+  (Setq P3 (List (+ (Car P2) B) (Cadr P2)))
+  (Setq P4 (List (+ (Car P3) (/ B 2)) (Cadr P3)))
+  (Command "_dim1" "_lead" P1 P2 P3 ^C ^C)
+  (Command "_circle" P4 (/ (Abs B) 2))
+  (Initget 1)
+  (Setq C (Getstring t "\nLabel: "))
+  (Command "_Text" "_M" P4 TH 0 C)
+  (Princ)
+)
+