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

看看这是否能让你靠近

;;; 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

alanjt 发表于 2022-7-6 12:42:08

 
有趣的想法，约翰。看一下grtext，您可以使用它，避免设置/重置modemacro系统变量。
 
你也可以放：
因此用户知道原点。
 
我希望你不要冒犯我的胡言乱语，只是提供额外的好处。

JohnM 发表于 2022-7-6 12:51:30

没有冒犯。这就是像这样的论坛的目的。
只要记住，给猫剥皮的方法总是不止一种。
但它的味道仍然像鸡肉。

alanjt 发表于 2022-7-6 13:00:27

你说得对极了。

alanjt 发表于 2022-7-6 13:09:51

我只是同意我说的。。。
 
2

vivekgrs 发表于 2022-7-6 13:14:50

谢谢大家。它真的帮了我很多。vba中grread的等效命令是什么。有人能帮我吗
页: [1]
查看完整版本: 动态显示距离