[求助]如何实现可视拖动

phoenixdjq

请教各位大侠：

       如何才能实现象“move”“copy”那样的可视拖动。

就是当我们“move”或“copy”一个物体的时候，总是有一个虚的物体，这样能让我们知道，我们将会把这个物体移动或复制到什么地方。

无痕

就利用这两个命令吧

 

phoenixdjq

是呀，我在autolisp中用的就是这两个命令，但是运行的时候不能实现像cad本身move命令一样的效果。

 

ZZXXQQ

怎么用的？贴程序上来。

maomao2004

什么？

phoenixdjq

以下是我的程序,请大侠帮忙看看

我用的格式是这样的数字的两边有"<" 和 ">"

我编的程序是改例如这样的数字的  :<1>

;;;子程序
(defun c:gf()
(setq shu (getint "\n 请输入步长:"))
)

(defun c:jia()
(setq ent (car (entsel "\n 请选择被复制的数字:")))
(redraw ent 3)
(setq djq (entget ent))
(setq txtzh (assoc 1 djq))
(setq txth (cdr txtzh))

(setq len (strlen txth))
(setq txt (substr txth 2 (- len 1)))

(setq a (atoi txt))

(setq pt1 (getpoint "\n 请选择一个点:"))
(setq pt2 (getpoint pt1 "\n 请选择第二点:"))
(setq n 0)
(while pt2

(setq b (+ shu a n))
(setq c (itoa b))

(setq d (strcat "<" c ">"))

(setq e (cons 1 d))
(command "copy" ent "" pt1 pt2)
(setq ent1 (entget (entlast)))
(setq txtzh1 (assoc 1 ent1))
(setq ent1 (subst e txtzh1 ent1))
(entmod ent1)

(princ)
(setq n (+ shu n))
(setq pt2 (getpoint "\n 请选择第二点:"))

)
)