没有特别快捷的方式,Acad提供的原始功能操作步骤多,效率低.
我给你写了个小程序提高效率,可以连续的点选起点,到点,起点,到点...创建多个标注.
注意:
标注的字高和样式随当前的标注样式和文字样式,你可以通过设置标注样式来进行调整.
下面的的代码复制到Acad命令行回车就完成了程序的加载,执行命令bz即可运行,如果有什么问题hi我吧
(defun c:bz(
/
ptSt ptEd xh
)
(setvar "CMDECHO" 0)
(setq xh t)
(while xh
(setq ptSt (getpoint "\n标注起点:"))
(if ptSt
(progn
(setq ptEd (getpoint "\n标注到点:" ptSt))
(if ptEd
(progn
(command "DIMALIGNED" ptSt ptEd ptEd)
)
(progn
(setq xh nil)
)
)
)
(progn
(setq xh nil)
)
)
)
(prin1)
)
标注效果: