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

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-16

• #1

热烈欢迎对AutoCAD二次开发感兴趣的朋友们！
领导安排了活，是对AutoCAD的二次开发，我手头也有一些资料，可是不全，因初次涉入这个领域，网上大部分是用Vba开发的，用Delphi开发的有，但不多，大多都是画个直线，画个圆之类的，AutoCAD的帮助文件也是Vba的，脑袋苯，看了，也试了，不成，所以特提出以下问题，请热心的朋友帮帮忙：
1、如何设定当前线型？
2、如何标注尺寸？
3、如何画带箭头的线？
4、随着课题的进展问题还在出现中。。。
我提的每个问题分值100，欢迎答题！
QQ:530741837,更欢迎对AutoCAD二次开发感兴趣的朋友们加我的QQ，互相学习，交流资料，互相进步！

 

M

mzr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-16

• #2

到 http://www.tomore.com上找。我在上面放了不少相关源码。

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-17

• #3

非常感谢mzr兄的指引，你修改的例子我看了，很好！给我指引了看AutoCAD2004的帮助文件里，有非常详细的例程，虽然是VBA的，英文的，但帮助很大。设定线型解决了，标主尺寸解决了，但解决的都不很理想，还存在以下问题：
1、在CAD中如果没有我想要得线型，就加栽，但在加栽的过程中出现问题了，程序如下：
lts:=acaddoc.linetypes;
lt:=lts.item(i);
for i:=0 to lts.count -1 do
begin
if lt.name='Dashed' then
acadDoc.SetVariable('CELTYPE','Dashed')
else
begin
lt:=lts.load('Dashed','acad.Lin');
acadDoc.SetVariable('CELTYPE','Dashed');
end
end;
虽然编译通过，但在运行时出现“记录名重复”，不知道哪个地方写错了！
2、标注线都标好了，文字也标上了，但是标注线和我要标注的直线重合在一起，也就是箭头两端的垂直直线段的长度如何设置，也就是标注线和我想要标注的直线间的距离如何设置！期待。。。

 

G

guofengdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-17

• #4

楼上的兄弟，各位专家：
你在做什么系统？
我最近也在研究这方面的东西，现在我有个问题：现在用autocad中划个图形，和delphi结合起来，就是说，cad的一些图形信息保存在数据库中，然后delphi进行控制。
我想问的是：一个图形，我用一种红颜色把这个图形填充后，在delphi中怎么获取这个信息，然后把这个图形的相关属性数据保存到数据库？

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-18

• #5

我再做一个工程制图软件，主要是二维画图、材料统计和价格分析等，你能不能把你填充的图形参数直接写入数据库，下次直接从数据库中调入！谢谢你加入进来！欢迎经常提问题！共同进步！

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-18

• #6

又有新问题了：
1、画的线的粗细的属性不知，不知如何设置？如：我要画1mm粗的线？
2、我添加的文字如何设置它的字体？如：“宋体”？

 

G

guofengdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-18

• #7

你好，碰巧，我现在也在研究工程仿真图形方面的东西，咱们可以交流一下。
你的系统现在怎样了

 

G

guofengdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-18

• #8

我想做一个软件关于工程进度、自动计算工程量等方面的信息。
应该和你的差不多。你的思路是什么？

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-19

• #9

to：guofengdelphi，我是做的平面二维图，制图和材料及价格的自动计算，能留下你的QQ号吗？晚上联系！

 

G

guofengdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-20

• #10

to:nansha

我的qq:32139299

 

H

huysnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-21

• #11

我也有这方面的想法,想做一个二维地图可以一起讨论吗?
我的QQ号,是331890218

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-21

• #12

热烈欢迎！非常感谢网络（大富翁论坛）平台，认识你们！和你们共同学习，共同进步！因昨夜有两幅图要赶，没上网！今晚QQ上见！

 

G

guofengdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-22

• #13

什么两幅图,要自己画 啊?

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-24

• #14

周末提前，希望碰到对CAD二次开发感兴趣的朋友！

 

风

风雨中

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-02

• #15

留个名，学习中。

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-03

• #16

风雨中：可以告知你正在忙什么项目？

 

F

free__eagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-03

• #17

这太简单
了 []

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-03

• #18

to free_eagle:用实例说话，
1：标注线都标好了，文字也标上了，但是标注线和我要标注的直线重合在一起，也就是箭头两端的垂直直线段的长度如何设置，也就是标注线和我想要标注的直线间的距离如何设置！
2：画的线的粗细的属性不知，不知如何设置？如：我要画1mm粗的线？
今天自己解决：“宋体”字体的添加！

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-03

• #19

还有一个问题：添加多行文字：
startPoint[0]:=-310;
startPoint[1]:=80;
startPoint[2]:=0;
acadDoc.ModelSpace.addMText(varArrayRef(startPoint),5,'说明：'+#13#10+'1.本图单位尺寸以米计，管径单位以毫米计');
在CAD中显示的是乱码？不知是什么原因？

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-07

• #20

又有一个新问题：人机交换？具体就是，我现在想选择屏幕上CAD软件上已有的点、线、文字等，通过button去选择屏幕上的线或文字，然后对我选择的文字就行操作？
我查阅了资料，通过“SelectOnScreen”进行选择，可我试了，不成，可能使我没有领透这个命令，希望感兴趣的朋友指点一二！free__eagle---me？
标注线问题自我已经解决！