请教大家测量两点之间的距离，只在命令行一行内显示全？

lingduwx

平时作图都在笔记本上，命令行总共显示3行主要是为了查看测量两点之间的距离，测量两点之间的距离会显示在从下往上第3行，如果能把测量信息显示在往上第2行就好了，那样就节约一行高度，而增加更大的绘图区了，测量结果部分文字可省掉，
下面第一张图是平时测量距离显示行数，第二张是想要的效果，希望高收帮帮忙啊，谢谢
平时测量的效果
   --
下面是想要的效果
---

edrise

Shing 发表于 2024-6-11 09:46
加我，需要，想要立马弹出来的效果。企鹅363419946 有赏

用alert命令显示最后结果就可以实现弹出的效果，不过感觉大家不太喜欢alert，因为要多点一次

Shing

加我，需要，想要立马弹出来的效果。企鹅363419946 有赏

自贡黄明儒

只有自己写个命令，然后用print打出来了。

lingduwx

自贡黄明儒 发表于 2015-9-30 10:10
只有自己写个命令，然后用print打出来了。

哎，小弟确实不懂写命令啊，所以特来求教高手了，先谢了！！！

xyp1964

2. (defun c:dd ()
   
3.   (defun r2d (rad) (* (/ rad pi) 180.0))
   
4.   (if (and (setq p1 (getpoint "\n起点<退出>: "))
   
5.            (setq p2 (getpoint p1 "\n终点<退出>: "))
   
6.       )
   
7.     (progn
   
8.       (setq ds (distance p1 p2)
   
9.             aa (r2d (angle p1 p2))
   
10.             dx (- (car p2) (car p1))
    
11.             dy (- (cadr p2) (cadr p1))
    
12.       )
    
13.       (princ (strcat "距离 = "(rtos ds 2) ",X = " (rtos dx 2) ",Y = "(rtos dy 2)",XY倾角 = "(rtos aa 2)))
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:dd ()<br />   (defun r2d (rad) (* (/ rad pi) 180.0))<br />   (if (and (setq p1 (getpoint "\n起点<退出>: "))<br />            (setq p2 (getpoint p1 "\n终点<退出>: "))<br />       )<br />     (progn<br />       (setq ds (distance p1 p2)<br />             aa (r2d (angle p1 p2))<br />             dx (- (car p2) (car p1))<br />             dy (- (cadr p2) (cadr p1))<br />       )<br />       (princ (strcat "距离 = "(rtos ds 2) ",X = " (rtos dx 2) ",Y = "(rtos dy 2)",XY倾角 = "(rtos aa 2)))<br />     )<br />   )<br />   (princ)<br /> )

lingduwx

xyp1964 发表于 2015-9-30 13:42

谢谢版主的热心帮助，俺下载用了感觉非常好，只是还有个小问题希望麻烦版主再修一下，谢谢了！！！



下面是想要的最终效果
谢谢

xyp1964

2. (defun c:dd ()
   
3.   (defun r2d (rad) (* (/ rad pi) 180.0))
   
4.   (if (and (setq p1 (getpoint "\n起点<退出>: "))
   
5.            (setq p2 (getpoint p1 "\n终点<退出>: "))
   
6.       )
   
7.     (progn
   
8.       (setq ds (distance p1 p2)
   
9.             aa (r2d (angle p1 p2))
   
10.             dx (- (car p2) (car p1))
    
11.             dy (- (cadr p2) (cadr p1))
    
12.       )
    
13.       (princ (strcat "\n距离 = "
    
14.                      (rtos ds 2)
    
15.                      ",X = "
    
16.                      (rtos dx 2)
    
17.                      ",Y = "
    
18.                      (rtos dy 2)
    
19.                      ",XY倾角 = "
    
20.                      (rtos aa 2)
    
21.              )
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )

(defun c:dd ()<br />   (defun r2d (rad) (* (/ rad pi) 180.0))<br />   (if (and (setq p1 (getpoint "\n起点<退出>: "))<br />            (setq p2 (getpoint p1 "\n终点<退出>: "))<br />       )<br />     (progn<br />       (setq ds (distance p1 p2)<br />             aa (r2d (angle p1 p2))<br />             dx (- (car p2) (car p1))<br />             dy (- (cadr p2) (cadr p1))<br />       )<br />       (princ (strcat "\n距离 = "<br />                      (rtos ds 2)<br />                      ",X = "<br />                      (rtos dx 2)<br />                      ",Y = "<br />                      (rtos dy 2)<br />                      ",XY倾角 = "<br />                      (rtos aa 2)<br />              )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

lingduwx

xyp1964 发表于 2015-9-30 23:07

谢谢版主，这么晚了，还来回复，先祝你国庆快乐哈，
最新的偶刚用了，感觉还是显示在上面啊，

edata

太纠结这个没什么用。。

2. (defun c:tt()
   
3.   (defun r2d (rad) (* (/ rad pi) 180.0))
   
4.   (if (and (setq p1 (getpoint "\n起点<退出>: "))
   
5.            (setq p2 (getpoint p1 "\n终点<退出>: "))
   
6.       )
   
7.     (progn
   
8.       (setq ds (distance p1 p2)
   
9.             aa (r2d (angle p1 p2))
   
10.             dx (- (car p2) (car p1))
    
11.             dy (- (cadr p2) (cadr p1))
    
12.       )
    
13.       (setq str (strcat "距离="
    
14.                      (rtos ds 2)
    
15.                      ",X="
    
16.                      (rtos dx 2)
    
17.                      ",Y="
    
18.                      (rtos dy 2)
    
19.                      ",XY倾角="
    
20.                      (rtos aa 2)
    
21.              )
    
22.       )
    
23.       (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand str)
    
24.       (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "{Esc}")
    
25.     )
    
26.   )
    
27. )

(defun c:tt()<br />   (defun r2d (rad) (* (/ rad pi) 180.0))<br />   (if (and (setq p1 (getpoint "\n起点<退出>: "))<br />            (setq p2 (getpoint p1 "\n终点<退出>: "))<br />       )<br />     (progn<br />       (setq ds (distance p1 p2)<br />             aa (r2d (angle p1 p2))<br />             dx (- (car p2) (car p1))<br />             dy (- (cadr p2) (cadr p1))<br />       )<br />       (setq str (strcat "距离="<br />                      (rtos ds 2)<br />                      ",X="<br />                      (rtos dx 2)<br />                      ",Y="<br />                      (rtos dy 2)<br />                      ",XY倾角="<br />                      (rtos aa 2)<br />              )<br />       )<br />       (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand str)<br />       (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "{Esc}")<br />     )<br />   )<br /> )

Q1241274614

2. (defun c:dd ()
   
3.   (defun r2d (rad) (* (/ rad pi) 180.0))
   
4.   (if (and (setq p1 (getpoint "\n起点<退出>: "))
   
5.            (setq p2 (getpoint p1 "\n终点<退出>: "))
   
6.       )
   
7.     (progn
   
8.       (setq ds (distance p1 p2)
   
9.             aa (r2d (angle p1 p2))
   
10.             dx (- (car p2) (car p1))
    
11.             dy (- (cadr p2) (cadr p1))
    
12.       )
    
13.       (princ (strcat "\n距离 = "
    
14.                      (rtos ds 2)
    
15.                      ",X = "
    
16.                      (rtos dx 2)
    
17.                      ",Y = "
    
18.                      (rtos dy 2)
    
19.                      "\nXY倾角 = "
    
20.                      (rtos aa 2)
    
21.              )
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )

(defun c:dd ()<br />   (defun r2d (rad) (* (/ rad pi) 180.0))<br />   (if (and (setq p1 (getpoint "\n起点<退出>: "))<br />            (setq p2 (getpoint p1 "\n终点<退出>: "))<br />       )<br />     (progn<br />       (setq ds (distance p1 p2)<br />             aa (r2d (angle p1 p2))<br />             dx (- (car p2) (car p1))<br />             dy (- (cadr p2) (cadr p1))<br />       )<br />       (princ (strcat "\n距离 = "<br />                      (rtos ds 2)<br />                      ",X = "<br />                      (rtos dx 2)<br />                      ",Y = "<br />                      (rtos dy 2)<br />                      "\nXY倾角 = "<br />                      (rtos aa 2)<br />              )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

happyboy75

(princ) 他是换行清除其他变量回显得，去掉就会有其他东东输出 你试一下吧