丰富的桥梁绘图lisp源程序代码，二勘院的内部工具

好东东，学习学习，谢谢楼主

收到了谢谢楼主,是哪个院的

;defun C:dlm1(   )            画桩基墩立面图
                  ;defun C:dlm2(   )            画扩大基础墩立面图
                  ;defun c:ddm1(   )            画桩基墩断面图
                  ;defun c:ddm2(   )            画扩大基础墩断面图
                  ;defun C:dpm1(   )            画桩基墩平面图
                  ;defun C:dpm2(   )            画扩大基础墩平面图
                  ;defun C:tlm(    )            画U台立面图   
                  ;defun C:qqdm(   )            画前墙正断面
                  ;defun C:tdm(    )            画U台立面图
                  ;defun C:cqdm(   )            画U台侧断墙面图
                  ;defun C:tpm(    )            画U台平面图
                  ;defun C:ltlm1(  )            画桩基础肋板台立面
                  ;defun C:ltlm2(  )            画扩大基础肋板台立面
                  ;defun C:ltdm1(  )            画桩基肋板台断面图
                  ;defun C:ltdm2(  )            画扩大基础肋板台断面图              
                  ;defun C:ltpm1(  )            画桩基肋板台平面
                  ;defun C:ltpm2(  )            画扩大基础肋板台平面
                  ;defun C:yzd(    )            画圆折断线
                  ;defun c:fzd(    )            画方折断线
                  ;defun c:bc(     )            画标尺
                  ;defun C:zhu(    )            画柱
                  ;defun c:bz(     )            标注标高
                  ;defun c:lx(     )            高程，坐标法连接地面线     
                  ;defun c:bp1(    )            画垂直起终点示坡线
                  ;defun c:bp(     )            画任意角度示坡线
                  ;defun c:th(     )            在指定宽度内写出图号
                  ;defun c:dk(     )            在指定点断开线性实体
                  ;defun c:brt(    )            绕基线旋转

功能不少的，下载用用看，画图的好工具。
谢谢管理员上传分享

又是要阅读权限吗？？？？？

给老子，是个不错的东西。就是很多东西可以用cad自己就能实现了。里面的命令太多了。我先做个进一步的功能解释
;defun C:dlm1(   )            画桩基墩立面图
                  ;defun C:dlm2(   )            画扩大基础墩立面图
                  ;defun c:ddm1(   )            画桩基墩断面图
                  ;defun c:ddm2(   )            画扩大基础墩断面图
                  ;defun C:dpm1(   )            画桩基墩平面图
                  ;defun C:dpm2(   )            画扩大基础墩平面图
                  ;defun C:tlm(    )            画U台立面图   
                  ;defun C:qqdm(   )            画前墙正断面
                  ;defun C:tdm(    )            画U台立面图
                  ;defun C:cqdm(   )            画U台侧断墙面图
                  ;defun C:tpm(    )            画U台平面图
                  ;defun C:ltlm1(  )            画桩基础肋板台立面
                  ;defun C:ltlm2(  )            画扩大基础肋板台立面
                  ;defun C:ltdm1(  )            画桩基肋板台断面图
                  ;defun C:ltdm2(  )            画扩大基础肋板台断面图              
                  ;defun C:ltpm1(  )            画桩基肋板台平面
                  ;defun C:ltpm2(  )            画扩大基础肋板台平面
                  ;defun C:yzd(    )            画圆折断线
                  ;defun c:fzd(    )            画方折断线
                  ;defun c:bc(     )            画标尺
                  ;defun C:zhu(    )            画柱
                  ;defun c:bz(     )            标注标高
                  ;defun c:lx(     )            高程，坐标法连接地面线     
                  ;defun c:bp1(    )            画垂直起终点示坡线
                  ;defun c:bp(     )            画任意角度示坡线
                  ;defun c:th(     )            在指定宽度内写出图号
                  ;defun c:dk(     )            在指定点断开线性实体
                  ;defun c:brt(    )            绕基线旋转
;dmz  戴帽子  flds  分离式洞身  ztds  整体式洞身  fldk  分离式洞口  dkdq 洞口挡墙
;ltsdkl  楼梯式洞口立面  ltsdkp  楼梯式洞口平面 ltsdkd  楼梯式洞口断面 hdfk  涵洞分块
;bzyq   八字翼墙 bzdk  八字洞口 bzzp 八字锥坡 ghd2  管涵120度
;ghd8  管涵180度 ygzd  圆管涵左断面 ygzl  圆管涵左立面 ygzp 圆管涵左平面


里面很多子程序都可以直接调用，要是能翻译成windows界面就好了

[ 本帖最后由 cyxflyboy 于 2006-6-30 11:56 PM 编辑 ]

是好东西.我正在下载.谢谢楼主无私奉献.

有没有程序说明书之类的？

哈哈，这样的好东西当然要支持一下了

多谢！楼主厚道人士呀哈哈

不知源码加密没有 密没有

怎么不加过说明呢
那样就会好点阿

不知道怎么用，希望版主加说明
谢谢！

这个很老了，现在都有windows人机对话截面得程序了，哪用这么麻烦

真是个好东西，我们可以加以修改用作设计

学习一下,呵呵,谢谢楼主共享