急需LISP源码：钢材重量计算！

尘缘一生

如题：哪位高手有啊？
主要得到就是钢板计算问题。这对钢构设计太重要啦，我为此都花费大量时间，相信大家都需要。



解释：
    1：程序要求，点取"规格"一栏数据字符 ，比如：-180x8  ,关键这个数值不是纯数字，如何完美拆分相乘？存为变量1
    2:再点取"长度”一栏数据字符，存为变量2
    3：变量2X变量2X78.5=   变量 3
   4：变量3显示，或者点取“单重”一栏，自动修改准确值！  OK

尘缘一生

程序加上提示：实用性更好了。


;;; 门钢构件表重量自动计算  明经 zzxxqq 2014.5.26
(defun c:ccj (/ ss1 ss2 x1 x2 x3 txt1 txt2 ss3)
(while (and
      
      (princ "\n 选择门钢构件表第一栏: ")
      (setq ss1 (ssget ":E:S" '((0 . "TEXT") (1 . "*#*"))))
      (princ "\n 选择门钢构件表第二栏: ")
      (setq ss2 (ssget ":E:S" '((0 . "TEXT") (1 . "*#*"))))
      
     )
  (setq txt1 (cdr (assoc 1 (entget (ssname ss1 0)))))
  (if (wcmatch txt1 "*X*")
   (setq x1 (atof (substr txt1 2))
    x2 (atof (substr txt1 (+ 2 (vl-string-position (ascii "X") txt1))))
   )
   (setq x1 (atof txt1)
    x2 1
   )
  )
  (setq txt2 (cdr (assoc 1 (entget (ssname ss2 0)))))
  (if (wcmatch txt2 "#*")
   (setq x3 (atof txt2))
  )
  (setq re (* x1 x2 x3 0.00000785))
  (princ "\n 选择门钢构件表单件重量栏: ")
  (if (setq ss3 (ssget ":E:S" '((0 . "TEXT"))))
   (progn
    (setq ent (entget (ssname ss3 0)))
    (entmod (subst
         (cons 1 (rtos re 2 1))
         (assoc 1 ent)
         ent
        )
    )
   )
  )
)
(princ)
)
;;; 结束===========================================================*

qhdycm2017

这个还可以加上反应器 那效果就无敌了 钢板厚度 宽度长度数量有一个变化 自动算单重总重

尘缘一生

bai2000 发表于 2018-9-16 15:03
楼上的，举个例子

尘缘一生

对于这个帖子http://bbs.mjtd.com/thread-107027-1-1.html的编程是不行的，
原因：这个帖子是真对机械设计的，建筑设计用的是这样的表！

ZZXXQQ

程序测试通过

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

尘缘一生

ZZXXQQ 发表于 2014-5-26 08:29
程序未测试
[/post]

非常感谢，

我测试不能运行啊，
一：加载CAD运行提示：

“函数被取消Error: 函数被取消; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "blipmode" nil”

我是WIN7系统，64为，AUTOCAD 2010版本。

二：VLISP 编译出现错误提示为：

编译器发现致命错误 "TT.LSP"
Error: 编译器发现致命错误 "TT.LSP"
; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "blipmode" nil
_$

ZZXXQQ

尘缘一生 发表于 2014-5-27 07:58
非常感谢，

我测试不能运行啊，

二楼程序调试好了

尘缘一生

ZZXXQQ 发表于 2014-5-27 09:01
二楼程序调试好了

不会吧？我测试下，恩，好像对，需要变换单位下。

尘缘一生

再次表示感谢，调试成功！

2. ;;; 门钢构件表重量自动计算  明经 zzxxqq 2014.5.26
   
3. (defun c:mggl (/ ss1 ss2 x1 x2 x3 txt1 txt2 ss3)
   
4.   (while (and
   
5.      (setq ss1 (ssget ":E:S" '((0 . "TEXT") (1 . "*#*"))))
   
6.      (setq ss2 (ssget ":E:S" '((0 . "TEXT") (1 . "*#*"))))
   
7.    )
   
8.     (setq txt1 (cdr (assoc 1 (entget (ssname ss1 0)))))
   
9.     (if (wcmatch txt1 "*X*")
   
10.       (setq x1 (atof (substr txt1 2))
    
11.       x2 (atof (substr txt1 (+ 2 (vl-string-position (ascii "X") txt1))))
    
12.       )
    
13.       (setq x1 (atof txt1)
    
14.       x2 1
    
15.       )
    
16.     )
    
17.     (setq txt2 (cdr (assoc 1 (entget (ssname ss2 0)))))
    
18.     (if (wcmatch txt2 "#*")
    
19.       (setq x3 (atof txt2))
    
20.     )
    
21.     (setq re (* x1 x2 x3 0.00000785))
    
22.     (if (setq ss3 (ssget ":E:S" '((0 . "TEXT"))))
    
23.       (progn
    
24.   (setq ent (entget (ssname ss3 0)))
    
25.   (entmod (subst
    
26.       (cons 1 (rtos re 2 1))
    
27.       (assoc 1 ent)
    
28.       ent
    
29.     )
    
30.   )
    
31.       )
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )
    
36. 
    
37. ;;; 结束===========================================================*

;;; 门钢构件表重量自动计算  明经 zzxxqq 2014.5.26<br /> (defun c:mggl (/ ss1 ss2 x1 x2 x3 txt1 txt2 ss3)<br />   (while (and<br />      (setq ss1 (ssget ":E:S" '((0 . "TEXT") (1 . "*#*"))))<br />      (setq ss2 (ssget ":E:S" '((0 . "TEXT") (1 . "*#*"))))<br />    )<br />     (setq txt1 (cdr (assoc 1 (entget (ssname ss1 0)))))<br />     (if (wcmatch txt1 "*X*")<br />       (setq x1 (atof (substr txt1 2))<br />       x2 (atof (substr txt1 (+ 2 (vl-string-position (ascii "X") txt1))))<br />       )<br />       (setq x1 (atof txt1)<br />       x2 1<br />       )<br />     )<br />     (setq txt2 (cdr (assoc 1 (entget (ssname ss2 0)))))<br />     (if (wcmatch txt2 "#*")<br />       (setq x3 (atof txt2))<br />     )<br />     (setq re (* x1 x2 x3 0.00000785))<br />     (if (setq ss3 (ssget ":E:S" '((0 . "TEXT"))))<br />       (progn<br />   (setq ent (entget (ssname ss3 0)))<br />   (entmod (subst<br />       (cons 1 (rtos re 2 1))<br />       (assoc 1 ent)<br />       ent<br />     )<br />   )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;;; 结束===========================================================*

引申考虑：

           我LISP不精通，提点建议，如此好的代码，可以考虑编写一个“炸开文字和数字混编”的代码，就是文字炸开一起，数字炸开在一起，不要文字和数字字符都是单个的。

依然低调

我编写的总重计算，可以框选。

bai2000

楼上的，举个例子