Jagaimo
指定した２点の距離、X値の差、 Y値の差、 Z値の差をを表示するコマンドです。
コマンドの内容
ユーザー入力で指定した点１、点２の距離、X値の差、 Yの差、 Zの差をとコマンドラインに表示させます。
AutoLISP サンプル
コマンド名は TEST です。
;/////////////////////////////////////////////
;|
Jagaimo Lisp
Distance and Axis Offsets Between Two Points Var.20241209
|;
;/////////////////////////////////////////////
(defun c:Test ( / Pt1 Pt2 Dtotal Dx Dy Dz Tx)
;-------------------------------------------------
(setq Pt1 (getpoint "\n最初の点を選択してください: "))
(setq Pt2 (getpoint "\n2番目の点を選択してください: "))
(setq Dx (- (car pt2) (car pt1))) ;; X軸の距離
(setq Dy (- (cadr pt2) (cadr pt1))) ;; Y軸の距離
(setq Dz (- (caddr pt2) (caddr pt1))) ;; Z軸の距離
(setq Dtotal (distance pt1 pt2)) ;; 2点間の距離
;; 結果を表示
(setq Tx (strcat
"\n2点間の距離: " (rtos Dtotal 2 4)
"\nX軸の差: " (rtos dx 2 4)
"\nY軸の差: " (rtos dy 2 4)
"\nZ軸の差: " (rtos dz 2 4)
))
(princ Tx)
(alert Tx)
(princ "\n=========== JagaimoLISP.com ===========")
(princ));defun参考記事
点座標について
Comments