一个拖动函数

meflying · 发表于 2004-4-15 20:58:00

无痕发表于2004-4-15 19:23:00我认为矩阵变换是cad的基本位移旋转缩放镜向的基础，如move，虽然命令简单，但是也是根据矩阵来进行运算的，只不过这个运算已经已经固化到cad基本程序里面了，因...

我知道我的DRAG和MOVE里的拖动效果差距很大,我的意思是和通过循环使用MOVE来达到拖动效果(见过这样的程序)来比较...之前我已经用括号解释不是和MOVE比,是和使用MOVE达到拖动效果比...

ljcgq · 发表于 2004-4-15 21:30:00

我不明白move 和托动有什么本质的区别

无痕 · 发表于 2004-4-15 22:33:00

区别是托动时候的显示效果。myflying的程序显示更好一些，闪动更少，不可否认，在选取实体不多的时候，的确不错。

秋枫 · 发表于 2004-4-15 23:00:00

我的思路比较偏门：

复制代码

(defun SSDrag_Move (ss pt) (ssDrag ss pt ".Move"))
;; (defun SSDrag_Rotate (ss pt) (ssDrag ss pt ".Rotate"))

(defun SSDrag (ss pt DragCommand / get-ss ss2 e cmdecho ret catchit)
(Defun get-ss (e / ss ep)
(setq ss (ssadd)
ep e
)
(if (not ep)
(setq ep (entnext))
)
(while (/= (setq ep (entnext ep)) nil) (ssadd ep ss))
ss
)
;; ssdrag main:
(setq cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq e (entlast))
(command "_.copy" ss "" "_non" "0,0,0" "_non" "0,0,0")
(setq ss2 (get-ss e))
(setq
catchit (vl-catch-all-apply
(function
(lambda ()
(command DragCommand ss2 "" pt)
(while (/= "" (getvar "cmdnames")) (command pause))
(setq ret (getvar "lastpoint"))
(setvar "cmdecho" 0)
(command "_.erase" ss2 "")
(setvar "cmdecho" cmdecho)
ret
)
)
nil
)
)
(if (vl-catch-all-error-p catchit)
(progn
(command "_.erase" ss2 "")
(setvar "cmdecho" cmdecho)
nil
)
ret
)
)

(defun SSDrag (ss pt DragCommand / get-ss ss2 e cmdecho ret catchit)
   (Defun get-ss (e / ss ep)
       (setq ss (ssadd)
                   ep e
       )
       (if (not ep)
           (setq ep (entnext))
       )
       (while (/= (setq ep (entnext ep)) nil) (ssadd ep ss))
       ss
   )
   ;; ssdrag main:
   (setq cmdecho (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setq e (entlast))
   (command "_.copy" ss "" "_non" "0,0,0" "_non" "0,0,0")
   (setq ss2 (get-ss e))
   (setq
       catchit (vl-catch-all-apply
                           (function
                               (lambda ()
                                   (command DragCommand ss2 "" pt)
                                   (while (/= "" (getvar "cmdnames")) (command pause))
                                   (setq ret (getvar "lastpoint"))
                                   (setvar "cmdecho" 0)
                                   (command "_.erase" ss2 "")
                                   (setvar "cmdecho" cmdecho)
                                   ret
                               )
                           )
                           nil
                       )
   )
   (if (vl-catch-all-error-p catchit)
       (progn
           (command "_.erase" ss2 "")
           (setvar "cmdecho" cmdecho)
           nil
       )
       ret
   )
)

自认为比飞兄的效果理想一点～～直接用的Move。原计划把Rotate，Scale形式的拖动也写进去的，不成功。哪位有好的办法和思路，拿出来讨论讨论。

无痕 · 发表于 2004-4-16 01:09:00

阿飞强调的是托动时候的效果，而不是程序的结构等等

Rotate，Scale形式的拖动，我还是推荐用矩阵

我试了你的程序。用rotate是可以的阿，用scale按理也没问题，但是scale容易放大到屏幕外面，因此难以看到效果，应该在程序中用 r （reference）参数。这样看起来才直观。较好的效果是：取得所选实体的最大外框，r取外框对角点x（or y）值差的一半。

龙龙仔 · 发表于 2004-4-16 07:57:00

无痕弄个矩阵的例子来看看好吗?

(其实EA对矩阵研究比较多,就看他要不要出手)

meflying · 发表于 2004-4-16 08:32:00

秋枫的方法好,我试了一下,发现一个奇怪问题,在拖动属性块的时候会删除属性块...看了一会也没看出所以然... 就拿下面这个图,你试试看:

meflying · 发表于 2004-4-16 08:47:00

找到原因了,就是使用entnext的时候会将其跟随对象包含在内,...对于POLYLINE也一样...

至于删除子对象是否就将这个对象给删了,还没研究过这个问题

秋枫 · 发表于 2004-4-16 09:30:00

无痕发表于2004-4-16 1:09:00我试了你的程序。用rotate是可以的阿，用scale按理也没问题，但是scale容易放大到屏幕外面，因此难以看到效果，应该在程序中用 r （reference）参数。这样看起来才直观。较好的效果是：取得所选

１。用rotate与scale得到的返回值不对。一试就知。２。用R参数也是可以的。在ssdrag程序中打开cmdecho，就可以直接使用Rotate与scale 的命令行提示。比较理想的是SSdrag_Rotate应返回角度，SSdrag_Scale应返回比例。

无痕 · 发表于 2004-4-16 11:16:00

那就在程序里面用cond分别处理cmdnames返回值

矩阵的等忙完手上的工作再弄吧。快周末了，应该有时间的：）

账号		自动登录	找回密码
密码			注册

一个拖动函数

这是我以前写的拖动函数

本帖子中包含更多资源