这个怎么实现

cag · 发表于 2004-5-25 15:51:00

这是一个标高的程序，不知是哪位网友的高作，命令为bg
请问，它拖动时，那个虚线是怎么实现的？
它拖动是不是用grread来实现的?

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

cag · 发表于 2004-5-26 07:46:00

meflying 版主，看了一下前生版主的大作，还是不明白拖动时的那条虚线是怎么产生的，我认为，虚线是用了(initget 32)后才出现的，并不是用LINE设为虚线后来模拟的，如果在Grread的拖动机制中加入:
(initget 32)
(setq pt (getpoint p1 "\n第二点:"))
这样就会停下来，等待用户指定pt 之后才能更新其他的图元。
问题还是回到最初：如何在Grread的拖动机制中实现虚线？
如果我说的不明白，可以设想一下，如果这个bg.vlx让你来编，又该怎么去实现？

龙龙仔 · 发表于 2004-5-26 07:59:00

(defun C:TT ()
   (setq PT (getpoint "\n第一點: "))
   (while (/= 3 (car (setq PT1 (grread 1 1 0))))
   (redraw)
   (grdraw PT (cadr PT1) -1 1)
   )
   (redraw)
   (princ)
)