马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 Lispboy 于 2018-3-15 15:55 编辑
 - (defun c:XDTB_ZBBZ ( / coords dynpt ml mls mTxt myerr olderr p p1 val vl vx vy)
- (defun myerr (msg)
- (xdrx_pointmonitor)
- (xdrx_sysvar_pop)
- (setq *error* olderr)
- (princ)
- )
- (defun callback (dynpt)
- (if ml
- (xdrx_setpropertyvalue ml "lastvertex" (list 0 dynpt))
- )
- (setq p1 dynpt)
- )
- (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")
- )
- )
- (XD::Doc:CheckVersion '>= "17.1" "")
- (xdrx_begin)
- (setq olderr *error*
- *error* myerr
- )
- (if (not #xd_var_global_txth)
- (setq #xd_var_global_txth 3.0)
- )
- (if (setq val (getreal (xdrx_prompt "\n文字高度<" #xd_var_global_txth ">:" t)))
- (setq #xd_var_global_txth val)
- )
- (xdrx_sysvar_push '("cmleaderstyle" "zbbz") '("dimzin" 0) '("osmode" 97))
- (xd::text:init 1)
- (while (setq p (getpoint "\n坐标点<退出>: "))
- (setvar "osmode" 0)
- (setq coords (trans p 1 0))
- (setq vx (xdrx_string_format1 (cadr coords) 4)
- vy (xdrx_string_format1 (car coords) 4)
- vl ($xdob_text_format (list vx vy))
- )
- (xdrx_pointmonitor "callback")
- (setq ml (xdrx_mleader_make
- coords
- (setq p1 (polar coords 0.0 10.0))
- (strcat "X=" (car vl) "\n\rY=" (cadr vl))
- (getvar "textsize")
- 2.0
- )
- )
- (setq mTxt (xdrx_getpropertyvalue ml "mtext" t))
- (xdrx_setpropertyvalue mTxt "LineSpacingFactor" 0.8 "textheight" (* (xd::var:getscaleratio) #xd_var_global_txth))
- (xdrx_setpropertyvalue
- ml "mtext" mtxt "ArrowSymbolId" "_None"
- )
- (xdrx_entity_delete mtxt)
- (getpoint "\n引线位置: ")
- (xdrx_pointmonitor)
- (setvar "osmode" 97)
- )
- (xdrx_sysvar_pop)
- (xdrx_pointmonitor)
- (setq *error* olderr)
- (xdrx_end)
- (princ)
- )
|