急要一个计算线长的程序

急要一个计算线长的程序,可以多选的呀.

你直接在输入命令LIST就可以算了!

我要的是能够得出总和出来的只要你选取多小个它就能得出一个总数出来

你说的那个那也太那个那,如果是那个命令LIST只要输入LI就可以完成啦

list不可以,楼主是不是做镭射的

CAD可以自动计算呀

;;;********************************************************************1
;;;自动计算总周长和线割面积
;;;command: zzc
;;;2005-10-24     Chen Jian
;;;Version 1.1
;;;2004-01-13     Chen Jian
;;;Version 1.0
;;;MADE IN CHINA
(defun c:zzc (/ en1 en1-data en1-ccolor ss i sum en dd h pt area)
  (command "undo" "be")
  (setvar "cmdecho" 0)
  (princ "取得要计算对象的颜色")
  (setq en1 (ssget))
  (if (null en1)
    quit
  )
  (setq en (ssname en1 0))
  (setq en1-data (entget en))
  (setq en1-ccolor (cdr (assoc 62 en1-data)))
  (setq ss (ssget (list (cons 62 en1-ccolor))))
  (if (null ss)
    quit
  )
  (setq i 0)
  (setq sum 0)
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (command "lengthen" en "")
    (setq dd (getvar "perimeter"))
    (setq sum (+ sum dd))
    (setq i (1+ i))
  )
  (setq h nil)
  (setq h (getreal "\n料厚 H[15/18/20/22/23/25/30]<14>: "))
  (if (null h)
    (setq h 14.0)
  )
  (setq pt (getpoint "\n文字位置点: "))
  (setq area (* sum h))
  (princ (strcat "\n总长度=" (rtos sum 2)))
  (princ (strcat "线割总面积=" (rtos area 2)))
  (setq xx "autodim")
  (command "style" xx "MONOTXT.SHX" "0" "" "" "" "" "") ;
  (setvar "TEXTSTYLE" xx)
  (command "text"
           pt
           "2.5"
           "0"
           (strcat "COLOR:"
                   (rtos en1-ccolor 2 0)
                   " ALL-LENGTH="
                   (rtos sum 2)
                   " <TC>AREA="
                   (rtos area 2)
                   " T="
                   (rtos h 2 2)
           )
  )
  (setq ss nil)
  (command "undo" "e")
  (Princ
    "\n---------------Bye c:ZZC 自动计算总周长和线割面积---------------"
  )
  (prin1)
)

多谢你啦!!!!!!!!

软件下载地址：https://wt.mouldbbs.com/viewthrea ... &extra=page%3D1