求大神帮忙弄一个乘法的LSP

长乐

CAD里比如说有2个数据   一个是1  一个是2   运行后选择2个数据能得出乘积并且把值表示在CAD里的经常算钢筋量 老是要用EXCEL去算完再填进来，有大神帮个忙吗

jpg102329

2. (DEFUN C:TT(/  ELST NUM SS ice)
   
3.   ;;;选择集转图元名表001
   
4. ;【博士】水洗(924604042) 15:42:42
   
5. ;15:55 2017/3/9
   
6. (defun ice (s)
   
7. (if (/= 0 (sslength s))
   
8.   (cons (ssname s 0) (ice (ssdel (ssname s 0) s)))
   
9. )
   
10. )
    
11.   (setq ss(ssget '((1 . "*[0-9]*"))));只选取含数字的文本
    
12.   (or *zg(setq *zg (getreal"\n字高<3>")) (setq *zg 3))
    
13.   (or *diz(setq *diz (getint"\n位数<3>")) (setq *diz 3))
    
14.   (setq elst(ice ss))
    
15.   (setq num(apply'*(mapcar'atof(mapcar'vla-get-textstring(mapcar'vlax-ename->vla-object elst)))))
    
16.   (initget 3)
    
17.   (entmakex(list'(0 . "text")(cons 1 (rtos num 2 *diz))(cons 10(getpoint"\n文字位置"))(cons 40 *zg)))
    
18.   (prompt"\n***大懒猪荣誉出品***")
    
19.   (princ)
    
20.   )

(DEFUN C:TT(/  ELST NUM SS ice)<br />   ;;;选择集转图元名表001<br /> ;【博士】水洗(924604042) 15:42:42<br /> ;15:55 2017/3/9<br /> (defun ice (s)<br /> (if (/= 0 (sslength s))<br />   (cons (ssname s 0) (ice (ssdel (ssname s 0) s)))<br /> )<br /> )<br />   (setq ss(ssget '((1 . "*[0-9]*"))));只选取含数字的文本<br />   (or *zg(setq *zg (getreal"\n字高<3>")) (setq *zg 3))<br />   (or *diz(setq *diz (getint"\n位数<3>")) (setq *diz 3))<br />   (setq elst(ice ss))<br />   (setq num(apply'*(mapcar'atof(mapcar'vla-get-textstring(mapcar'vlax-ename->vla-object elst)))))<br />   (initget 3)<br />   (entmakex(list'(0 . "text")(cons 1 (rtos num 2 *diz))(cons 10(getpoint"\n文字位置"))(cons 40 *zg)))<br />   (prompt"\n***大懒猪荣誉出品***")<br />   (princ)<br />   )

长乐

jpg102329 发表于 2017-8-11 18:39

命令: AP APPLOAD 已成功加载 CAD乘法.LSP。
命令: ; 错误: 输入的字符串有缺陷
提示这个是怎么回事啊，求大神指导

ll_j

到我的网络U盘下载ca.lsp，专门计算钢筋表的。

xyp1964

长乐

xyp1964 发表于 2017-8-12 22:36

谢谢大神，:D

长乐

ll_j 发表于 2017-8-12 20:50
到我的网络U盘下载ca.lsp，专门计算钢筋表的。

谢谢大神

不语勿语

jpg102329 发表于 2017-8-11 18:39

非常 好用，

renhaitao_nice

请问5楼这样的动画是什么软件做出来的，我也想发点操作

paulpipi

太好用了谢谢分享！：