基本乘法表

harilalmn · 发表于 2022-7-6 10:01:33

大家好，
我只是Autolisp世界中的一个新生儿。所以，如果我的编码太不成熟，请原谅。。。

我试图创建一个生成乘法表的basic程序。但有点不对劲。。你能帮帮我吗？


(defun c:mtlb()
 (setq n (getint "\nEnter number:"))
 (foreach a (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16)
   (progn
   (setq string (strcat((itoa n) " x " (itoa a) "=" (* n a))))
   (princ string)
   )
 )
)

Guest kruuger · 发表于 2022-7-6 10:11:55

立即尝试：

copy

(defun c:MTLB (/ n a string)
 (setq n (getint "\nEnter number: "))
 (foreach a (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16)
   (setq string
     (strcat
       "\n" (itoa n) " x " (itoa a) " = " (itoa (* n a))
      )
   ) 
   (princ string)
 )
 (princ)
)