请问这个函数可以实现字符串-12x200中的12与200相乘嘛?

chenying0527

请问这个函数可以实现字符串-12x200中的12与200相乘嘛?
(defun c:CX ()
(setq i 1 num "")
(princ "请选择需要相乘的第一个数字\n")
(setq a1 (entsel))
(repeat (strlen a1)
(setq ch (substr a1 i 1))
(if (or (= ch "-") (= ch "x"))
(progn
(setq num2 num)
(setq num "")
)
(setq num (strcat num ch))
)
(setq i (1+ i))
)
(* (atof (cdr (assoc 1 (entget (car (num)))))) (atof (cdr (assoc 1 (entget (car (num2)))))))
)
如果不能实现又要怎么改才能实现呢？
感激不尽

zhynt

2. 
   
3. (defun c:CX ()
   
4.   (arxload (findfile "geomcal.arx"))
   
5.   (setq        i   1
   
6.         num ""
   
7.   )
   
8.   (princ "请选择需要相乘的第一个数字\n")
   
9.   (setq a1 (cdr (assoc 1 (entget (car (entsel))))))
   
10.   (repeat (strlen a1)
    
11.     (setq ch (substr a1 i 1))
    
12.     (if        (or (= ch "x") (= ch "X"))
    
13.       (setq ch "*")
    
14.     )
    
15.     (setq num (strcat num ch))
    
16. 
    
17.     (setq i (1+ i))
    
18.   )
    
19.   (setq jieguo (cal num))
    
20. )
    
21. 
    

<br /> (defun c:CX ()<br />   (arxload (findfile "geomcal.arx"))<br />   (setq        i   1<br />         num ""<br />   )<br />   (princ "请选择需要相乘的第一个数字\n")<br />   (setq a1 (cdr (assoc 1 (entget (car (entsel))))))<br />   (repeat (strlen a1)<br />     (setq ch (substr a1 i 1))<br />     (if        (or (= ch "x") (= ch "X"))<br />       (setq ch "*")<br />     )<br />     (setq num (strcat num ch))<br /> <br />     (setq i (1+ i))<br />   )<br />   (setq jieguo (cal num))<br /> )<br /> <br />

chenying0527

非常感谢。继续学习

chenying0527

可以说一下我的程序为什么不能实现嘛？

chenying0527

回复 zhynt 的帖子

可以说一下我的程序为什么不能实现嘛？

ljpnb

chenying0527 发表于 2011-7-10 18:01
回复 zhynt 的帖子

可以说一下我的程序为什么不能实现嘛？

错误太多,不好讲;
给你一些建议,在编程的时候,可以用Visual LISP编译器来调试,可以逐步来检查,注意看它的返回值是什么.象(setq a1 (entsel)) 它的返回值是一个图元名与坐标值的列表,接下来这句(repeat (strlen a1)就明显错误了....

chenying0527

谢谢，还得努力啊