(XD::Drag:SimpleMove)基本的移动或拷贝选择集

Lispboy

1. (defun XD::Drag:SimpleMove (ss info baseptflag tf / dynpt lastpnt myerr olderr)
   
2.   (defun _callback (dynpt)
   
3.     (xdrx_entity_move ss lastpnt dynpt)
   
4.     (setq lastpnt dynpt)
   
5.   )
   
6.   (defun myerr (msg)
   
7.     (princ "\nCancel")
   
8.     (xdrx_end)
   
9.     (vl-cmdf ".undo" 1)
   
10.     (setq *error* olderr)
    
11.   )
    
12.   (setq olderr *error*)
    
13.   (setq *error* myerr)
    
14.   (xdrx_begin)
    
15.   (if (or
    
16.         (< baseptflag 1)
    
17.         (> baseptflag 9)
    
18.       )
    
19.     (setq baseptflag 5)
    
20.   )
    
21.   (setq lastpnt (xd::geom:get9pt ss baseptflag))
    
22.   (if (not tf)
    
23.     (setq ss (xdrx_entity_copy ss))
    
24.   )
    
25.   (xdrx_pointmonitor "_callback" ss)
    
26.   (initget 1)
    
27.   (getpoint info)
    
28.   (xdrx_pointmonitor)
    
29.   (xdrx_end)
    
30.   (setq *error* olderr)
    
31.   ss
    
32. )
    
33. 
    

(defun XD::Drag:SimpleMove (ss info baseptflag tf / dynpt lastpnt myerr olderr)<br />   (defun _callback (dynpt)<br />     (xdrx_entity_move ss lastpnt dynpt)<br />     (setq lastpnt dynpt)<br />   )<br />   (defun myerr (msg)<br />     (princ "\nCancel")<br />     (xdrx_end)<br />     (vl-cmdf ".undo" 1)<br />     (setq *error* olderr)<br />   )<br />   (setq olderr *error*)<br />   (setq *error* myerr)<br />   (xdrx_begin)<br />   (if (or<br />         (< baseptflag 1)<br />         (> baseptflag 9)<br />       )<br />     (setq baseptflag 5)<br />   )<br />   (setq lastpnt (xd::geom:get9pt ss baseptflag))<br />   (if (not tf)<br />     (setq ss (xdrx_entity_copy ss))<br />   )<br />   (xdrx_pointmonitor "_callback" ss)<br />   (initget 1)<br />   (getpoint info)<br />   (xdrx_pointmonitor)<br />   (xdrx_end)<br />   (setq *error* olderr)<br />   ss<br /> )<br /> <br />

eachy

多了一份copy吧

eachy

多了一份copy吧

Lispboy

eachy 发表于 2016-5-12 22:02
多了一份copy吧

哪里多了？ 两种模式，COPY的时候先 COPY下选择集，然后移动这个选择集。

eachy

Lispboy 发表于 2016-5-12 22:09
哪里多了？ 两种模式，COPY的时候先 COPY下选择集，然后移动这个选择集。

只看了名称 move ，少看了个 tf 参数（move/copy）

xxxxxxxxx123

:):):):)些  学医学习

striver

这个函数实用价值较大，感谢分享。