Hallo Schachinger
Ja ich habe das Problem gelöst und so sieht es das end Ergebnis.
(defun C:ver (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 )
(command "layer" "machen" "schr" "")
(setq pt1 ( getpoint "Start wählen"))
(setq ptendh (getpoint "Endpunkt wählen"))
(setq ptlegh (list (nth 0 pt1) (nth 1 ptendh) 0.0))
(setq pta (list (+ (nth 0 pt1 ) (cadt:cm 15.0)) (nth 1 pt1) 0.0 ))
(setq pt2 (list (nth 0 pta) ( + (nth 1 pt1) (cadt:cm 11.3)) 0.0))
(command "bemlinear" pta pt2 pta )
(setq pt3 (list (nth 0 pta) (- (nth 1 ptlegh) (cadt:cm 51.2)) 0.0))
(command "bemlinear" pt2 pt3 pt2 )
(setq pt4 (list (nth 0 pta) ( + (nth 1 pt3) (cadt:cm 3.7)) 0.0))
(command "bemlinear" pt3 pt4 pt3 )
(setq pt5 (list (nth 0 pta) ( + (nth 1 pt4) (cadt:cm 47.5)) 0.0))
(command "bemlinear" pt4 pt5 pt4)
(setq ptendv (getpoint "Endpunkt wählen"))
(setq ptlegv (list (nth 0 ptendv) (nth 1 ptendh) 0.0))
(command "bemlinear" pt5 pt6 pt5 )
(setq pta1 (list (nth 0 ptendh) (+ (nth 1 ptendh) (cadt:cm 15.0)) 0.0))
(setq pt6 (list ( - (nth 0 ptendh) 3.7) (nth 1 pta1) 0.0))
(command "bemlinear" pta1 pt6 pta1 )
(setq pt7 (list ( + (nth 0 ptlegv) (cadt:cm 11.3)) (nth 1 pta1) 0.0))
(command "bemlinear" pt6 pt7 pt6 )
(setq pt8 (list ( - (nth 0 pt7) (cadt:cm 11.3)) (nth 1 pta1) 0.0))
(command "bemlinear" pt7 pt8 pt7 )
)
Ich habe 4 solche Programme geschrieben jetzt brauche ich eine „if“ abfrage kannst du mir vielleicht ein Tipp geben. Ich meine wenn der User angibt in der Befehlzeile Bemaßung oben oder unten (Vertikal, Horizontal) oder links, rechts das der richtige Programm dabei ausgeführt wird. Wie kann ich das am besten hinkriegen.
Gruß
RoyCAD
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP