几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   [求助]请教高手,如何能快速把所选的标注归到其他指定的标注样式中? (http://www.dimcax.com/hust/showthread.php?t=11308)

yang686526 2009-04-26 02:42 PM

[求助]请教高手,如何能快速把所选的标注归到其他指定的标注样式中?
 
[求助]请教高手,如何能快速把所选的标注归到其他指定的标注样式中?
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


所有的时间均为北京时间。 现在的时间是 12:45 AM.