标注的同时把图层设成标注层

qiqiang2015 · 发表于 2014-12-10 16:02:06

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

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

×

刚学不久，每日一码~！(defun c:BZBL()
(setvar "cmdecho" 0)
(setq bzbl (getreal"标注线性比例<100>:"))
(prin1)
  )

(defun c:dd(/ tuc)
(setvar "cmdecho" 0)
(setq tuc (getvar "clayer"))
(setvar "clayer" "Q-标注")
(if (null bzbl) (setq bzbl 100.0))
(command "DIMLFAC" (/ bzbl 10))
(command "DIMLINEAR" pause pause pause)
(setvar "clayer" tuc)
(prin1)
  )；等同dimlinear

(defun c:ddd(/ tuc)
(setvar "cmdecho" 0)
(setq tuc (getvar "clayer"))
(setvar "clayer" "Q-标注")
(if (null bzbl) (setq bzbl 100.0))
(command "DIMLFAC" (/ bzbl 10))
(command "dimaligned" pause pause pause)
(setvar "clayer" tuc)
(prin1)
  )；等同dimaligned

(defun c:daa(/ tuc)
(setvar "cmdecho" 0)
(setq tuc (getvar "clayer"))
(setvar "clayer" "Q-标注")
(command "dimangular" pause pause pause)
(setvar "clayer" tuc)
(prin1)
  )；等同dimangular

st788796 · 发表于 2014-12-10 16:04:10

支持

newer · 发表于 2014-12-10 16:34:34

同支持，有时候代码贴出来的过程也是个很好的学习的机会，还可以在论坛见证自己的成长，现在回头看看几年前自己的帖子，自己的代码很有感触。

keaimin817 · 发表于 2014-12-18 11:27:41

支持。
如果能多添加一些标注，阅读起来就省事多了。
感谢LZ的努力与付出

xvjiex · 发表于 2021-8-1 00:42:54

感谢楼主分享标注的同时把图层设成标注层

xiahaibo1314 · 发表于 2022-4-25 00:12:28

???????????????????????

MUYIY · 发表于 2022-6-12 22:28:11

学习了，

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

[每日一码] 标注的同时把图层设成标注层

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

评分