zhh101 发表于 2005-9-10 12:26:00

计算钣金件展开长度和冲裁力的程序

本帖最后由 作者 于 2005-9-19 15:48:54 编辑

我在网上下了一个计算钣金件展开长度的AUTOCAD.LISP小程序,经过二楼朋友的指点,我在上面加了算冲裁力(现在还只能算A3材料的冲裁力,其他材料因为我不常用所以我没加上去),另外根据材料厚度"T"和展开长度"TL"画展开图:

zhh101 发表于 2005-9-13 21:20:00

谢谢你,我按你的意思改了程序,现在一却正常,

ZZXXQQ 发表于 2005-9-12 21:43:00

估计是特征点捕捉打开闹的。将最后的函数更改如下：

(defun c:ZK()
(setvar "cmdecho" 0)
(textscr)
(print " 1. 计算长度 " )
(print " 2. 计算展开 " )
(initget (+ 1 2 4))
(setq c (getint "\n 请选择 ( 1 2) "))
(setq t (getreal "\n 请输入材料厚度 t = "))
(setq sst (ssget))
(setq n (sslength sst))
(setq I 0)
(setq tl 0)
(setq l 0)
(while (< I n)
(setq ety (entget (ssname sst I)))
(setq name (cdr (assoc 0 ety)))
(cond ((= c 1) (CL))
      ((= c 2) (ZKA))
)
(setq TL (+ TL L))
)
(cond ((= c 1) (princ "\n 总长 L = ") (princ TL) (print " OK "))
       ((= c 2)
      (princ "\n 总长 L = ")
      (princ TL)
      (setq pa (getpoint "\n 请输入点坐标:"))
      (setq pb (polar pa 0 TL))
      (setq pc (polar pb (/ pi 2) t))
      (setq pd (polar pa(/ pi 2)t))
      (SETQ OLSOS (GETVAR "OSMODE"))
      (SETVAR "OSMODE" 0)
      (command"pline" pa pb pc pd "c")
      (SETVAR "OSMODE" OLDOS)
       )
)
)

gyg2004_1977 发表于 2008-10-17 19:39:00

<p>好!!顶你!!</p>

AMTONNY 发表于 2008-10-19 06:44:00

<p>偶顶</p>

混沌初开 发表于 2013-11-29 00:03:47

请问楼主想要修改展开系数怎么办？

Noangler 发表于 2023-3-23 16:04:08

感谢分享，不想要这个算冲裁力的。
页: [1]
查看完整版本: 计算钣金件展开长度和冲裁力的程序