ayunger
发表于 2009-10-12 12:01:00
<strong><font face="Verdana" color="#61b713">bianjia2006: </font></strong>已修正了批量打印函数高版本AutoCAD中仅打一页的现象(ayBPlot),已更新请下载！
dasd22
发表于 2009-10-13 07:32:00
<p>楼主好厉害,...向楼主学习.你太有才了！！谢谢分享！！</p>
pipilu1984
发表于 2009-10-13 09:01:00
<p>;;***********************************************************<br/>;;*** ***<br/>;;*** xxx 项目出图标准定义 ***<br/>;;*** ***<br/>;;*** 使用方法: 将需要的部分拷贝至AutoCAD命令行运行即可! ***<br/>;;***********************************************************</p><p>;;********* 平面设置初始化 *********<br/>;;字体<br/>(command "-style" "KM_宋体25" "宋体" 2.5 0.85 0.0 "" "" "") (command);宋体2.5.<br/>(command "-style" "KM_曲线要素" "宋体" 3.0 0.85 0.0 "" "" "") (command);曲线要素.<br/>(command "-style" "KM_道路名" "宋体" 3.5 0.85 0.0 "" "" "") (command);横向道路名称.<br/>(command "-style" "KM_倒角半径" "宋体" 2.0 0.85 0.0 "" "" "") (command);倒角半径.<br/>(command "-style" "KM_标注" "宋体" 2.0 0.6 0.0 "" "" "") (command);倒角半径.<br/>;;线型<br/>(command "-linetype" "L" "ACAD_ISO05W100" (findfile "acadiso.lin") "" "") (command);线型1<br/>(command "-linetype" "L" "dashed" (findfile "ACAD.LIN") "" "") (command);线型2<br/>(command "-linetype" "L" "center" (findfile "ACAD.LIN") "" "") (command);线型3<br/>;;标注<br/>(getvar "DIMSTYLE")<br/>(setvar "DIMBLK" "_OBLIQUE")<br/>(setvar "DIMASZ" 2.0) (command);箭头大小.<br/>(setvar "DIMEXE" 1.0) (command);箭头超出尺寸线距离.<br/>(setvar "DIMAUNIT" 1) (command);角度:度分秒.<br/>(setvar "DIMLUNIT" 2) (command);标注单位: 十进制.<br/>(setvar "DIMDEC" 3) (command);标注位数:3.<br/>(setvar "DIMZIN" 1) (command);标注前导及后续零.<br/>(setvar "DIMDSEP" ".") (command);小数分隔符.<br/>(setvar "DIMTXSTY" "KM_标注") (command);标注文字.<br/>(setvar "DIMTXT" 2.0) (command);字高.<br/>(setvar "DIMCLRD" 256) (command);尺寸线颜色,随层=256.<br/>(setvar "DIMCLRE" 256) (command);尺寸线颜色,随层=256.<br/>(setvar "DIMLWD" -3) (command);尺寸线宽度,随层=-3.<br/>(setvar "DIMCLRT" 256) (command);文字颜色,随层=256.<br/>(setvar "DIMRND" 0.5) (command);将所有标注距离舍入到指定值.<br/>(setvar "DIMTMOVE" 2) (command);允许标注文字自由移动而不用添加引线.<br/>(setvar "DIMTOH" 0) (command);控制标注文字在尺寸界线外的位置.<br/>(Command "DIMSTYLE" "S" "KuMing1") (command);标注名称<br/>;;层<br/>(Command "-Layer" "M" "KM_中心线" "L" "center" "" "C" 1 "" "LW" 0.0 "" "") (command)<br/>(Command "-Layer" "M" "KM_规划红线" "L" "ACAD_ISO05W100" "" "C" 1 "" "LW" 0.5 "" "") (command)<br/>(Command "-Layer" "M" "KM_边线" "L" "continuous" "" "C" 5 "" "LW" 0.0 "" "") (command)<br/>(Command "-Layer" "M" "KM_既有桥" "L" "continuous" "" "C" 6 "" "LW" 0.0 "" "") (command)<br/>(Command "-Layer" "M" "KM_地面道路" "L" "continuous" "" "C" 3 "" "LW" 0.0 "" "") (command)<br/>(Command "-Layer" "M" "KM_说明标注" "L" "continuous" "" "C" 7 "" "LW" 0.0 "" "") (command)<br/>(command)</p><p>;;********* 纵断面设置初始化 *********<br/>(Command "-style" "KM_宋体" "宋体" 0.0 0.85 0.0 "" "" "") (command);<br/>(Command "-style" "KM_纵断面" "txt1.shx,smfs.shx" 0.0 0.85 0.0 "" "" "")<br/>(Command "-style" "KM_工点" "宋体" 3.5 0.75 0.0 "" "")<br/>(command "-linetype" "L" "Center" (findfile "ACAD.LIN") "" "")<br/>(command "-linetype" "L" "dashed" (findfile "ACAD.LIN") "" "")<br/>(command "-linetype" "L" "dot" (findfile "ACAD.LIN") "" "")<br/>(command)<br/></p><p>在2010中标注样式无法自动设置</p>
psj414
发表于 2009-10-14 10:17:00
看上去很不错
yizhi4669
发表于 2009-10-25 13:40:00
<p>在2010中加载，提示菜单标签为“--”，然后就非法退出了。</p><p></p>
yuguole
发表于 2009-11-4 08:07:00
<div style="FLOAT: left;"><img alt="发贴心情" src="http://www.mjtd.com/bbs/skins/Default/topicface/face1.gif"/></div><b></b><div style="MARGIN-TOP: 10px; FONT-SIZE: 12pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 0px; LINE-HEIGHT: normal; WORD-WRAP: break-word;"><p> 多谢楼主的奉献</p></div>
zwf100
发表于 2009-11-14 10:40:00
楼主实在太强大了
ghgh0130
发表于 2009-11-25 20:41:00
使用了,很不错哦!
fflwcn
发表于 2010-1-16 10:38:00
真的不错！
tianquan3
发表于 2010-1-17 04:00:00
<p><font face="Arial">非常棒的AutoCAD-Tools 谢谢分享！！</font></p>