24小时热门版块排行榜    

查看: 1823  |  回复: 22
当前主题已经存档。

axue0475_cn

银虫 (小有名气)

再次求助!!!
chem 3D 虽然可以实现,并且图还算比较漂亮,但是修改坐标不能导入坐标文件,或者能一下粘贴所有坐标数据也行,不过可惜的是只能一个一个分别的粘贴每个X,Y,Z坐标。
郑重承诺:若有能让我实现一下就能把坐标填上,不管是导入TXT文件,还是DAT文件,或者是教会我一下就能粘贴上所有坐标的,一律重赏30金币!!!
http://emuch.net/bbs/viewthread.php?tid=171443&fpage=1&highlight=
21楼2006-09-01 09:58:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

玉米糊糊

我觉得用cad内嵌的vb二次开发就可以做到 以前做过二维自动绘图的开发 估计楼猪的也不麻烦 呵呵 如果你周围有会vb或者autolisp的都可以帮你的 写写小程序 应该比较快的 呵呵 最近在赶两个报告 这星期是没时间帮你了 楼猪不着急的话 可以把坐标 各种原子类型发给我 我琢磨琢磨 呵呵
22楼2006-09-01 10:27:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

玉米糊糊

引用回帖:
Originally posted by axue0475_cn at 2006-7-27 20:20:
怎么画高分子链三维结构图?

一个高分子链,一共60个左右碳原子,还有几个其他原子,现在得到每个原子的坐标,想用一种软件画出这些原子三维链结构图,每个原子用小球表示,不同的原子用不同颜色的小球表示, ...

既然楼猪告诉俺你以前用过vb 就比较好办了 我给你说一下方法:

从cad2000开始 autocad内部出了支持autolisp语言,还增加了
AutoCAD ActiveX,这样就可以使用VB进行二次开发。在程序中声明AutoCAD对象之后,就可以使用autocad的所有对象 属性和方法,例如在空间(x,y,z)出建立一个半径为r的球体,也就是你的原子,语法如下:RetVal=object.AddSphere(Center,Radius),其中RetVal为新创建的球体对象,Object为模型空间对象,Center为球心坐标,Radius为球体半径,球体创建好后,可根据球体所代表的原子类型赋予其不同颜色,只要修改球体对象对应的属性即可。

你只要将你要生成的那些原子的坐标 类型 写到一个文本文件里,程序运行之后就可以将这些数据自动读入到数组中,然后调用上面的语句 就可以在空间指定位置上自动生成你希望的那些原子了,至于原子之间的连接就是生成一个圆柱体而已了 呵呵 没啥技术难度  RetVal=Object.AddCylinder(Center,Radius,Height) Height就是两个球心坐标的之间的距离,地球人都知道咋算
23楼2006-09-06 09:38:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 axue0475_cn 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见