[下载]一个非常好用的AutoCAD工具集(20091012)

ayunger

bianjia2006: 已修正了批量打印函数高版本AutoCAD中仅打一页的现象(ayBPlot),已更新请下载！

dasd22

楼主好厉害,...向楼主学习.你太有才了！！谢谢分享！！

pipilu1984

;;***********************************************************
;;***                                                     ***
;;***                xxx 项目出图标准定义                 ***
;;***                                                     ***
;;*** 使用方法: 将需要的部分拷贝至AutoCAD命令行运行即可!  ***
;;***********************************************************

;;********* 平面设置初始化 *********
;;字体
(command "-style" "KM_宋体25" "宋体" 2.5 0.85 0.0 "" "" "") (command);宋体2.5.
(command "-style" "KM_曲线要素" "宋体" 3.0 0.85 0.0 "" "" "") (command);曲线要素.
(command "-style" "KM_道路名" "宋体" 3.5 0.85 0.0 "" "" "") (command);横向道路名称.
(command "-style" "KM_倒角半径" "宋体" 2.0 0.85 0.0 "" "" "") (command);倒角半径.
(command "-style" "KM_标注" "宋体" 2.0 0.6 0.0 "" "" "") (command);倒角半径.
;;线型
(command "-linetype" "L" "ACAD_ISO05W100" (findfile "acadiso.lin") "" "") (command);线型1
(command "-linetype" "L" "dashed" (findfile "ACAD.LIN") "" "") (command);线型2
(command "-linetype" "L" "center" (findfile "ACAD.LIN") "" "") (command);线型3
;;标注
(getvar "DIMSTYLE")
(setvar "DIMBLK" "_OBLIQUE")
(setvar "DIMASZ" 2.0) (command);箭头大小.
(setvar "DIMEXE" 1.0) (command);箭头超出尺寸线距离.
(setvar "DIMAUNIT" 1) (command);角度:度分秒.
(setvar "DIMLUNIT" 2) (command);标注单位: 十进制.
(setvar "DIMDEC" 3) (command);标注位数:3.
(setvar "DIMZIN" 1) (command);标注前导及后续零.
(setvar "DIMDSEP" ".") (command);小数分隔符.
(setvar "DIMTXSTY" "KM_标注") (command);标注文字.
(setvar "DIMTXT" 2.0) (command);字高.
(setvar "DIMCLRD" 256) (command);尺寸线颜色,随层=256.
(setvar "DIMCLRE" 256) (command);尺寸线颜色,随层=256.
(setvar "DIMLWD" -3) (command);尺寸线宽度,随层=-3.
(setvar "DIMCLRT" 256) (command);文字颜色,随层=256.
(setvar "DIMRND" 0.5) (command);将所有标注距离舍入到指定值.
(setvar "DIMTMOVE" 2) (command);允许标注文字自由移动而不用添加引线.
(setvar "DIMTOH" 0) (command);控制标注文字在尺寸界线外的位置.
(Command "DIMSTYLE" "S" "KuMing1") (command);标注名称
;;层
(Command "-Layer" "M" "KM_中心线" "L" "center" "" "C" 1 "" "LW" 0.0 "" "") (command)
(Command "-Layer" "M" "KM_规划红线" "L" "ACAD_ISO05W100" "" "C" 1 ""  "LW" 0.5 "" "") (command)
(Command "-Layer" "M" "KM_边线" "L" "continuous" "" "C" 5 "" "LW" 0.0 "" "") (command)
(Command "-Layer" "M" "KM_既有桥" "L" "continuous" "" "C" 6 "" "LW" 0.0 "" "") (command)
(Command "-Layer" "M" "KM_地面道路" "L" "continuous" "" "C" 3 "" "LW" 0.0 "" "") (command)
(Command "-Layer" "M" "KM_说明标注" "L" "continuous" "" "C" 7 "" "LW" 0.0 "" "") (command)
(command)

;;********* 纵断面设置初始化 *********
(Command "-style" "KM_宋体" "宋体" 0.0 0.85 0.0 "" "" "") (command);
(Command "-style" "KM_纵断面" "txt1.shx,smfs.shx" 0.0 0.85 0.0 "" "" "")
(Command "-style" "KM_工点" "宋体" 3.5 0.75 0.0 "" "")
(command "-linetype" "L" "Center" (findfile "ACAD.LIN") "" "")
(command "-linetype" "L" "dashed" (findfile "ACAD.LIN") "" "")
(command "-linetype" "L" "dot" (findfile "ACAD.LIN") "" "")
(command)

在2010中标注样式无法自动设置

psj414

看上去很不错

yizhi4669

在2010中加载，提示菜单标签为“--”，然后就非法退出了。

yuguole

 多谢楼主的奉献

zwf100

楼主实在太强大了

ghgh0130

使用了,很不错哦!

fflwcn

真的不错！

tianquan3

非常棒的AutoCAD-Tools 谢谢分享！！