查看单个帖子
旧 2009-04-26, 02:42 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 [求助]请教高手,如何能快速把所选的标注归到其他指定的标注样式中?

[求助]请教高手,如何能快速把所选的标注归到其他指定的标注样式中?
www.dimcax.com
[求助]请教高手,如何能快速把所选的标注归到其他指定的标注样式中?
请教高手,如何能快速把所选的标注归到其他指定的标注样式中?
例如:把“所选中”的标注(样式为iso-25)归置到样式为“标注15”的标注中去?
d
哪位高手能帮忙搞定?
d
(defun c:test()
(setq a (getstring "\n 请输入样式名称:"))
(setq ss (ssget '((0 . "dimension"))))
(setq len (sslength ss))
(setq n 0)
(command "undo" "begin")
(repeat len
(setq ent (ssname ss n))
(setq dxf (entget ent))
(setq new (cons 3 a))
(setq yangshi (assoc 3 dxf))
(setq dxf (subst new yangshi dxf))
(entmod dxf)
(setq n (+ 1 n))
)
(command "undo" "end")
)
如果你会程序的话,这个很简单,标注样式的群码是3
剩下的你自己根据要求改吧,有问题回复
还有一个办法就是用格式刷
工资真的要涨了,心里更加爱党了,能给孩子奖赏了,见到老婆敢嚷了,敢尝海鲜鹅掌了,闲时能逛商场了,遇见美女心痒了,结果物价又涨了!
d
把标注样式“标注15”置为当前样式,再选定那些标注,选择标注菜单中的“更新”就完事。
编程的话,则看这个菜单中调用什么命令,照写就ok。

d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)