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

Lispboy · 发表于 2018-3-19 16:12:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2018-3-19 16:27 编辑

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

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

wzjck01 · 发表于 2021-5-6 16:43:10

学习，学习。

wzjck01 · 发表于 2021-6-1 18:18:33

学习，学习。

Le9988 · 发表于 2021-6-17 09:59:06

学习，学习。

wzjck01 · 发表于 2021-6-20 17:05:30

学习，学习。

wzjck01 · 发表于 2021-6-24 16:02:21

学习，学习

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

[其他] （XD::Coords:Make）坐标对象创建

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。