管理人さま

大変ご無沙汰しております。
JDraf初心者”たぬたぬ”です。
慣れ親しんできたJDrafにサヨナラし、今年度からARESに翻弄されています。

では本題。

今回の図面、測量座標を割り当てられており、とても便利なのですが。。。
全図面がｍｍ単位の為、ＴＳ用にｍ単位の座標引出線ＬＩＳＰが欲しいな。。。と思いました。

●以前教えていただいたLISPを、ｍｍ単位（測量座標を割り当てている）を、
　ｍ単位で表示は可能でしょうか？
　※試しに、寸法スタイルの尺度を0.001にしてみましたが、ｍｍ単位のままだった為、
　　頭を抱えています。
↓
;座標引出線
(defun C:XY (/ spt ept xx yy xzb yzb)
	(setq spt (getpoint "座標を入力:\n"))
	(setq ept (getpoint spt "座標の記入位置を指示:\n"))
	(setq yy (cadr spt))
        (setq xx (car spt))
	(setq yzb (strcat "X=" (rtos yy 2 4)));「4」は小数点以下の桁数
	(setq xzb (strcat "Y=" (rtos xx 2 4)));「4」は小数点以下の桁数
	(command "_leader" spt ept "" yzb xzb "")
)


宜しくお願いいたします。

編集

こんにちは、たぬたぬさん。
今回、ミリ単位の図面内でメートル単位の表示で引き出し線を記入をしたいという事ですね。

座標値をxx、yyに代入する際に1000で割る方法はどうでしょうか？

具体的には、
(setq yy (cadr spt))
(setq xx (car spt))
の箇所を1000で割るように書き直すと
(setq yy (/ (cadr spt) 1000))
(setq xx (/ (car spt) 1000))
になります。

念のためにすべて修正したものを書いておきます。
↓
;座標引出線
(defun C:XY (/ spt ept xx yy xzb yzb)
	(setq spt (getpoint "座標を入力:\n"))
	(setq ept (getpoint spt "座標の記入位置を指示:\n"))
	(setq yy (/ (cadr spt) 1000))
	(setq xx (/ (car spt) 1000))
	(setq yzb (strcat "X=" (rtos yy 2 4)));「4」は小数点以下の桁数
	(setq xzb (strcat "Y=" (rtos xx 2 4)));「4」は小数点以下の桁数
	(command "_leader" spt ept "" yzb xzb "")
)

編集

管理人さま

早速のご指導、誠にありがとうございます。
心から感謝しております。

お陰様で座標抽出作業が捗ります。

ありがとうございました。

たぬたぬ

編集