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

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

编辑:说三道四文库 发布时间:2017-08-24 05:05
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/
乐视TV:智能电视平台——Android 开发者的新空间 TIOBE 2012年12月编程语言排行榜:Objective-C冲刺卫冕年度语言 11月份浏览器市场份额 IE10已占据0.51% 亚洲高科技公司正在分享惠普、戴尔和IBM的云“午餐” Groupon创业启示:进军海外,请三思 天才之为责任:Unity CEO谈论Unity 4.0游戏引擎 中文版Evernote百宝箱上线:开发者海外推广新渠道 360产品被爆收集用户隐私 桌面安全路在何方 销售额达一万亿元 阿里巴巴成世界最大电商 共享软件海外营销策略与实战分析(武汉站)成功落幕 你未必知道的CSS故事:揭开leading的面纱 2013年 影响Web发展的5类API 《Warcraft是怎样炼成的》:多人对战、战争迷雾以及AI HBTC精彩回顾 Hadoop专家分享大数据技术工具与最佳实践 苹果iTV规格泄露:iOS应用开发的新蓝海 Facebook觊觎微信鼻祖WhatsApp,但谈不上收购 首款社交API应用 Facebook Messenger for Firefox正式上线! 共享软件海外营销策略与实战分析(沈阳站)成功落幕 移动之伤:为什么山寨游戏比原创更火? IBM在京发布PureData 主打数据交易处理、操作分析 Intel发布Hadoop免费版 全力拓展生态圈 突出图片搜索:微软向测试人员开放Socl社交搜索 豌豆荚创始人:和巨头竞争,我们拼产品和技术 “互联网女皇”报告解读:智能电视大趋势 苹果扩大其北卡罗莱纳州燃料电池发电场规模 Oracle回收站使用全攻略 微软这次很诚实:IE真的糟透了 Facebook进军短信业务,挑战微信鼻祖WhatsApp 从菜鸟到专家的五步编程语言学习法 亚马逊企业文化:从书贩到云服务巨头的催化剂 明年Google I/O大会日程敲定 或发Android“酸橙派”? 用过magicskin的请进。 无法于数据库建立信任连接的问题_高分有送! 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? 手机掉到马桶里你会怎么办? 各位前辈帮忙看一下这个语句怎么解决(这是一个关于SQL语句的问题) 请教 java 命令的用法 用session跟踪用户的问题。 Xml中查找最大值! 请PHP高手推荐几本高阶的PHP书籍 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? Unicode问题 str:=#0+'9'+#0+'5'+#0+'8'+'~'+#207+'m'+'N' 在线等待。。 定位文件指针? 如何用ADO动态建SQL数据库 哪有 《Visual C++ 实践与提高——COM和COM+篇》下载 iis 为啥总出现 "the special module not found" 学习powerbuilder8.0 看哪些书比较好? 200相送,问题简单 一个使用用户空间控制流程的问题,望各位帮忙解答,小弟感谢不尽,在线等待 iis 为啥总出现 "the special module not found"(补充) 菜鸟问题---applet中的Runable方法, 紧急求助 装机:双敏的UKT400N主板性能怎么样?有啥缺点?适合超频吗? 请问vc编制数据库问题:如何读写binary字段 Chinajiji,看过来!多谢惠寄ISO/IEC 14882 请教各位高手用replace函数替换字符串时如何将颜色也变掉 SQL7.0备份的数据库如何在SQL2K中恢复? 如何改变编译出来的.exe文件的名称 谁有这样的矢量图设计系统例程可以参考参考? 谁有AVL树的代码呀。大家来讨论AVL树呀。呵呵 Maya 新手 哪位大侠能提供矢量图设计的例程! 请高人指点这个题目该怎么解决? 打包打包~~~~~什么是打包?? 多文件上传,一个很奇怪的现象! revalidate();怎样用? 怎樣得到系統的所有根目錄(如 C:,D:,E:),及根目錄下的所有子目錄. 求将excel文件导入notes数据库的方法(最好有例子),分不够可以再给! 小弟欲购编程器,各位大侠给点意见,大分相送,绝不亏待! 100分求教 如何访问远程数据库???? 怎么样才能取消上网自动填入密码 有没有了解“串口-TCPIP通信”的高手,请介绍一下 怎么把Socket设置为非阻塞状态的 关于窗口间刷新的问题 AT89C51属不属于MCS-51系列? 在哪能找到这个控件 一个简单的问题 读取内码? 请教各位大侠,在.net中调用WNetAddConnection3 API函数,先谢谢了 我在ftp跟目录下有根目录和文本文件,想通过is_dir判断目录,然后只返回目录名,怎么实现? 怎么样才能取消上网自动填入密码的功能!!!急!!!在线等待 苟非吾之所有,虽一毫而莫取 重刊点校是什么意思 如图,∠BAC=30°,AM是∠BAC的平分线,过点M作ME‖BA交AC于点E,作MD⊥BA.垂足为D.若ME=10cm,则MD=__cm如图,∠BAC=30°,AM是∠BAC的平分线,过点M作ME‖BA交AC于点E,作MD⊥BA.垂足为D.若ME=10cm,则MD=______cm 把树木的年轮看成是圆形的,如果一棵20年树龄的红衫树的树干直径是23cm,这颗红衫树的半径平均每年增加多少? 色衰而爱弛,这句话什么意思 ? 线性代数 第八题 如果一棵20年树龄的红杉树的树干直径是23cm,这棵红杉树的半径平均每年增加多少?说明理由 图纸上标的比例是1:10,图上标号尺寸是1800mm,1800mm图上实测尺寸是70,请问这比例怎么换算? 线性代数,第三题. 回忆自己的读书感受,联系具体实例,说说自己从书籍中感受到哪些人类灵魂中的美丽 酷的意思 要快 以“珍爱生命,安全出行”为主题一篇文章500字左右 在求节水文章开头,不要写的太深也不要太浮浅, 这个男的很酷!这酷是什么含义? C语言程序问题,如下图对以一问题不了解:题中单项为正符号,双项为负符号,S=-S就能实现单双项符号交换,这是怎么回事?题目中有明显写直到某一项的绝对值小于10^(-6) 可解题时却写成/t/>10^ “且夫天地之间,物各有主,苟非吾之所有,虽一毫而莫取, 给酷是什么意思 如何计算各物质的浓度比如说H2(g)+I2(g)=2HI(g)各物质的浓度和平衡常数如何计算 小学一年级88页节约用水的作文怎么写 酷是什么意思 公司开会时使用的横幅用什么颜色的字啊,字体是什么,大概用多大的字呢 抗旱节水作文 500字 全满瓶子,半满瓶子 ,空瓶子,哪个更加容易破碎,为何? 香港地址请帮忙把下面地址翻译成英文,香港九龙尖沙咀弥敦道44号重庆大厦A座5室 求初二升旗手自我介绍(第一人称)200字本人无特长,无职务,无爱好,不乐观,不爱读书学习,成绩中等闲人免答,跪谢! 一张工程图纸比例是1比100,图纸上的一段距离是8000的话那实际距离的长度应该是多少? 求助香港地址MDM CHAN SAV KUENFLAT A , 24/F , BLK 1PITTOSPORUM COURT2 SHA TIN CENTRE STSHATINN, NT 苏轼:苟非吾之所有,虽一毫而莫取 说明了什么哲理吗? 1:60比例工程图纸如何计算实际距离 英语翻译Wan Chai tai yau plazacentral 38lyndhurst terracemong kok yan on buildingTsim Sha Tsui(Silvercord) silvercord no.30 canton road 除了石英砂以外 还有什么矿物可以用于铸造呢? 请大家给推荐硕士可以发的C刊,貌似C刊都要求博士,硕士可发什么啊,愁死了 英语翻译the world,ours.咋样 when is your parents birthday?这里is 为啥不变are 上海邮区中心局处理中心封发这句话是什么意思 问个香港地址,TSUNG TSIN MIDDLE SCH 11 KWONG LEE RD CHEUNG SHA WAN KOWLOON ,HONG KONG 00000 这是哪里啊?这具体在香港的什么地方啊?附近有没住宿的旅店? 写辛亥革命的作文,有哪些 2001年7月,《机会》意大利的米兰创刊.为了能一炮打响,董事长亨利·肯德里提议,请比尔·盖茨来写发刊词.最后,比尔·盖茨终于答应了牛油开往内罗毕的飞机上,可以接受一刻钟的采访.记者为采 英语翻译求高大上一点,不要有道翻译那种Here is my first world. 珍爱生命,安全出行 破瓶子破摔什么意思 香港地址..~~!求解释..谢谢Thanks for your application.We would like to inviteyou to attend an interview on 20-21 MAY 2013 at 10:am- 6:pm.Please bring along with your CV and ID card to our office address as below.1203 Tower A,Hunghom Comm.Cent 珍爱生命安全出行的名言 不抱怨手环为什么是紫色 有一本书240页,小红第一天看了全书的五分之一,第二天看了全书的四十分之七.第三天应从第几页看起?同上 填空:Every week he helps me _____(learn) math.quickly~ 不抱怨的世界.紫手环的含义. 有两根木料,一根长35分米,另一根长42分米米,现在要把他们截成相等的小段而没有剩余,每段最长分别是多少共截多少段? he writes( ) email to his parents every week. 深圳哪里有卖紫色手环(不抱怨的世界) 如图用12m长的木材做一个中间有一条横档且有一边靠着长度为8m墙的窗子.(1)若使进窗子的7 分钟前 提问者悬赏:10分 | 回墨迹 | 分类:数学 | 浏览13次如图用12m长的木材做一个中间有一条 my parents () to me every week 制冰机要用净水器吗? 番茄进行光合作用么 文言文中“苟非吾之所有”中的“之”是什么意思 黑刊的定义是怎么样的?也就是说什么样的刊物才是黑刊. 在圆O中,直径AB=10cm,弦AC=6cm,∠ACB的平分线交圆O于D,则BC=—cm,AD=—cm,BD=—cm 为什么说书是人类进步的阶梯? 足球即时指数刊是什么意思?不要广告 单位换算用列式计算吗?如1dm换成cm 1x10=10cm 朝鲜搭建新导弹发射平台英国窃听丑闻案开庭 默多克昔日爱将出无人机击毙索马里“青年党”高官美国驻也门大使馆虚惊一场 婚礼烟花被美国得州一男子五地疯狂射杀 致其母在利比亚枪手打劫央行5000万美元日防相称“中国危及和平” 中日关系陷美国十年逾百起医院枪击事件 FBI探利比亚枪手狂劫五千万美元演员有怪癖 只爱演死尸纽约手机可接收紧急警报捐肾牵良缘 悲剧变喜剧四条眼镜蛇盘绕 “守护”婴儿午睡印度高官建议用阉割强奸犯方法遏制强奸世行营商环境排名遭质疑公务报销作假引发公众愤慨 加拿大政府奥巴马考虑停止窃听盟国领导人泰国前总理阿披实被控谋杀英国报纸窃听丑闻开庭审理普京称苏联共青团不仅是政治还是友谊和美主持人就\"杀光中国人\"言论道歉网曝当街叫卖的邮件来自北京顺义 北京马云回应“169亿捐款流向境外”质疑山西“90后”痴心乡村公益 期望政府旅客春运乘车丢三落四 武汉铁路公安挽中国成品油价两连涨重返“六”时代林志颖午后开车外出 带墨镜造型帅气(浙江普高与中职学生可相互转学 可拿毕冷空气侵袭浙江绍兴 气温骤降乌云压城孟加拉国高僧阿底峡的故乡发现佛教遗址香港金管局再推楼市调控措施今冬大批境外游客飞赴黑龙江玩冰赏雪国家艺术基金2015年度资助项目3月江西“低头族”开车抢微信红包酿祸 三国羽三小将登上\"世界冠军墙\" 距厦商所成厦门自贸区首批入驻企业 谋建天津国家自主创新示范区将建四条千亿级四川巴中境内发生一起交通事故致4死1李克强:望斯方为中国投资提供良好法律江西广昌舞“桥灯”闹新春 祈愿风调雨四川发生三起交通事故致7死20多人伤广西融安“芒篙节”送福闹新春
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘