那位仁兄知道缓和曲线怎么在CAD里面画出来
yanli117115
2005年09月20日 19:01:36
来自于铁路工程
只看楼主

那位仁兄知道缓和曲线怎么在CAD里面画出来,小第刚刚做设计谢谢了

那位仁兄知道缓和曲线怎么在CAD里面画出来,小第刚刚做设计谢谢了
免费打赏
ok_bridge
2005年09月20日 20:59:49
2楼
缓和曲线cad里是画不出来的,只有通过lisp程序或vba程序才能绘出来,我推荐一个《易桥工具箱》里面是绘桥的各种工具,有画缓和曲线的,不过也是一段段模拟出来的。
回复
ok_bridge
2005年09月21日 11:21:07
3楼
再上传一个绘制曲线的lisp程序:程序来xdcad网站xyp1964的帖子:

[->曲线绘制]
[1-星形线]^C^C^P(if(not c:qx1)(load"QXHZ"));qx1
[2-心脏线]^C^C^P(if(not c:qx2)(load"QXHZ"));qx2
[3-悬链线]^C^C^P(if(not c:qx3)(load"QXHZ"));qx3
[4-克莱线]^C^C^P(if(not c:qx4)(load"QXHZ"));qx4
[5-蜗牛线]^C^C^P(if(not c:qx5)(load"QXHZ"));qx5
[6-双蔓叶线]^C^C^P(if(not c:qx6)(load"QXHZ"));qx6
[7-曳物线]^C^C^P(if(not c:qx7)(load"QXHZ"));qx7
[8-摆线]^C^C^P(if(not c:qx8)(load"QXHZ"));qx8
[9-外摆线]^C^C^P(if(not c:qx9)(load"QXHZ"));qx9
[10-外摆线a]^C^C^P(if(not c:qx10)(load"QXHZ"));qx10
[11-蚌线]^C^C^P(if(not c:qx11)(load"QXHZ"));qx11
[11a-蚌线a]^C^C^P(if(not c:qx11a)(load"QXHZ"));qx11a
[12-8字型线]^C^C^P(if(not c:qx12)(load"QXHZ"));qx12
[13-三尖瓣线]^C^C^P(if(not c:qx13)(load"QXHZ"));qx13
[14-Devils曲线]^C^C^P(if(not c:qx14)(load"QXHZ"));qx14
[15-双叶线]^C^C^P(if(not c:qx15)(load"QXHZ"));qx15
[16-费马线]^C^C^P(if(not c:qx16)(load"QXHZ"));qx16
[17-长短幅圆外旋轮线]^C^C^P(if(not c:qx17)(load"QXHZ"));qx17
[18-等角螺旋线]^C^C^P(if(not c:qx18)(load"QXHZ"));qx18
[19-叶形线]^C^C^P(if(not c:qx19)(load"QXHZ"));qx19
[20-笛卡儿叶形线]^C^C^P(if(not c:qx20)(load"QXHZ"));qx20
[21-频率线]^C^C^P(if(not c:qx21)(load"QXHZ"));qx21
[22-肾形线]^C^C^P(if(not c:qx22)(load"QXHZ"));qx22
[23-双曲螺旋线]^C^C^P(if(not c:qx23)(load"QXHZ"));qx23
[24-圆内螺旋线]^C^C^P(if(not c:qx24)(load"QXHZ"));qx24
[25-圆渐开线]^C^C^P(if(not c:qx25)(load"QXHZ"));qx25
[26-杖头线]^C^C^P(if(not c:qx26)(load"QXHZ"));qx26
[27-双扭线]^C^C^P(if(not c:qx27)(load"QXHZ"));qx27
[28-蜗牛形线]^C^C^P(if(not c:qx28)(load"QXHZ"));qx28
[29-Lissajous曲线]^C^C^P(if(not c:qx29)(load"QXHZ"));qx29
[30-连锁螺线]^C^C^P(if(not c:qx30)(load"QXHZ"));qx30
[31-四次曲线]^C^C^P(if(not c:qx31)(load"QXHZ"));qx31
[32-抛物线]^C^C^P(if(not c:qx32)(load"QXHZ"));qx32
[33-肾脏线]^C^C^P(if(not c:qx33)(load"QXHZ"));qx33
[34-半立方抛物线]^C^C^P(if(not c:qx34)(load"QXHZ"));qx34
[35-梨形四次曲线]^C^C^P(if(not c:qx35)(load"QXHZ"));qx35
[36-平稳曲线]^C^C^P(if(not c:qx36)(load"QXHZ"));qx36
[37-Rhodonea曲线]^C^C^P(if(not c:qx37)(load"QXHZ"));qx37
[38-追踪曲线]^C^C^P(if(not c:qx38)(load"QXHZ"));qx38
[39-正环索线]^C^C^P(if(not c:qx39)(load"QXHZ"));qx39
[40-Talbot曲线]^C^C^P(if(not c:qx40)(load"QXHZ"));qx40
[41-蛇状线]^C^C^P(if(not c:qx41)(load"QXHZ"));qx41
[42-弯曲螺旋线]^C^C^P(if(not c:qx42)(load"QXHZ"));qx42
[43-阿基米德螺旋线]^C^C^P(if(not c:qx43)(load"QXHZ"));qx43
[44-瓦特曲线]^C^C^P(if(not c:qx44)(load"QXHZ"));qx44
[45-三次曲线]^C^C^P(if(not c:qx45)(load"QXHZ"));qx45
[46-牛顿三叉曲线]^C^C^P(if(not c:qx46)(load"QXHZ"));qx46
[47-三等分角线]^C^C^P(if(not c:qx47)(load"QXHZ"));qx47
[48-三等分角线]^C^C^P(if(not c:qx48)(load"QXHZ"));qx48
[49-魔线]^C^C^P(if(not c:qx49)(load"QXHZ"));qx49
[50-长短幅圆内旋轮线]^C^C^P(if(not c:qx50)(load"QXHZ"));qx50
[51-K曲线]^C^C^P(if(not c:qx51)(load"QXHZ"));qx51
[52-L曲线]^C^C^P(if(not c:qx52)(load"QXHZ"));qx52
[53-弹道曲线]^C^C^P(if(not c:qx53)(load"QXHZ"));qx53
[<-]
回复
zjx515
2005年09月21日 14:44:28
4楼
上传我刚做的两端设计缓和曲线的单曲线,电子表,自己设计出缓和曲线长度,圆曲线长度及转角后,可以到CAD中绘图,不过绘图要自己旋转坐标,少麻烦一点呀!
回复
yty007521
2005年09月21日 19:59:46
5楼
用伟地
回复
earyli
2005年09月22日 09:13:56
6楼
还是用我自编的一个小程序吧.
先打开2000以上版本的CAD,再运行我的程序,输入R、Ls直接在CAD原点处画缓和曲线,在移动到你需要的位置就OK了。
回复
yanli117115
2005年09月22日 17:00:27
7楼
谢谢楼上的老兄了,小弟以前在施工单位,现在刚刚来到设计院,以后还多多指教
回复
wanghan0903
2005年09月22日 17:46:28
8楼
业内的兄弟们真好!
我也知道了!
谢谢!尤其是2,3楼的兄弟!谢谢!
对了!楼主?
熟悉VB页面的制图吗?可以自己编的!很方便!几乎什么图线都可以!
你可以找个懂这方面的学一学!
哈哈!我只是学了个皮毛!还不很精通,所以爱莫能助了!
对不起!真不好意思!
回复
wzy219
2005年09月23日 11:22:38
9楼
不需要那么麻烦,在EXCEL中讲曲线的各点坐标求出来,将x坐标值放入A列,y坐标值放入到B列,再将A列和B列合并成C列,由于AutoCAD中二维坐标点之间是用逗号隔开的,所以在C2单元格中输入:"=A2&","&B2",C2中就出现了一对坐标值。用鼠标拖动的方法将C2 的的公式进行复制,就可以得到一组坐标值。
其次,选出所需画线的点的坐标值,如上例中C列数据,将其复制到剪贴板上,即按Excel中的复制按钮来完成此工作。   
最后,打开AutoCAD,在命令行处键入spline (画曲线命令),出现提示:"Object/:",再在此位置处点击鼠标右键,弹出菜单,在菜单中选择Paste命令,这样在Excel中的坐标值就传送到了AutoCAD中,并自动连接成曲线,单击鼠标右键,取消继续画线状态,曲线就画好了。   

通过上面的方法,可以很方便地绘制各种曲线或折线,并且在Excel中很容易地修改并保存坐标值。 ?

回复
songxuelun
2005年09月23日 17:20:13
10楼
我也来看看,学习为主
回复
wanghan0903
2005年09月23日 18:01:40
11楼
谢谢!
谢谢9楼的仁兄!小弟真开眼界!
谢谢!
学习!学习第一嘛!哈哈!
回复

相关推荐

APP内打开