再谈获取曲线长度及VLAX类模块

wmz · 发表于 2004-6-16 21:31:00

明总:我在上个月请购了由张帆郑立楷王华杰三位老师编著的>获益匪浅,我就是从这本书里才结识了乐筑天下网站的.特别拜读了第十章第五节的"使用VLAX类模块",使我对此问题有了一定的了解.但我有几个问题请教:
1,关于获得曲线长度的方法,在上几次贴子里我已重复多次请教过,用书中提供的例子和您在网上发的贴子的源代码里,我均引用在我写的小程序里,结果在自己操作系统是XP,ACAD2005上均顺利通过,到了别人的操作系统是XP,ACAD2004上的好几台机子上却均出现了"加载应用程序错误",为此我折腾了好几天:将一台ACAD2004改装为ACAD2005,问题依旧.这有的能行有的不行,却是为何???
   再则,获得曲线的长度采用Autolisp和Visual lisp 均比较简单,如下两段代码:
;;;求曲线长方法一
(defun c:Curvelength()
   (command "area" "e" (ssget))
   (print (getvar "perimeter"))
)
;;;求曲线长方法二
(defun c:CurveLength()
   (vl-load-com)
   (setq splineObj (car (entsel "\n选择线: ")))
   (setq Ldist (vlax-curve-getDistAtParam splineObj
   (- (vlax-curve-getEndParam splineObj)
   (vlax-curve-getStartParam splineObj)
   )
   )
   )
   (print Ldist)
   (princ)
)
而采用VLAX类模块要写那样长的代码,调试又颇费周折,我在实际使用中便采用了后者,还请明老师指教!
我特别不能明白的是,直接用书中所附光盘里的程序一字不改的加载运行,问题和上面所述一样!特在此洋洋洒洒写上一大篇,希望能从中学到更多东西!

mccad · 发表于 2004-6-16 21:43:00

“加载应用程序错误”最主要的原因就是本身Visual LISP ActiveX控件没有注册。必须对其进行注册，置顶中已经提供有注册控件的函数，如果想手工注册，则在引用控件对话框中点击浏览，找到vl16.tlb文件(或其它相关版本文件)并确定就可以。
为什么LISP那么简单，而VBA中那么复杂，其实如果只求长度，VBA也有简单的方法,也就是对象的Length属性，但它不支持所有的曲线对象，只支持直线及多段线。其它的如圆、弧等用其它的属性取得，圆使用Circumference 属性，弧用ArcLength属性。