[LISP函数]：小东东，算工程量也许用的上

heaven77

(DEFUN C:LL ()
  (PRINC "\n此程序合计一组直线的总长度，请选择一组直线:")
  (SETQ OLDOS (GETVAR "OSMODE"))
  (SETVAR "OSMODE" 0);;;关闭对象捕捉
  (SETQ        SS    NIL
        TOTAL 0
        SS    (SSGET)
        N     (SSLENGTH SS)
  )
  (WHILE (> N 0)
    (SETQ N        (- N 1)
          ENT        (SSNAME SS N)
          SP        (CDR (ASSOC 10 (ENTGET ENT)))
          EP        (CDR (ASSOC 11 (ENTGET ENT)))
          D        (DISTANCE SP EP)
          TOTAL        (+ TOTAL D)

    )
  )
  (PRINC "\n共计算")
  (PRINC (SSLENGTH SS))
  (PRINC "根直线，总长度：")
  (PRINC TOTAL)
  (SETVAR "OSMODE" OLDOS);;;恢复原有对象捕捉特性
  (PRINC)
)

hsb-hy

楼主好，这个程序确实有用，如果是能将所求得的数值打印到到屏幕上指定的地方就更好了