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

lingduwx

我现在手机上网看不到，先谢谢大家了哈，祝大家国庆快乐哈

llsheng_73

一直觉得楼主的这个要求比较难，因为所有用princ或者直接返回字串的办法都会使命令行自动换行，直到E大直接通过发送命令的方式，才知道原来可以这样解决问题，下边是因为对E大的方法不熟悉，借此练习下

1. (defun c:tt( / p1 p2 r2d)
   
2.   (defun r2d (rad) (* (/ rad pi)180))
   
3.   (if(if(setq p1(getpoint "\n起点<退出>: "))
   
4.        (setq p2(getpoint p1 "\n终点<退出>: ")))
   
5.     (mapcar'Vlax-Invoke(list(Vla-Get-ActiveDocument(Vlax-Get-Acad-Object))(Vlax-Get-Or-Create-Object"WScript.Shell"))
   
6.              '(SendCommand Sendkeys)
   
7.            (list(apply'strcat(mapcar'strcat'("距离="",X="",Y="",XY倾角=")
   
8.                                     (mapcar'rtos(list(distance p1 p2)(-(car p2)(car p1))(-(cadr p2)(cadr p1))(r2d(angle p1 p2)))
   
9.                                            )))"{Esc}")))
   
10.   )

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

lingduwx

edata 发表于 2015-10-1 09:43
太纠结这个没什么用。。

首先，谢谢E大，E大的程序感觉非常棒，下面还有个小小的要求麻烦E大再修改一下就更好了，谢谢了！

现有测量显示结果



现在想要修改达到的效果，谢谢

edata

lingduwx 发表于 2015-10-5 20:27
首先，谢谢E大，E大的程序感觉非常棒，下面还有个小小的要求麻烦E大再修改一下就更好了，谢谢了！

现有 ...

加空字符，注意不是空格，

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

llsheng_73的加空字符。

1. (defun c:tt (/ p1 p2 r2d)
   
2.   (defun r2d (rad) (* (/ rad pi) 180))
   
3.   (if (if (setq p1 (getpoint "\n起点<退出>: "))
   
4.         (setq p2 (getpoint p1 "\n终点<退出>: "))
   
5.       )
   
6.     (mapcar 'Vlax-Invoke
   
7.             (list (Vla-Get-ActiveDocument (Vlax-Get-Acad-Object))
   
8.                   (Vlax-Get-Or-Create-Object "WScript.Shell")
   
9.             )
   
10.             '(SendCommand Sendkeys)
    
11.             (list (apply 'strcat
    
12.                          (mapcar 'strcat
    
13.                                  '("距离=" ";　X=" ";　Y=" ";　" )
    
14.                                  (mapcar 'rtos
    
15.                                          (list (distance p1 p2)
    
16.                                                (- (car p2) (car p1))
    
17.                                                (- (cadr p2) (cadr p1))
    
18.                                                (r2d (angle p1 p2))
    
19.                                                
    
20.                                          )
    
21.                                  )
    
22.                          )
    
23.                   )
    
24.                   "{Esc}"
    
25.             )
    
26.     )
    
27.   )
    
28. )

(defun c:tt (/ p1 p2 r2d)<br />   (defun r2d (rad) (* (/ rad pi) 180))<br />   (if (if (setq p1 (getpoint "\n起点<退出>: "))<br />         (setq p2 (getpoint p1 "\n终点<退出>: "))<br />       )<br />     (mapcar 'Vlax-Invoke<br />             (list (Vla-Get-ActiveDocument (Vlax-Get-Acad-Object))<br />                   (Vlax-Get-Or-Create-Object "WScript.Shell")<br />             )<br />             '(SendCommand Sendkeys)<br />             (list (apply 'strcat<br />                          (mapcar 'strcat<br />                                  '("距离=" ";　X=" ";　Y=" ";　" )<br />                                  (mapcar 'rtos<br />                                          (list (distance p1 p2)<br />                                                (- (car p2) (car p1))<br />                                                (- (cadr p2) (cadr p1))<br />                                                (r2d (angle p1 p2))<br />                                                <br />                                          )<br />                                  )<br />                          )<br />                   )<br />                   "{Esc}"<br />             )<br />     )<br />   )<br /> )

lingduwx

edata 发表于 2015-10-5 20:44
加空字符，注意不是空格，

llsheng_73的加空字符。

哦，谢谢，我加的空格就是发现用不了哦，呵呵，我先弄一下，谢谢


终于搞定了，呵呵，谢谢E大

奋斗的研究生

你这个有点作，就一行字的距离怎么能影响你作图？实在想把作图面积变大，使用ctrl+0，全区域作图，就不知你CAD操作如何。

lingduwx

奋斗的研究生 发表于 2015-10-6 09:04
你这个有点作，就一行字的距离怎么能影响你作图？实在想把作图面积变大，使用ctrl+0，全区域作图，就不知你 ...

汗颜啊，还没有完全达到CTRL+0的境界哦

Shing

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

edrise

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

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