动态显示距离

vivekgrs · 发表于 2022-7-6 12:11:21

大家好，

我需要编写一个代码来动态显示水平和垂直距离。当用户选择起点并移动鼠标时。谁能帮我继续吗。

谢谢

维韦克

gile · 发表于 2022-7-6 12:20:36

你好

将DYNMODE和DYNPIFORMAT设置为1？

vivekgrs · 发表于 2022-7-6 12:31:24

嗨，吉尔，

谢谢你的及时回复。我在autocad 2004中尝试了dynmode。它不起作用。我在其他一些网站上读到，这个系统变量从autocad 2007开始就可以使用。不管是真是假。关于这件事你能回复我吗。

当做
维韦克

JohnM · 发表于 2022-7-6 12:39:52

看看这是否能让你靠近

copy

 
;;; modemacro will display at the bottom left of the autocad screen before the coordinates read out
(defun c:trk (/ pt1 c)
  (setq pt1 (getpoint "\nSelect a point: "))
(setq x T)
  (while x
       (setq ms (grread T 1))
       (if (= (nth 0 ms) 5)            
  (setvar "modemacro" (rtos(distance pt1 (nth 1 ms))))
       (setq x nil)
       );_if
  );_while
(setvar "modemacro" "");_reset modemacro
 );_defun