绘图单位设置

newer · 发表于 2016-7-4 19:48:41

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

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

×

本帖最后由 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)
)

(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) 
)

wyldd · 发表于 2019-12-12 15:58:58

谢谢，谢谢，谢谢分享

十全十美 · 发表于 2019-12-13 10:39:30

感谢楼主分享

fqb0215 · 发表于 2019-12-27 21:59:22

感谢分享！

rw1118 · 发表于 2019-12-28 11:27:20

这个可以有，感谢分享

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

[工具] 绘图单位设置

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