[求助]：求一能统计图中所有直线总长度的lisp？

szly1983 · 发表于 2007-12-18 17:39:42

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

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

×

有没有办法实现这样的功能，就是统计图中所有直线总长度的lisp？

Underway · 发表于 2007-12-18 18:20:55

http://www.google.com/search?as_ ... ts=&safe=images

qiyu0588 · 发表于 2007-12-19 08:09:46

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

pipeng611 · 发表于 2007-12-19 08:25:58

就在这个版块里以前发过类似的lisp
你可以找一下

szly1983 · 发表于 2007-12-20 11:02:03

多谢三楼，测试可行。非常感谢

杨哥 · 发表于 2007-12-20 12:28:50

不错

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

[求助] [求助]：求一能统计图中所有直线总长度的lisp？

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

相关帖子