fc2ブログ

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

2023年05月13日
AutoLISP サンプルコード公開Gallery

断面図の標高値(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

 AutoLispサンプルコードプログラム 一覧(インデックス)

 AutoLispサンプルコードプログラム 【概説】

AutoLispサンプルコードプログラム
関連記事
スポンサーサイト



Gallery担当:山野 ロザリア平久郎
Posted by Gallery担当:山野 ロザリア平久郎