九九乘法口诀表

txc6853234

自己练练手的！！勿喷！！！！

2. (defun c:jiujiu()
   
3.   (setq pt (getpoint "选择九九乘法表插入点："))
   
4.   (setq a 1)
   
5.   (while (<= a 9)
   
6.     (setq b 9)(setq pta pt)
   
7.     (repeat (- b (1- a))
   
8.       (command "_.text" pta 10 "" (strcat (rtos a) " X " (rtos b) " = " (rtos (* a b))))
   
9.       (setq pta (polar pta (* 0.5 pi) 20))
   
10.       (setq b (1- b))
    
11.       )
    
12.     (setq pt (polar pt 0 100))
    
13.     (setq a(1+ a))
    
14.     )
    
15.   )

(defun c:jiujiu()<br />   (setq pt (getpoint "选择九九乘法表插入点："))<br />   (setq a 1)<br />   (while (<= a 9)<br />     (setq b 9)(setq pta pt)<br />     (repeat (- b (1- a))<br />       (command "_.text" pta 10 "" (strcat (rtos a) " X " (rtos b) " = " (rtos (* a b))))<br />       (setq pta (polar pta (* 0.5 pi) 20))<br />       (setq b (1- b))<br />       )<br />     (setq pt (polar pt 0 100))<br />     (setq a(1+ a))<br />     )<br />   )

炫翔

勿喷怎么说呢,
几点小建议,:)
1.变量要释放  
2.这里别用command ,尽量用entmake ,就算要用,也要关闭回显
3. (rtos a) 放在外层循环中
4.(* 0.5 pi) 放在循环的最外面

txc6853234

炫翔 发表于 2015-5-30 15:57
勿喷怎么说呢,
几点小建议,
1.变量要释放  

谢谢斑竹建议！！！

吴外安放

谢谢版主分享,很给力

xvjiex

感谢楼主分享九九乘法口诀表。