马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 newer 于 2016-7-4 20:19 编辑
本工具晓东工具箱绘图单位初始化设置工具,设置后,后续的工具能正确识别单位设置使用相应的字高等进行标注。本工具设置后同时初始化出图比例,米单位绘图,出图比例初始化为1:1000,毫米单位绘图,出图比例初始化为1:100,并设置相应的尺寸标注样式。
 - (defun c:XDTB_SETUPUNIT (/ scl unit unit1)
- (xdrx_begin)
- (if (= (xd::var:getdrawingunit) 0)
- (setq unit "米")
- (setq unit "毫米")
- )
- (if (= unit 1)
- (setq unit1 "毫米"
- scl 100
- )
- (setq unit1 "米"
- scl 1000
- )
- )
- (xdrx_prompt "\n**当前绘图设置: 单位(" unit ") **")
- (initget "0 1")
- (xdrx_initget "0 1")
- (if (/= "" (setq unit (getstring (xdrx_prompt "\n请输入绘图单位[米(0)/毫米(1)]<"
- unit ">:"
- )
- )
- )
- )
- (progn
- (if (= unit "1")
- (setq unit "mm"
- unit1 "毫米"
- scl 100
- )
- (setq unit "m"
- unit1 "米"
- scl 1000
- )
- )
- (xd::var:setdrawingunit unit)
- (xd::dim:init)
- )
- )
- (xdrx_prompt "\n当前绘图单位已经设置为:" unit1 " .出图比例初始化为: (1:"
- scl ")."
- )
- (xdrx_end)
- (princ)
- )
|