[求助]：请教高手如何让图形随鼠标拖动并动态显示

firstintimate

就象copy或者move那样，谢谢大家

似水无痕

这个问题我以前也问过，好像没有很好的方法实现！转一个帖子给你，是CAD大观园的，你可以看看！
http://www.cadhelp.com.cn/bbs/di ... ;ID=1503&page=1

[iframe h=600 w=100%]http://www.cadhelp.com.cn/bbs/dispbbs.asp?boardID=3&ID=1503&page=1[/iframe]

Underway

Reply From: Luis Esquivel
Date: May/19/05 - 22:47 (GMT)
   
    Re: MOVE command
Here is something that you might be able to adapt to your needs:

;;; ability to drag an move a vla object [a block]
;;; msg: optional message by default uses "Move"
(vl-load-com)
(defun rwiz-drag-move (msg vla_obj / take code5 p3)
(prompt (strcat "\n"
(cond (msg)
("Move"))
"\n"))
(while (and (setq take (grread 't)) (/= 3 (car take)))
(setq code5 (car take))
(setq p3 (cadr take))
(if (and p3 (= 5 code5))
(vla-move vla_obj
(vla-get-insertionpoint vla_obj)
(vlax-3d-point p3)))))  

info:
http://discussion.autodesk.com/thread.jspa?threadID=405235

mkhsj927

两种方法：
1）做临时块，如临时块名m_tmpblock
          (setq m_pt (getpoint "\n基点："))
          (princ"\n方向：")
        (command "insert" "m_tmpblock" m_pt "" "" pause)(command);;插入块
          (command "explode" (entlast))(command);;炸开插入块
          (command"-purge" "b" "m_tmpblock" "y" "y")(command);;删除块  
2) 用grread
            (setq m_ss (ssadd))
            (while (/= 3 (car (setq m_pt (grread T 5))))
              (command "erase" m_ss "")
                           ;;绘制实体
              (ssadd (entlast) m_ss)
                           ;;绘制实体
           (ssadd (entlast) m_ss)
                            ;重复
              ;处理过程...
            )
            (setq m_ss nil)

另外，好像CAD还有一个内部函数，速度当然应该比上两种方法快，但我还没找到，呵呵