申请编一个LISP程序

xl6246

各位仁兄:


                                                                         我需要一个LISP程序


目的:能计算所有某一显示图层的线长和!(包括直线和曲线)


谁能帮帮我!谢谢!我的邮箱XL6246@HOTMAIL.COM.

meflying

(defun c:CalLong( / lay ss i ent len)
(setq lay (getstring "输入层名:"))
(setq ss (ssget "x" (list '(0 . "*line,arc") (cons 8 lay))))
(if ss
(progn
(setq i 0 Len 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq Len (+ Len (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent))))
(setq i (1+ i))
)
)
)
Len
)
(prompt "Enter CALLONG to launch the program!")

xl6246

运行不了!

meflying

怎么个运行不了法？？？


将上面代码在文本编辑器里存为*.lsp文件，用命令appload加载， 再输入命令：callong

f5612140

这傢伙应该漏了(vl-load-com)

meflying

哦，可能吧，现在我用2005，是不是默认就加载的啊，我从来都不去管他，所以几乎忘了这回事了

xl6246

显示：no function definition: VLAX-CURVE-GETENDPARAM


可我用的是2004；用r14也是一样的结果！

alin

5楼已回答了你的问题：前面加一句(vl-load-com)试试看。


ps:原来vlax-curve系列也接受图元名为参数，其它的也可以吗？