[求助]用动态拖曳来美化程序

sen.sam

近日，在明俊CAD开发家园看到一篇关于动态拖曳的文章，主要是用到grread函数。受此启发，想把手上收集的一个引线标注完善为文字可以随鼠标动态拖曳，直到按下左键，引线的文字才定下来。由于本人初学lsp，依样画葫芦了一下，未能达到目的。在此请教于高手，帮忙改写此程序，要求如下：角度文字与引线要有关联，即移动文字时，引线要跟着移动，效果如同在cad的引线注释一样。因为本人试过用画一个箭头然后在箭头的后面写文字是可以实现动态的，但在后续调整时就很麻烦，要移动两次。在此先行谢过。后附角度引线标注和几个动态拖曳的例子。

 

sen.sam

都没人用grread编过程的码？

sen.sam

自己顶，等高手

sen.sam

路过，自己再顶

byghbcx

要用反应器了

hyccai

问题是，如果中途按下Esc时不是取消，而会在某个位置绘制图元

sailorcwx

这篇文章我写的，我想你没有看完。文章最后面还提到一个拖拽的方法，或许适用于你这个例子

至于ESC，可以通过定义错误函数来实现，至于会不会留下多余的图元，那就要看你的程序的容错性了。