用delphi对AutoCAD的二次开发的一些小问题(200分)

  • 主题发起人 主题发起人 nansha
  • 开始时间 开始时间
好啊，不过我知道的也不多，有时间交流吧，251553183
 
To 风雨中：晚上你上网方便吗？最近办公室上网，不是很方便，正在打报告申请Hub，过两天就好了，我晚上在家上网很方便
 
晚上一般都可以
 
再向大家提一个简单的问题:如何画一个带角度的线段?例如:起点(0,0),角度30度,长度500?
 
画角度的直线实现了，先水平画直线，然后旋转即可。
又有个个新问题：我在画不规则四边形（知道4条边的长度和各个夹角）时，按角度画，存在Pi（3.1415926....）这个不精确问题，最后一条连线闭合不好，不知有没有好的方法，例如怎样实现最后一条线的连接采用对象捕捉等。
 
新问题：在标注垂直直线时使用命令：AddDimAligned(startPoint,EndPoint,location)，
如果标注带角度的直线使用AddDimAligned(startPoint,EndPoint,location)就不行了，但在AutoCAD2004中标注垂直直线用的是dimlinear命令，而标注倾斜直线用的是DimAligned命令，在AutoCAD的帮助文件中找不到dimlinear命令，只能找到DimAligned命令，帮助上DimAligned显示也是标注倾斜直线，可在我编写的程序中DimAligned则全是标注垂直直线的，不知标注倾斜直线如何实现的？
 
又一次查看了帮助文件：解决了标注倾角的直线，使用命令
AddDimRotated(XLine1Point, XLine2Point, DimLineLocation, RotationAngle)可以实现，但显示的标注文字精确位数是4位小数，我想只要整数显示，不知如何实现？
 
所有倾斜标注已解决，闭合问题也解决，主要是确定每个点的坐标即可。就是标注文字精确位数是4位小数，我想只要整数显示，不知如何实现？
 
to:nansha
请教delphi中怎样实现CAD中捕捉的功能？

PS:我最近要弄一个凸轮，用delphi绘制凸轮廓线，因为点数比较多，每次捕捉的坐标都有偏差，所以绘出来的图像就有点乱。
 
to dhjs:最近1星期出差在外，刚回来。你说的对象捕捉是人机交互去捕捉？还是通过程序去捕捉某点？如果是通过程序，那相当于确定某点的坐标即可，这个就是存在偏差，我用到了cos(),sin()，存在Pi得误差，所以我闭合的也有偏差，放大了可以看清偏差，不放大，还可以。人机交互，我还没实现，不知如何实现？请指点。
 
用Delphi来实现人机交互难度大,并且稳定性不好.
最好是使用与Autocad的专用语言+delphi....(个人见解)
 
to cancheung：人机交互是不好实现，但在mzr的例子中有一个可以选择CAD中元件的程序动作，我研究了，实现的方法和我不一样，他用的是AutoCAD_TLB，我没用到，我试着用了一下他的例子，没编译成功，不知问题出在哪？
 
to nansha:
留个电话，想和你谈谈合作 qq:540375526
 
好啊！有钱大家挣！
 
好像有个delphiARX2000是delphi下CAD二次开发控件包，有哪位用过吗？
不知道哪儿有破解版？
 
我也下过delphiARX2000，没破解和说明，用不来，有用过的请跟贴交流一下。
 
用VC++开发AutoCAD是正当途径, delphi开发太弱. 开发接口:ObjectARX
 
呵呵，VC++没学，探索Delphi，希望感兴趣的朋友们共同探索！
 
大家是否看看我们的产品,脱离autocad,完全delphi源码.
TCAD
http://www.codeidea.com/cn/
 
您必须登录或注册才可回复。

Similar threads

D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
1K
DelphiTeacher的专栏
D
D
[译]Delphi for iOS开发指南(2):在Windows PC上配置你的开发环境
回复
0
查看
1K
DelphiTeacher的专栏
D
D
[译]Delphi for iOS开发指南(序):Delphi iOS应用程序开发
回复
0
查看
839
DelphiTeacher的专栏
D
后退
顶部