0

現在、次の Lisp コードを使用して、原点からの X 座標と Y 座標を表示しています。

(defun c:xy(/ pt pt1 pt2 x y  xy)

(setq pt (getpoint "\nPoint : "))
(setq x(rtos(car pt)))
(setq y(rtos(cadr pt)))

; x- leader horizontaal                                
(setq pt1 (getpoint pt "\nHORIZONTAL: "))
(command "leader" pt pt1 "" x "" )

; y- leader verticaal                                
(setq pt2 (getpoint pt "\nVERTICAL: "))
(command "leader" pt pt2  "" y "" ) )

(princ)

スクリプトは現在、次のように Y 座標 (6050.00) を示しています。

水平 Y

Y座標を次のように垂直に描画したいのですが：

垂直 Y

Lispを通じてこれを達成する可能性はありますか? その場合、どのような変更を加える必要がありますか?

4

1 に答える 1

3

2 番目の引出線を配置する前に、必要に応じて UCS を回転できます。

(command "_UCS" "_Z" "90d")

または、_LEADER の代わりに _DIMORDINATE コマンドを使用して、寸法テキストが関連付けられ、自動的に更新されるようにします。

于 2013-05-25T02:31:59.723 に答える