一个拖动函数

龙龙仔

meflying发表于2004-4-16 8:47:00找到原因了,就是使用entnext的时候会将其跟随对象包含在内,...对于POLYLINE也一样... 至于删除子对象是否就将这个对象给删了,还没研究过这个问题

那就把"ATTRIB" "VERTEX"踢出(不要加進)SS選集。

无痕

好像上次在xd论坛，wkai写的一个阵列程序也出现了这个“事故”。原因就是用entnext取得选集。因此建议慎用。



过滤也可以，但何不直接用ss？

无痕

改了一下

2. (defun SSDrag (ss pt DragCommand / get-ss ss2 e cmdecho ret catchit)
3.    ;; ssdrag main:
4.    (setq cmdecho (getvar "cmdecho"))
5.    (setvar "cmdecho" 0)
6.    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
7.    (vla-startundomark doc)
8.    (command "_.copy" ss "" "_non" "0,0,0" "_non" "0,0,0")
9.    (setq
10.        catchit (vl-catch-all-apply
11.              (function
12.     (lambda  ()
13.        (command DragCommand ss "" pt)
14.        (while (/= "" (getvar "cmdnames")) (command pause))
15.     )
16.              )
17.              nil
18.          )
19.    )
20.    (vla-endundomark doc)
21.    (command ".u")
22.    (setvar "cmdecho" cmdecho)
23.    (if (vl-catch-all-error-p catchit)
24.            nil
25.            (getvar "lastpoint")
26.    )
27. )

(defun SSDrag (ss pt DragCommand / get-ss ss2 e cmdecho ret catchit)    ;; ssdrag main:    (setq cmdecho (getvar "cmdecho"))    (setvar "cmdecho" 0)    (setq doc (vla-get-activedocument (vlax-get-acad-object)))    (vla-startundomark doc)    (command "_.copy" ss "" "_non" "0,0,0" "_non" "0,0,0")    (setq        catchit (vl-catch-all-apply              (function     (lambda  ()        (command DragCommand ss "" pt)        (while (/= "" (getvar "cmdnames")) (command pause))     )              )              nil          )    )    (vla-endundomark doc)    (command ".u")    (setvar "cmdecho" cmdecho)    (if (vl-catch-all-error-p catchit)            nil            (getvar "lastpoint")    ) )

龙龙仔

UNDO用得不錯,我也用過UNDO這方法好些地方

秋枫

这样用Undo的话可能会导致使用这个函数的正式的程序不能用UNDO吗？


除非UndoMark可以嵌套？

秋枫

无痕发表于2004-4-16 11:16:00那就在程序里面用cond分别处理cmdnames返回值

这个当然是很容易想到的～～不过我对怎么得到刚刚运行过的Rotate命令转了多少角度有疑问啊，没有与“lastPOINT”类似功能的系统变量返回这个值。

ljcgq

请教斑竹"_non"的作用是什么？

meflying

就是不捕捉,你试试就知道了(用复制命令,打开捕捉点,在输入点的时候先输入non,再选择点...)我又改了一下:

2. (defun SSDrag (ss pt DragCommand / cmdecho catchit)
3.    ;; ssdrag main:
4.    (setq cmdecho (getvar "cmdecho"))
5.    (setvar "cmdecho" 0)
6.    (setq catchit (vl-catch-all-apply
7.        (function
8.            (lambda ()
9.                (command DragCommand ss "" pt pause)
10.            )
11.        )
12.        nil
13.    )
14.    )
15.    (command ".undo" "1")
16.    (setvar "cmdecho" cmdecho)
17.    (if (vl-catch-all-error-p catchit)
18.            nil
19.            (getvar "lastpoint")
20.    )
21. )

(defun SSDrag (ss pt DragCommand / cmdecho catchit)    ;; ssdrag main:    (setq cmdecho (getvar "cmdecho"))    (setvar "cmdecho" 0)    (setq catchit (vl-catch-all-apply        (function            (lambda ()                (command DragCommand ss "" pt pause)            )        )        nil    )    )    (command ".undo" "1")    (setvar "cmdecho" cmdecho)    (if (vl-catch-all-error-p catchit)            nil            (getvar "lastpoint")    ) )

秋枫

这个好。相当精练了。精品


对于Rotate, Scale的Drag，有好办法吗？关键是如何取得返回值，SSDrag_Rotate需要返回角度，Scale需要返回比例。Move可以有"lastpoint"返回，但"lastangle"返回的可不是这个东东，"lastscale"有没有啊？

无痕

秋枫发表于2004-4-17 21:19:00这个好。相当精练了。精品 对于Rotate, Scale的Drag，有好办法吗？关键是如何取得返回值，SSDrag_Rotate需要返回角度，Scale需要返回比例。Move可以有\"lastpo...

不尽然，我发现响应pause的时候，无论是否点取了，都有“lastpoint”返回值。 而如果在选ss，pt的时候就回车，也会错误执行，vl-catch-all-error-p没有起到它应该有的作用。我初步认为（还在研究，验证），vl-catch-all-apply ，vl-catch-all-error-p是用来处理vl函数返回值的，对autolsp意义不大。