[软件]发一个CAD画各种地质线的小软件 [复制链接]

CROSS(谭光杰).rar (144 K) 下载次数:274

自己先顶一个！

好东西，得慢慢学。

没用过，说支持楼主，辛苦

好东西呀，慢慢来用用看，表扬！！

黑心老板 下软件你还收土币 小陈 太不给力啦～

哪儿在收土币哦～

没有使用说明

程序的使用方法和说明
  程序适用autocad2000及以上的版本。
  1.将程序解压后，可以将cross文件夹放在任何的目录下，但最好是放在autocad目录下。程序主要由
切剖面程序和填充图案制作程序两部分组成。
  2.打开autocad2000，从菜单->工具->加载应用程序中加载cross文件夹中的geoinit.lsp
文件，然后在命令行健入geoinit命令即可完成安装。
  3.完成安装后菜单栏将会插入标题为*地质*，名为cross的菜单，工具栏也会出现相应的工
具条。如果有同名的菜单，可以自行更改geo.mnu文件中相应的内容。
  4.限制。平面图的等高线要求是二维直线或新老多段线，也就是同一个线元要求是同一高程，
如果不是同一样高程，对直线有效高程是起点的高程，而多段线是最后一个顶点的高程。剖面线
不能拟合，如果是拟合，程序只会采用控制点，不提示错误。
  5.pbhelp为剖面程序的帮助命令，phelp为图案制作程序的帮助命令。
  6.自行构造剖面数据格式的说明见文件“剖面.txt”。
  7.边坡帮助见slope.dwg,没有正式验算过，计算结果仅供参考。  
  
                                     谭光杰(tanguangjie@sohu.com)
                                                2002.12.24

***MENUGROUP=cross
***pop1
[*地质*]
[切画剖面图]^c^cpb
[切剖面图]^c^cpm
[画剖面图]^c^cbm
[修改等高线]^c^cdgx
[--]
[图元输出到ansys]^c^cansys
[图元输出到ansys样条]^c^cans
[--]
[画视倾线]^c^csqx
[三点法求产状]^c^ccz
[交换线元起止点]^c^crevp
[输出线元坐标]^c^coutcoor
[文本放大]^c^cwb
[图框]^c^ctk
cc [封闭图形面积]^c^cdiyarea
cb [不等比缩放]^c^csxyz
[--]
[方形圆图案制作]^c^cmcsp
[菱形圆图案制作]^c^cmcp
[复杂图案制作]^c^cmkpat
[--]
[毕业设计]^c^cpd
[--]
[->边坡条分法]
[顺序计算]^c^cbp
[自动分条]^c^cautodivide
[附加参数]^c^cmaterial
[稳定计算]^c^cslope
[输入结果]^c^cresult
[输出坐标]^c^coutput
[<-帮助文件]^c^cshelp
[--]
[加载程序]^p(progn(load "pbmake.vlx")(princ)) ^p
[卸载菜单]^p(progn(command "menuunload" "cross")(princ)) ^p

***TOOLBARS
**geo
ID_geo [_Toolbar("地质", _floating, _show,200,90,1)]
ID_pb  [_Button("切画剖面图<pb>", "pb.bmp","pb.bmp")]^C^Cpb
Id_pm  [_Button("切剖面图<pm>", "pm.bmp","pm.bmp")]^C^Cpm
ID_bm  [_Button("画剖面图<bm>", "bm.bmp","bm.bmp")]^C^Cbm
ID_dgx [_Button("修改等高线<dgx>", "dgx.bmp","dgx.bmp")]^C^Cdgx
ID_sqx [_Button("画视倾线<sqx>", "sqx.bmp","sqx.bmp")]^C^Csqx
ID_thr [_Button("三点法求产状<cz>", "cz.bmp","cz.bmp")]^C^Ccz
ID_tk [_Button("画图框<tk>", "tk.bmp","tk.bmp")]^C^Ctk
ID_mscp [_Button("方形排列圆图案<mscp>", "mscp.bmp","mscp.bmp")]^C^Cmcsp
ID_mcp [_Button("菱形排列圆图案<mcp>", "mcp.bmp","mcp.bmp")]^C^Cmcp
ID_mkpat [_Button("复杂图案<mkpat>", "mkpat.bmp","mkpat.bmp")]^C^Cmkpat

***HELPSTRINGS

cc [封闭图形面积<diyarea>]
cb [不等比缩放<sxyz>]

不过切剖面图切出来的都是说明文件，也就是.txt格式的文件。可是我们一般是需要切出来的剖面图是dwg或者其他什么CAD能够打开的文件啊！请楼主帮忙解疑释惑！

把别人的东西拿来自己发 还不给别人表版权  鄙视！