fc2ブログ

CODE02:計測した座標値を右側に旗上げ

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

;+++++++++++++
(Defun C:CODE02 ( / Xp Yp )
;+++++++++++++
(Command "OsnapCoord" "1" "-Layer" "M" "FlagID" "" )
(setq Pt (getpoint "\n計測する位置を指定:"))
(Command "ID" Pt)
(Command "Grips" "2")
;+++++++++++++
(setq Xp (car (getvar "Lastpoint")))
(setq Yp (cadr (getvar "Lastpoint")))
(setq Xp (rtos Xp ))
(setq Yp (rtos Yp ))
;+++++++++++++
(Command "Ucs" "w" "-MText" "@" "J" "ML" "@0,0"
(Strcat "X=" Xp) (Strcat "Y=" Yp) ""
"Grips" "2"
"Ucs" "p")
(princ)
)

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

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

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



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