申请编一个LISP程序

xl6246 · 发表于 2004-7-6 16:32:00

各位仁兄:
我需要一个LISP程序
目的:能计算所有某一显示图层的线长和!(包括直线和曲线)
谁能帮帮我!谢谢!我的邮箱XL6246@HOTMAIL.COM.

meflying · 发表于 2004-7-6 16:40:00

(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!")