说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

菜鸟正在学习BCB5控制CAD,问题颇多,苦于缺乏资料,请大虾指点明径

编辑:说三道四文库 发布时间:2017-10-19 10:10
HTML文档下载 WORD文档下载 PDF文档下载
代码如下:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant cad,obj1,obj2,obj3;
Variant pt1,pt2,pt3,pt4;
double tmp;
pt1=VarArrayCreate(OPENARRAY(int,(0,2)),varDouble);
tmp=150.0;
pt1.PutElement(&tmp,0);
 tmp=150.0;
pt1.PutElement(&tmp,1);
tmp=0.0;
pt1.PutElement(&tmp,2);
 pt2=pt1;
 tmp=150.0-30.0;
  pt2.PutElement(&tmp,0);
tmp=150.0-15.0;
pt2.PutElement(&tmp,1);
   pt3=pt2;
   tmp=150.0+30.0;
  pt3.PutElement(&tmp,0);
     pt4=pt1;


  tmp=150.0-20.0;
   pt4.PutElement(&tmp,1);

    cad=GetActiveOleObject("AutoCAD.Application");
    obj1=cad.OleFunction("ActiveDocument");
    obj2=obj1.OleFunction("ModelSpace");
    obj2.OleProcedure("AddBox",VarArrayRef(pt1),60.0,30.0,15.0);
    obj3=obj2.OleFunction("AddDimAligned",VarArrayRef(pt2),VarArrayRef(pt3),VarArrayRef(pt4));
      obj3.OlePropertySet("Color",3);


}

整个代码编译没问题,运行中出现:
   vt == rhs.vt @ VARIANT.CPP/421
  Press [Y]es to termianate,[N]o to continue and [C]ancel to Debug
按下“否”三次时,CAD中可以看到完整结果,按下“是”后进入VARIANT.CPP文件,如何解决此问题
另:如何更改标注中字体高度(CAD帮助中提到TextString有\H方法改动字体高度,没有成功)
呵呵,你的问题在于不要使用VarArrayRef,
改成
    cad=GetActiveOleObject("AutoCAD.Application");
    obj1=cad.OleFunction("ActiveDocument");
    obj2=obj1.OleFunction("ModelSpace");
    obj2.OleProcedure("AddBox",pt1,60.0,30.0,15.0);
    obj3=obj2.OleFunction("AddDimAligned",pt2,pt3,pt4);
    obj3.OlePropertySet("Color",3);

标注字高,我查查看..
可不可以多加点分...:)
给100分吧。
你用R14吧。
字高修改方法如下:


void __fastcall TForm1::Button1Click(TObject *Sender)
{
//OLE命令缩写
#define  PG  OlePropertyGet
#define  PS  OlePropertySet
#define  FN  OleFunction
#define  PR  OleProcedure

Variant CadApp,ThisDrawing,ModelSpace,TextStyle,DimObj;
Variant pt1,pt2,pt3,pt4;

double tmp;
pt1=VarArrayCreate(OPENARRAY(int,(0,2)),varDouble);
pt2=VarArrayCreate(OPENARRAY(int,(0,2)),varDouble);
pt3=VarArrayCreate(OPENARRAY(int,(0,2)),varDouble);
pt4=VarArrayCreate(OPENARRAY(int,(0,2)),varDouble);


tmp=150.0;
pt1.PutElement(&tmp,0);
tmp=150.0;
pt1.PutElement(&tmp,1);
tmp=0.0;
pt1.PutElement(&tmp,2);

tmp=150.0-30.0;
pt2.PutElement(&tmp,0);
tmp=150.0-15.0;
pt2.PutElement(&tmp,1);
tmp=0.0;
pt2.PutElement(&tmp,2);


tmp=150.0+30.0;
pt3.PutElement(&tmp,0);
tmp=150.0-15.0;
pt3.PutElement(&tmp,1);
tmp=0.0;
pt3.PutElement(&tmp,2);

tmp=150.0+30.0;
pt4.PutElement(&tmp,0);
tmp=150.0-20.0;
pt4.PutElement(&tmp,1);
tmp=150.0-15.0;
pt4.PutElement(&tmp,2);



    CadApp=GetActiveOleObject("AutoCAD.Application");
    ThisDrawing=CadApp.PG("ActiveDocument");
    ModelSpace=ThisDrawing.PG("ModelSpace");



    ModelSpace.PR("AddBox",pt1,60.0,30.0,15.0);

    TextStyle=ThisDrawing.PG("ActiveTextStyle");
    TextStyle.PS("FontFile","Romans.shx");
    TextStyle.PS("Height",3);

    DimObj=ModelSpace.FN("AddDimAligned",pt2,pt3,pt4);
    DimObj.PS("Color",3);
    
    ThisDrawing.PG("ActiveViewport").PR("ZoomExtents");

}
cker(有空就玩票...甭活得忒累...)你真是高人,请问你有此类有关资料吗?
请给我一些资料,免得我三天两头提问,又要麻烦您老人家,
只要拿到有用资料,
100分-----------没问题!!!!!!!!!!!!!!!!!
(最好能告诉您的学习经验及方法)
厉害呀
高手?。。。。

CKER摔倒在键盘上 。。。。
资料就在CAD14的VBA帮助里面呀。
打开cad的帮助,什么都有。可惜都是关于VB的。
但动动脑子,问题都是可以解决的。:-)
好像您的问题,我也是打开14的帮助,然后在
AutoCAD的Automation Reference里面狂看了一通。
就找到解决之道了。

当然CKER是单位的首席CAD绘图高手。
又懂一点点BCB.....
我真的没有任何书籍在手.
CKER能不能告诉我你在那里工作
http://www.csdn.net/author/cker/
破解WINDOWS屏幕保护密码 -VB资料 巧用VB编程使XMPLAYER自动播放VCD VB取得 WAV 文件信息 趣味撞球VB5应用程序一例 VB如何从"SOUND.DRV"中提取声音 VB如何设定墙纸的显示方式? VB如何用API及MMSYSTEM.DLL播放AVI文件 VB如何知道计算机是否安装声卡? 设计简单的屏幕保护程序 -VB资料 使机箱内的小喇叭发出不同的声音 -VB资料 使用VB设计具有「动感」的命令图标栏 五彩缤纷的清屏效果-VB资料 系统是否支持声音 -VB资料 一个实用的VB屏幕程序 一个自动更换墙纸的小软件-VB资料 VB用 VB 设 计 VCD 播 放 器 VB用API播放 .wav 声音文件 VB用MCI指令进行多媒体编程 用VB5.0编写自己的MP3播放器 用VB6.0编写电脑抽奖程序 用VB6的双通道技术获得影碟片断 用VBScript制作活动主页 用VB编写DirectX7.0游戏(下) 用VB编写FLASH动画播放器 用VB设计VCD播放器 用VB实现队列播放MP3 用VB实现屏幕滚屏保护效果 用VB制作下雪的特技景象 用VB自制屏幕保护程序 用Visual Basic实现多画面播放功能 雨滴式的显示图片 -VB资料 请大家谈一下win2000下VPN技术的实现 有关Libpcap的编译问题!急! .bak文件?请指教。 KMP算法求解~!!! 如何实现在线订购? 关于升级机器的问题 如何在Image中放大缩小一个WMF文件?还有如何去拖动这个放大缩小的WMF图片呢? 高手请指教 请教:如何由ip获得访问者所在地区 哪位兄弟教教我,如果实现自适应静音检测? 一个B-S结构的售楼软件的报价大致应该是多少? 我的确是做了错事,我决心去努力,但似乎力不从心? 100分 求《UML与Rational Rose从入门到精通》 急!各位高手关于要把多个DC放到一个pDC上显示的问题。 急。关于ppc和sybase的问题 请问编一个WINDOWS画笔 谁有c434009A主板的驱动程序。 请问在windows下如何实现像数据库一样的读、写锁? 为啥我在InstallShield中调用DLL中的函数总是出错呢? 如何能在HTML控件显示区域显示“....(指定的文件名)不存在”? 请问如何把TIF格式转换成JPG或GIF的格式?? 代理不能定时执行,请指教,谢谢。 怎样与外部数据库建立联合查询? 如何接受来自vbscript的字符数据列表 怎么在Gtk+的gnomemessagebox显示中文? (在线等待,急!)在vc中怎么使用datagrid控件 我使用的是odbc访问数据库 好急的问题,有关于SMS的接收字符处理问题,想了好几天没有结果 那位兄弟手头上有ASP.NET高级编程的电子书? DataGrid 控件问题,帮帮我把,朋友! automount? 一个比较难的问题! 关于datagrid的问题 在线等待 在cmd编辑器中用java运行已编译的文件运行不成功怎样解决 各位帮我解决一下这个问题!!!谢谢 关于ResourceManager的疑惑? 两台机器无法访问? 大家有没有听说过zebudom.js这个javascript的API?请问哪里可以下载它? 模块的连接 如何用php开发一个在线语音聊天室? 请问:有谁能提供Microsoft Project 2002简体中文专业版下载地址????急用!!!!!! 《The C++ Programming Language》有没有中译版? 请高手帮我看看: session的范围 硬件加、解密卡合作 请问那里能下到C或者C++的编译环境? 我的网页做好了,在我自己的机子上显示的很好看,在别的机子上有的显示的和在我的机子上显示的一样,很不错,但在有些机子上显示就变形了 怎样在文件中查找指定的字串? 为什么这两个查询都不能运行呢? 请教有关比对数据库的思路 运行结果出错!!!!!!!!!! 一个苹果四刀分成七份一个苹果,只能切四刀,分成七份.怎么分? 作文,走进诗歌王国 形容失望的神态. 班风建设问题如何写啊 参观了科技博物馆,知道了许多有关恐龙的知识.(修改病句) 日语 不一定把;未必吧.怎么说,要口语和书面语. 班风建设怎么体现?我们要进行班级风采大赛,要求展现班风建设,不知从何入手, 贱的书面语怎么讲?人的本性就是这样,可是不能老用贱来形容,可又不知道书面语怎么讲,有哪位资深一点的帮我解释解释?谢谢了我想重申一下 不是大街上骂街的那种“贱”,我指得是那种, 急需于丹庄子心得完整视频, 圆明园里面有几个小园 “嫂子”的书面语怎么讲,填申请表用, 急求于丹庄子心得读后感两篇800字就可以了 浅谈如何加强班风建设 理解的前提是什么(政治题,要书面语,不要自己说) 你们觉得于丹庄子心得怎么样啊于丹庄子心得在黄岩新华书店能否买到啊?我很喜欢于丹在百家讲坛里讲的那些道理哎.我真想每天看到听到于丹的《庄子》心得.如果有人知道那我非常感谢的. 马和驴的寓意 若点N(a,b)满足方程关系式a*2;+b*2;-4a-14a+45=0,(1)求u=b-3/a+2的最大值(2)求t=a*2;+b*2;的取值范围 关于于丹庄子心得的一道问题.第一篇是“庄子何其人”,有人批评说,何其是多么的意思,成了“庄子多么人”,而不是“庄子是怎样的人”.这有道理吗? 在图书馆,新生小林想借一本名著 你向他推荐 朝花夕拾 .下列不能作为推荐语的一项是 来看啊A.这本书记录了鲁迅先生的一些往事留下了他成长的足迹给人很多启发值得一 《马和驴》的寓意 予处理,这种写法在书面语里规范吗? 在图书馆,新生小琳想借一本名著,你向她推荐《朝花夕拾》.下列不能作为推荐语的一项是( )A.这本书记录了鲁迅先生的一些往事,留下了他成长的足迹,给人很多启发,值得一读.B.我喜欢这 圆明园有什么称呼 我平时很少看电视 用英语怎么说突出“平时” 人生自古多磨难,世间冷暖皆自知是什么意思? 长沙市博物馆作文50~100字 钢笔出水新买的钢笔,灌满了蓝黑的钢笔水,使着使着就不出水了,但是里面还有很多的钢笔水, 给我找篇大约300字关于中秋节的文章,题目叫中秋随想300字左右,叫中秋随想,不要太深奥,我说了是300字,不是3000字,看清楚咯,是300字,是300字,是300字,是300字,是300字,是300字,是300字 急寻狭路相逢勇者胜辩论反方的辩论词啊提供详细的辩论词 最好能提供此辩论赛的视频 关于钢笔出水Hero 565,其实正常写起来挺流畅,出水量也正好,但是有以下三个问题让我很头痛:1)出水流畅时写一小段时间,出水量突然增多,伴随一整滴墨从笔尖流出,在纸上流下一块让我很郁 狭路相逢勇者胜的辩论词 小明做了如下实验:①把一段带叶的植物枝条,用刀削成平整的斜面.②插入装有红墨水的烧杯中,置于阳光下照射.③待枝条基部颜色有变化后,取出枝条洗净.④在枝条上方横切和纵切植物枝条, 很少英语怎么说 看世间冷暖, 有没有在科技信息投过稿的,评价如何?在看的各位亲人,谁知道科技信息出刊怎么样,需要发论文,可杂志社也忒多了,挑的我眼花,同学以前发论文有上当受骗的,自己很担心~ 为什么钢笔能自动出水? 辩论 狭路相逢勇者胜马上有一场辩论赛,是狭路相逢勇者胜还是智者胜,我方是勇者胜,一辩陈词基本写完了,二三辩是提问题让对方回答,请大家帮着想想用什么问题能让对方很难回答,而更好的 科学发展是弊大还是利大 议论稿 100个字 我的钢笔为什么只有一边出水这个就是我钢笔的笔头左边出水,右边不出,有时候写的水断了,要重新上次水才能写 人间冷暖,何去何重, 琵琶行中琵琶女的演奏过程分为几个层次 这场比赛五(1)班打败了五(2)班获得了冠军加上不同的标点符号,表达两种意思 带时间陈述句改一般疑问句 意思是深入思考的四字成语是什么 怎么表达心情烦躁 把陈述句改为一般疑问句要怎么改?比如像名词性物主代词要改成什么? 高一数学题若点N(a,b)满足方程关系式a²+b²-4a-14b+45=0,则m=b-3/a+2的最大值为多少?答案是2+根号3 我现在很郁闷用什么能形容我的心情 将陈述句改一般疑问句They are going shopping tomorrow.是Are they going shopping tomorrow.还是Are they go shopping tomorrow.讲下为什么, 若点N(a,b)满足方程关系式a²+b²-4a-14b+45=0,则u=(b-3)/(a+2)的最大值 表姐和我是什么关系?用书面语? 陈述句 改一般疑问句怎么改 this flower is weak.2this is an orange 《琵琶行》中琵琶女的乐曲演奏有何发展变化 求兽医什么的爱好动物的人士帮帮我!今天早上,小猫是爬着回来的,本身是只流浪猫,我家是它我i恶意能找到吃的地方,它的下半身像没有知觉一样,偶尔会动那么一下,嘴巴禁闭,有呼吸困难的症 动物保健所有兽医吗? 小红做20道题,做错一道扣3分,对一道得5分,不做得0分,他错的和没做的一样多,作对了多少道题? 关于论语:“三人行,必有我师焉.择其善者而从之,其不善者而改之”的故事 有人知道 笑面冷暖心愈安 写诗人带着诗句的文章就和 04重庆满分作文 独上高楼 一样类型的文章,去看看 04重庆作文 独上高楼要这种类型的 形容十分失望、沮丧的神情的词语 卫计委:非诊治需要不得对儿童开展微量普京被评为全球最有影响力人物 奥巴马马凯会见爱尔兰总理肯尼中国公司赞助安哥拉发展乒乓球运动浙江武义江遭企业偷排 PH值、化学需俄驳日媒报道 称不会与日讨论中国“潜刘云山:确保教育实践活动善始善终、善中央第九巡视组进驻三峡集团开展巡视工国信办主任鲁炜:网聚正能量 共筑中国保加利亚查获大宗贩毒案巴基斯坦西南部发生爆炸袭击 造成至少全球十佳旅游城市排名揭晓 上海第六巴日美拟明年将普天间空中加油机转往岩国中国“北斗”即将在泰国落地使用宁夏“10·14”灭门杀人案犯罪嫌疑中组部:干部离退休3年内不得到原管辖杭州一大妈在城市空地种2000余株罂中国网络媒体论坛宣言“让网络清朗”中航工业否认为2.7万名员工配备iP世界关注中国“关键性会议” 将为长远内罗毕火车与公交车相撞死伤数十人“我收到了北大录取通知书”我省彩友擒获大乐透头奖“双响炮”原标题:日本安保法闯关参众两院 安倍2015长春汽博会 车·战特刊“我是车手”增加120个免费培训名额全省97家检察院改革工作将全部铺开这真是被开除的理由吗?想看好盘好物业就跟我们走本周末免费看“心所向,驰以恒”自信满满向30万辆奔驰星睿二手车业务在吉林启动日军侵华罪行又添铁证《满铁内秘文书》永吉警方:根本没接到报案长春市2015年上半年双色球盘点(下老人退休后坚持做好事60岁的刘晓庆怎么拍出30岁的照片?顶级高考专家组团来长6天课程赢定明年恒大城 北城核心 精装豪宅新尺度英菲尼迪全阵容亮相2015长春汽博会消防成功救出被困人员本周六、日百合装饰“狂抢购”再次袭来晨练时公厕还没开放 咋办?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘