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

加载这个程序后运行不了

加载这个程序后运行不了
(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:44

请高手赐教

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

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

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

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

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

回复 Andyhon 的帖子

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

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

您提供的资讯无从解读!?
Command: (divstr "5x4")
是何错误讯息!?
页: [1]
查看完整版本: 加载这个程序后运行不了