（XD::Drag:Mleader）动态拖动MLEADER

Lispboy

1. (defun XD::Drag:Mleader (mleader info info2 / dis1 dis2 dynpt msg my_err p1 pt tf txtLocation)
   
2.   (defun my_err (msg)
   
3.     (xdrx_prompt "\n" msg)
   
4.     (xdrx_pointmonitor)
   
5.     (xdrx_end)
   
6.     (XD::Doc:Command (list "undo" 1))
   
7.     (setq *error* nil)
   
8.   )
   
9.   (defun _callback (dynpt)
   
10.     (xdrx_setpropertyvalue mleader "lastvertex" (list 0 dynpt))
    
11.     (princ)
    
12.   )
    
13.   (defun _callback2 (dynpt)
    
14.     (setq dis2 (car (mapcar '- dynpt (trans pt 1 0))))
    
15.     (if (>= (* dis1 dis2) 0)
    
16.        (setq dis2 (abs dis2))
    
17.        (setq dis2 0.)
    
18.     )
    
19.     (xdrx_setpropertyvalue mleader "dogleglength" dis2 )
    
20.     (princ)
    
21.   )
    
22.   (xdrx_begin)
    
23.   (setq *error* my_err)
    
24.   (xdrx_sysvar_push '("osmode" 0) '("cursorsize" 2))
    
25.   (xdrx_pointmonitor "_callback")
    
26.   (setq tf t)
    
27.   (if (not (xdrx_string_find info "\n"))
    
28.     (setq info (strcat "\n" info))
    
29.   )
    
30.   (if (setq pt (getpoint info))
    
31.      (progn
    
32.         (if info2
    
33.            (progn
    
34.               (setq txtLocation (xdrx_getpropertyvalue mleader "textlocation")
    
35.                     dis1 (car (mapcar '- txtLocation (trans pt 1 0)))
    
36.               )
    
37.               (xdrx_pointmonitor "_callback2")
    
38.               (if (not (setq p1 (getpoint info2)))
    
39.                 (progn
    
40.                   (setq pt nil)
    
41.                 )
    
42.               )
    
43.            )
    
44.         )
    
45.      )
    
46.   )
    
47.   (xdrx_pointmonitor)
    
48.   (xdrx_sysvar_pop)
    
49.   (setq *error* nil)
    
50.   (xdrx_end)
    
51.   pt
    
52. )
    

(defun XD::Drag:Mleader (mleader info info2 / dis1 dis2 dynpt msg my_err p1 pt tf txtLocation)<br />   (defun my_err (msg)<br />     (xdrx_prompt "\n" msg)<br />     (xdrx_pointmonitor)<br />     (xdrx_end)<br />     (XD::Doc:Command (list "undo" 1))<br />     (setq *error* nil)<br />   )<br />   (defun _callback (dynpt)<br />     (xdrx_setpropertyvalue mleader "lastvertex" (list 0 dynpt))<br />     (princ)<br />   )<br />   (defun _callback2 (dynpt)<br />     (setq dis2 (car (mapcar '- dynpt (trans pt 1 0))))<br />     (if (>= (* dis1 dis2) 0)<br />        (setq dis2 (abs dis2))<br />        (setq dis2 0.)<br />     )<br />     (xdrx_setpropertyvalue mleader "dogleglength" dis2 )<br />     (princ)<br />   )<br />   (xdrx_begin)<br />   (setq *error* my_err)<br />   (xdrx_sysvar_push '("osmode" 0) '("cursorsize" 2))<br />   (xdrx_pointmonitor "_callback")<br />   (setq tf t)<br />   (if (not (xdrx_string_find info "\n"))<br />     (setq info (strcat "\n" info))<br />   )<br />   (if (setq pt (getpoint info))<br />      (progn<br />         (if info2<br />            (progn<br />               (setq txtLocation (xdrx_getpropertyvalue mleader "textlocation")<br />                     dis1 (car (mapcar '- txtLocation (trans pt 1 0)))<br />               )<br />               (xdrx_pointmonitor "_callback2")<br />               (if (not (setq p1 (getpoint info2)))<br />                 (progn<br />                   (setq pt nil)<br />                 )<br />               )<br />            )<br />         )<br />      )<br />   )<br />   (xdrx_pointmonitor)<br />   (xdrx_sysvar_pop)<br />   (setq *error* nil)<br />   (xdrx_end)<br />   pt<br /> )<br />

liuyj

这个用夹点就可以

qingzhu123

bucuobubuo