再谈获取曲线长度及VLAX类模块
明总:我在上个月请购了由张帆 郑立楷 王华杰三位老师编著的<<AutoCAD VBA开发精彩实例教程>>获益匪浅,我就是从这本书里才结识了明经通道网站的.特别拜读了第十章第五节的"使用VLAX类模块",使我对此问题有了一定的了解.但我有几个问题请教:<BR>1,关于获得曲线长度的方法,在上几次贴子里我已重复多次请教过,用书中提供的例子和您在网上发的贴子的源代码里,我均引用在我写的小程序里,结果在自己操作系统是XP,ACAD2005上均顺利通过,到了别人的操作系统是XP,ACAD2004上的好几台机子上却均出现了"加载应用程序错误",为此我折腾了好几天:将一台ACAD2004改装为ACAD2005,问题依旧.这有的能行有的不行,却是为何???<BR> 再则,获得曲线的长度采用Autolisp和Visual lisp 均比较简单,如下两段代码:<BR> ;;;求曲线长方法一<BR>(defun c:Curvelength()<BR> (command "area" "e" (ssget))<BR> (print (getvar "perimeter"))<BR>)<BR>;;;求曲线长方法二<BR>(defun c:CurveLength()<BR> (vl-load-com)<BR> (setq splineObj (car (entsel "\n选择线: ")))<BR> (setq Ldist (vlax-curve-getDistAtParam splineObj<BR> (- (vlax-curve-getEndParam splineObj)<BR> (vlax-curve-getStartParam splineObj)<BR> )<BR> ) <BR> )<BR> (print Ldist)<BR> (princ)<BR>)<BR>而采用VLAX类模块要写那样长的代码,调试又颇费周折,我在实际使用中便采用了后者,还请明老师指教!我特别不能明白的是,直接用书中所附光盘里的程序一字不改的加载运行,问题和上面所述一样!特在此洋洋洒洒写上一大篇,希望能从中学到更多东西!<BR> “加载应用程序错误”最主要的原因就是本身Visual LISP ActiveX控件没有注册。必须对其进行注册，置顶中已经提供有注册控件的函数，如果想手工注册，则在引用控件对话框中点击浏览，找到vl16.tlb文件(或其它相关版本文件)并确定就可以。<BR>为什么LISP那么简单，而VBA中那么复杂，其实如果只求长度，VBA也有简单的方法,也就是对象的Length属性，但它不支持所有的曲线对象，只支持直线及多段线。其它的如圆、弧等用其它的属性取得，圆使用Circumference 属性，弧用ArcLength属性。 谢谢明总!在2002上不行,明天到2004和2005上试试! mccad发表于2004-6-16 21:43:00static/image/common/back.gif“加载应用程序错误”最主要的原因就是本身Visual LISP ActiveX控件没有注册。必须对其进行注册，置顶中已经提供有注册控件的函数，如果想手工注册，则在引用控件...
明总:这一招也不灵!我将Visual Lisp ActiveX 控件添加,引用,打勾(我已经注意了版本),也不管用,问题依旧.<BR> <b>我曾经试验使用VLAX类提取曲线的坐标，但因为速度慢、运行不稳经常导致CAD崩溃而只好放弃，我估计VLAX类有毛病。</b>
页:
[1]