（XD::Coords:Make）坐标对象创建

Lispboy

1. (defun xd::coords:make (base direction len dogleglen txt txtheight zflag / p2 ml mtxt)
   
2.   (if (not (xdrx_object_get "mleaderstyle" "zbbz"))
   
3.     (progn (setq mls (xdrx_mleader_makestyle "zbbz"))
   
4.            (xdrx_setpropertyvalue mls "dogleglength" 2.0)
   
5.            (xdrx_setpropertyvalue mls "TextAttachmentType" 6)
   
6.            (xdrx_setpropertyvalue mls "LandingGap" 0.0)
   
7.            (xdrx_setpropertyvalue mls "Scale" 1.0)
   
8.            (xdrx_getpropertyvalue mls "ArrowSymbolId" "_None")
   
9.            (setvar "cmleaderstyle" "zbbz")
   
10.     )
    
11.   )
    
12.   (setq z   (caddr txt)
    
13.         txt ($xdob_text_format (list (car txt) (cadr txt)))
    
14.         p2  (mapcar
    
15.               '+
    
16.               base
    
17.               (xdrx_vector_product (xdrx_vector_normalize direction) len)
    
18.             )
    
19.         ml  (xdrx_mleader_make
    
20.               base
    
21.               p2
    
22.               (strcat "X="
    
23.                       (cadr txt)
    
24.                       "\r\nY="
    
25.                       (car txt)
    
26.                       (if (and zflag z)
    
27.                         (strcat "\r\nZ=" z)
    
28.                         ""
    
29.                       )
    
30.               )
    
31.               txtheight
    
32.               dogleglen
    
33.             )
    
34.   )
    
35.   (setq mTxt (xdrx_getpropertyvalue ml "mtext" t))
    
36.   (xdrx_setpropertyvalue
    
37.     mTxt
    
38.     "textheight"
    
39.     (* (xd::var:getscaleratio) txtheight)
    
40.     "LineSpacingFactor"
    
41.     0.8
    
42.   )
    
43.   (xdrx_setpropertyvalue
    
44.     ml "mtext" mtxt "ArrowSymbolId" "_None"
    
45.    )
    
46.   (xdrx_entity_delete mtxt)
    
47.   ml
    
48. )

(defun xd::coords:make (base direction len dogleglen txt txtheight zflag / p2 ml mtxt)<br />   (if (not (xdrx_object_get "mleaderstyle" "zbbz"))<br />     (progn (setq mls (xdrx_mleader_makestyle "zbbz"))<br />            (xdrx_setpropertyvalue mls "dogleglength" 2.0)<br />            (xdrx_setpropertyvalue mls "TextAttachmentType" 6)<br />            (xdrx_setpropertyvalue mls "LandingGap" 0.0)<br />            (xdrx_setpropertyvalue mls "Scale" 1.0)<br />            (xdrx_getpropertyvalue mls "ArrowSymbolId" "_None")<br />            (setvar "cmleaderstyle" "zbbz")<br />     )<br />   )<br />   (setq z   (caddr txt)<br />         txt ($xdob_text_format (list (car txt) (cadr txt)))<br />         p2  (mapcar<br />               '+<br />               base<br />               (xdrx_vector_product (xdrx_vector_normalize direction) len)<br />             )<br />         ml  (xdrx_mleader_make<br />               base<br />               p2<br />               (strcat "X="<br />                       (cadr txt)<br />                       "\r\nY="<br />                       (car txt)<br />                       (if (and zflag z)<br />                         (strcat "\r\nZ=" z)<br />                         ""<br />                       )<br />               )<br />               txtheight<br />               dogleglen<br />             )<br />   )<br />   (setq mTxt (xdrx_getpropertyvalue ml "mtext" t))<br />   (xdrx_setpropertyvalue<br />     mTxt<br />     "textheight"<br />     (* (xd::var:getscaleratio) txtheight)<br />     "LineSpacingFactor"<br />     0.8<br />   )<br />   (xdrx_setpropertyvalue<br />     ml "mtext" mtxt "ArrowSymbolId" "_None"<br />    )<br />   (xdrx_entity_delete mtxt)<br />   ml<br /> )

wzjck01

学习，学习。

wzjck01

学习，学习。

Le9988

学习，学习。

wzjck01

学习，学习。

wzjck01

学习，学习