iCAx开思网

标题: 急要一个计算线长的程序 [打印本页]

作者: lixinyi2005 时间: 2008-9-3 07:53
标题: 急要一个计算线长的程序
急要一个计算线长的程序,可以多选的呀.

作者: yyf-lyq 时间: 2008-9-3 18:35
你直接在输入命令LIST就可以算了!

作者: lixinyi2005 时间: 2008-9-4 08:01
我要的是能够得出总和出来的只要你选取多小个它就能得出一个总数出来

作者: lixinyi2005 时间: 2008-9-4 08:03
你说的那个那也太那个那,如果是那个命令LIST只要输入LI就可以完成啦

作者: autogao 时间: 2008-9-6 06:25
list不可以,楼主是不是做镭射的

作者: yxd76 时间: 2008-9-6 14:39
标题: 回复 1楼 lixinyi2005 的帖子
CAD可以自动计算呀

作者: chenjian1 时间: 2008-9-12 00:24
;;;********************************************************************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)
)

作者: lixinyi2005 时间: 2008-9-12 13:31
多谢你啦!!!!!!!!

作者: chariv9801 时间: 2008-9-20 10:34
标题: lisp 编写断面展开程序
软件下载地址：https://wt.mouldbbs.com/viewthrea ... &extra=page%3D1

欢迎光临 iCAx开思网 (https://www.icax.org/)