请各位帮我看看这个程序错在哪里了？

chenying0527

我想用以下程序来计算"工字钢Ⅰ10-4450“的重量。请问这个程序错在哪里了
        (defun C:gc (/ a1 a2 h str i ch num num2 cj w m pt1 pt2 pt3)
        (princ "请选择需要相乘的文字\n")
        (setq a1 (entsel))
        (setq a2 (entget (car a1)))
         (setq h (cdr (assoc 40 a2)))
         (setq str  (cdr (assoc 1 a2)))
        (setq i 1 num "" )
        (repeat (strlen str)
        (setq ch (substr str i 1))
        (if (or (= ch Ⅰ) (= ch "-"))
        (progn
         (setq num2 num)
       (setq num "")
       )
       (setq num (strcat num ch))
     )
      (setq i (1+ i))
    )
  (if (= num2 "10")  
  (setq cj (* ( / (atof num) 1000)  11.261))
  )
(setq w 1)
(setq m (rtos cj 2 w))
(setq pt1 (getpoint "\n请选择所放点(中点自动计算)\n"))
(command "text" "m" pt1 h "0" m)
(prin1)
)
还请各位高手指点!
本人感激不尽!

chenying0527

在线等待中~~~~~~~~~~~

chenying0527

耐心等待中

chenying0527

想睡觉了~~~~~~~~~

cabinsummer

我改的，楼主对比一下

1. (defun C:gc (/ a1 a2 h str i ch num num2 cj w m pt1 pt2 pt3)
   
2.   (princ "请选择需要相乘的文字\n")
   
3.   (setq a1 (entsel))
   
4.   (setq a2 (entget (car a1)))
   
5.   (setq h (cdr (assoc 40 a2)))
   
6.   (setq str  (cdr (assoc 1 a2)))
   
7.   (setq i 1 num "")
   
8.   (repeat (strlen str)
   
9.     (setq ch (substr str i 1))
   
10.     (if (or (= ch Ⅰ) (= ch "-"))
    
11.       (progn
    
12.         (setq num2 num)
    
13.         (setq num "")
    
14.       )
    
15.       (setq num (strcat num ch))
    
16.     )
    
17.     (setq i (1+ i))
    
18.   )
    
19.   (if (wcmatch num2 "*10")  
    
20.     (setq cj (* (/ (atof num) 1000)  11.261))
    
21.   )
    
22.   (setq w 1)
    
23.   (setq m (rtos cj 2 w))
    
24.   (setq pt1 (getpoint "\n请选择所放点(中点自动计算)\n"))
    
25.   (command "text" "J" "m" pt1 "0" m)
    
26.   (prin1)
    
27. )
    

(defun C:gc (/ a1 a2 h str i ch num num2 cj w m pt1 pt2 pt3)<br />   (princ "请选择需要相乘的文字\n")<br />   (setq a1 (entsel)) <br />   (setq a2 (entget (car a1)))<br />   (setq h (cdr (assoc 40 a2))) <br />   (setq str  (cdr (assoc 1 a2)))<br />   (setq i 1 num "")<br />   (repeat (strlen str) <br />     (setq ch (substr str i 1))<br />     (if (or (= ch Ⅰ) (= ch "-"))<br />       (progn <br />         (setq num2 num)<br />         (setq num "")<br />       )<br />       (setq num (strcat num ch))<br />     ) <br />     (setq i (1+ i))<br />   )<br />   (if (wcmatch num2 "*10")  <br />     (setq cj (* (/ (atof num) 1000)  11.261))<br />   )<br />   (setq w 1) <br />   (setq m (rtos cj 2 w)) <br />   (setq pt1 (getpoint "\n请选择所放点(中点自动计算)\n"))<br />   (command "text" "J" "m" pt1 "0" m) <br />   (prin1)<br /> )<br />

chenying0527

(if (wcmatch num2 "*10")  这里为什么要用"wcmatch",直接用"="不行嘛,还有为什么是"*10"而不是"10"呢。谢谢

chenying0527

谢谢，还得多加努力