[LISP函数]：计算线加总长度

deborth_cba · 发表于 2004-11-27 17:22:17

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

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

×

计算线加总长度

deborth_cba · 发表于 2004-11-27 17:26:04

hellohello

秦始皇 · 发表于 2004-12-9 21:36:12

好象二楼的不能用呀。

xyp1964 · 发表于 2004-12-9 21:48:22

[php]
;;;如何将多条线段的长度自动计算求和？
(defun c:test ()
  (setq cmdech (getvar"CMDECHO") os (getvar"osmode") sum 0 i 0 ss (ssget))
  (setvar"CMDECHO"0)
  (setvar"osmode"0)
  (repeat (sslength ss)
(setq en (ssname ss i))
(command"lengthen"en"")
(setq l (getvar"perimeter"))
(setq sum (+ sum l) i (+ i 1) ) )
  (setvar"osmode"os)
  (setvar"CMDECHO"cmdech)
  (princ"\n选线总长 = ")
  (princ sum)
  (princ)
)
[/php]

lsjjm · 发表于 2004-12-10 03:44:07

或者这样：
[php]
(defun c:test ()
  (setq sum 0 i 0 ss (ssget '((0 . "*LINE"))))
  (repeat (sslength ss)
(command "_.list" (sslength ss) "")
(setq sum (+ sum (getvar"perimeter")) i (+ i 1))
  )
  sum
)
[/php]

sdwy19691229 · 发表于 2004-12-10 23:16:02

图形中不光是线啊！圆，弧呢？
我觉得这个程序不怎么实用。

xyp1964 · 发表于 2004-12-10 23:21:52

最初由 sdwy19691229 发布
[B]图形中不光是线啊！圆，弧呢？
我觉得这个程序不怎么实用。 [/B]

试了吗，就说？

zhengchuan1971 · 发表于 2004-12-15 22:21:40

defun c:cd()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq sum 0 i 0)
(setq ss (ssget))
(repeat (sslength ss)
(setq en (ssname ss i))
(command "lengthen" en "")
(setq l (getvar "perimeter"))
(setq sum (+ sum l)
i (+ i 1))
)
(setvar "osmode" os)
(princ"\n选线总长 = ")
sum

)

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

[LISP函数]：计算线加总长度

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

相关帖子

hello