[编程申请]：急求统计几个实体长度总长的程序

engpro · 发表于 2008-1-6 19:35:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

急求统计几个实体长度总长的程序

qiyu0588 · 发表于 2008-1-7 17:13:12

(defun c:test(/ curve tlen ss n sumlen)
  (vl-load-com)
  (setq sumlen 0)
  (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  (setq n 0)
  (repeat (sslength ss)
(setq curve (vlax-ename->vla-object (ssname ss n)))
(setq tlen (vlax-curve-getdistatparam curve
   (vlax-curve-getendparam curve)
         )
)
(setq sumlen (+ sumlen tlen))
(setq n (1+ n))
  )
  (alert (strcat "\n总长度: " (rtos sumlen 2 3) (princ "m")))
  (princ)
)

gogo9567 · 发表于 2008-1-22 10:53:10

这样也行？？？？？？？？？？？？

账号		自动登录	找回密码
密码			立即注册

[编程申请]：急求统计几个实体长度总长的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子