加载这个程序后运行不了

chenying0527 · 发表于 2011-7-5 22:36

加载这个程序后运行不了
(defun DivStr(str / i ch num num2)
   (setq i 1 num "")
   (repeat (strlen str)
   (setq ch (substr str i 1))
   (if (or (= ch "-") (= ch "x"))
   (progn
(setq num2 num)
(setq num "")
   )
   (setq num (strcat num ch))
   )
   (setq i (1+ i))
   )
   (* (atof num) (atof num2))
)

chenying0527 · 发表于 2011-7-5 22:37

请高手赐教

Andyhon · 发表于 2011-7-5 22:56

运行不了 ?
Command: (divstr "5x4")
20.0

chenying0527 · 发表于 2011-7-7 21:34

怎么在CAD里不能用这个程序

chenying0527 · 发表于 2011-7-7 21:35

回复 Andyhon 的帖子

怎么在CAD里不能用这个程序

Andyhon · 发表于 2011-7-7 22:30

您提供的资讯无从解读!?

Command: (divstr "5x4")
是何错误讯息!?

账号		自动登录	找回密码
密码			注册

[源码] 加载这个程序后运行不了