CODE04：断面図の標高値(EL)旗上げ

2023年05月13日

2023年06月17日


断面図の標高値(EL)旗上げ
;+++++++++++++
(defun C:CODE04 (/ DLPoint)
;+++++++++++++
    (Command "OsnapCoord" "1" "-Layer" "M" "FlagEL" "")
    (Command "Grips" "2");Esc
    (setq DLPoint (getpoint "\nDL点を指定:"))
    (setq DLx (nth 0 DLPoint)
            DLy (nth 1 DLPoint))
    (setq DL値 (getstring "\nDL値を入力："))
    (setq MyPoint (getpoint "\n計測する点を指定:"))
    (setq Px (nth 0 MyPoint)
            Py (nth 1 MyPoint))
    (Command "ID" "@")
    (setq Delta (- Py  DLy ));
    (setq ELy (+ (atof DL値) Delta))
    (setq MyText (strcat "▽" (rtos ELy)))
    (Command "Leader" MyPoint "_non" Pause "a" MyText "")
    (Command "Grips" "2");Esc
    (princ)
);End