lingduwx 发表于 2015-10-1 22:35:07

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

llsheng_73 发表于 2015-10-1 23:15:35

本帖最后由 llsheng_73 于 2015-10-2 00:55 编辑

一直觉得楼主的这个要求比较难，因为所有用princ或者直接返回字串的办法都会使命令行自动换行，直到E大直接通过发送命令的方式，才知道原来可以这样解决问题，下边是因为对E大的方法不熟悉，借此练习下
(defun c:tt( / p1 p2 r2d)
(defun r2d (rad) (* (/ rad pi)180))
(if(if(setq p1(getpoint "\n起点<退出>: "))
       (setq p2(getpoint p1 "\n终点<退出>: ")))
    (mapcar'Vlax-Invoke(list(Vla-Get-ActiveDocument(Vlax-Get-Acad-Object))(Vlax-Get-Or-Create-Object"WScript.Shell"))
             '(SendCommand Sendkeys)
           (list(apply'strcat(mapcar'strcat'("距离="",X="",Y="",XY倾角=")
                                  (mapcar'rtos(list(distance p1 p2)(-(car p2)(car p1))(-(cadr p2)(cadr p1))(r2d(angle p1 p2)))
                                           )))"{Esc}")))
)

lingduwx 发表于 2015-10-5 20:27:53

edata 发表于 2015-10-1 09:43 static/image/common/back.gif
太纠结这个没什么用。。

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

现有测量显示结果



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



edata 发表于 2015-10-5 20:44:40

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

现有 ...

加空字符，注意不是空格，
(defun c:tt()
(defun r2d (rad) (* (/ rad pi) 180.0))
(if (and (setq p1 (getpoint "\n起点<退出>: "))
         (setq p2 (getpoint p1 "\n终点<退出>: "))
      )
    (progn
      (setq ds (distance p1 p2)
            aa (r2d (angle p1 p2))
            dx (- (car p2) (car p1))
            dy (- (cadr p2) (cadr p1))
      )
      (setq str (strcat "距离="
                     (rtos ds 2)
                     ";　X="
                     (rtos dx 2)
                     ";　Y="
                     (rtos dy 2)
                     ";　XY倾角="
                     (rtos aa 2)
                        ";　"
             )
      )
      (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand str)
      (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "{Esc}")
    )
)
)
llsheng_73的加空字符。
(defun c:tt (/ p1 p2 r2d)
(defun r2d (rad) (* (/ rad pi) 180))
(if (if (setq p1 (getpoint "\n起点<退出>: "))
        (setq p2 (getpoint p1 "\n终点<退出>: "))
      )
    (mapcar 'Vlax-Invoke
          (list (Vla-Get-ActiveDocument (Vlax-Get-Acad-Object))
                  (Vlax-Get-Or-Create-Object "WScript.Shell")
          )
          '(SendCommand Sendkeys)
          (list (apply 'strcat
                       (mapcar 'strcat
                               '("距离=" ";　X=" ";　Y=" ";　" )
                               (mapcar 'rtos
                                       (list (distance p1 p2)
                                             (- (car p2) (car p1))
                                             (- (cadr p2) (cadr p1))
                                             (r2d (angle p1 p2))
                                             
                                       )
                               )
                       )
                  )
                  "{Esc}"
          )
    )
)
)

lingduwx 发表于 2015-10-5 20:46:44

本帖最后由 lingduwx 于 2015-10-5 20:48 编辑

edata 发表于 2015-10-5 20:44 static/image/common/back.gif
加空字符，注意不是空格，

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


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

奋斗的研究生 发表于 2015-10-6 09:04:01

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

lingduwx 发表于 2015-10-6 11:19:39

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

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

Shing 发表于 2024-6-11 09:46:21

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

edrise 发表于 前天 22:48

本帖最后由 edrise 于 2024-11-23 22:51 编辑

Shing 发表于 2024-6-11 09:46
加我，需要，想要立马弹出来的效果。企鹅363419946 有赏
用alert命令显示最后结果就可以实现弹出的效果，不过感觉大家不太喜欢alert，因为要多点一次
页: 1 [2]
查看完整版本: 请教大家测量两点之间的距离，只在命令行一行内显示全？