这个怎么实现

cag

这是一个标高的程序，不知是哪位网友的高作，命令为bg


请问，它拖动时，那个虚线是怎么实现的？


它拖动是不是用grread来实现的?

meflying

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=7870&replyID=31188&skin=1

cag

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

龙龙仔

(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)
)

cag

感谢龙龙仔版主!

BDYCAD

龍龍的是拉虛線的. 呵呵. 下面一例是拉實線的, 現記不起了這招好象也是在你那學習來的. (SETQ A (GETPOINT)
B (getpoint A ".."))

meflying

这是两个不同的东西，你的除了选择点，不能做别的任何事情


grdraw选择适当的参数，也可以拉实线的。