我我是个新手这个程序有点错误谁帮我看看

f5612140

铆钉发表于2004-4-20 20:42:00我这两个程序取少一个循环 每次在加（乘）完一组数后都要再重新运行程序 能帮我想一个办法一起可以加（乘）好多组数吗

;;-----------文字乘法----------
(defun c:wc ()
(setq cm (getvar "cmdecho"))
(setq os (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq qw (getint "\n ?出?值位?<2>："))
(if (= qw nil) (setq qw 2))
(setq zg (getreal "\n ?入字高<2>："))
(if (= zg nil) (setq zg 2))
(setq xs (getreal "\n ?入乘?系?<1>："))
(if (= xs nil) (setq xs 1))
(princ "\n ???乘?:")
(setq en (ssget))
(while en
(setq he 1)
(setq dd 0)
(setq n 0)
(repeat (sslength en)
(setq enn (ssname en n))
(setq endata (entget enn))
(setq entyp (cdr (assoc 0 endata)))
(setq dd (atof(cdr (assoc 1 endata))))
(setq he (* he dd))
(setq n (1+ n))
)
(setq he1 (* he xs))
(setq pt (getpoint "\n 文字位置?："))
(command "text" pt zg 0 (strcat (rtos he1 2 qw)) "")
(setq en (ssget))
)
(setvar "cmdecho" cm)
(setvar "osmode" os)
(prin1)
)

f5612140

铆钉发表于2004-4-20 21:04:00f5612140你好 支持路径我想到了 能在程序中加一句来解决这个问题吗

在支援路徑下 (findfile "檔名")

铆钉

f5612140谢谢了

铆钉

f5612140 有时间来我请你喝酒

f5612140

铆钉发表于2004-4-21 14:31:00f5612140



有时间来我请你喝酒

好吔,夏天到了,青島啤酒不錯

铆钉

但我在石家庄

f5612140

哈哈,不用客氣,青島啤酒在台灣各地都有賣,今天心情好,晚上自己買來喝

铆钉

怎么台湾也有青岛啤酒阿


你有oicq号吗