乘法表帮助

Civ · 发表于 2022-7-6 06:52:14

此表已部分完成。为了创建产品，我需要安装嵌套循环的帮助。（定义c:mt（）
（setvar“cmdecho”0）
（setq osmode（getvar“osmode”））
（setq r270（*pi 1.5））
（Initget 7）
（setq stpt（getpoint“\n输入起点：”）
（initget 7）
（setq num（getint“\n输入行数：”）
（setq textheight（getvar“textsize”））
（setq distbet（*textheight 1.5））
（setvar“osmode”0）
（setq索引1）
（setq nextpnt（极性stpt r270 distbet））
（重复num
（命令“text”“j”“mc”nextpnt“0”（itoa索引））
（setq nextpnt（极地nextpnt r270 distbet））
（setq指数（+指数1））
)
（setq索引1）
（setq nextpnt（极性stpt 0 distbet））
（重复num
（命令“text”“j”“mc”nextpnt“0”（itoa索引））
（setq nextpnt（极轴nextpnt 0 distbet））
（setq指数（+指数1））
)

（setvar“osmode”osmode）
（普林斯）
)

David Bethel · 发表于 2022-7-6 07:26:29

欢迎来到CADTutor

虽然我不太理解您对循环的要求，但我还是冒昧地提供了一个表号创建的替代方案：

copy


[b][color=BLACK]([/color][/b]defun c:mt [b][color=FUCHSIA]([/color][/b]/ stpt num ts i[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 7[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq stpt [b][color=NAVY]([/color][/b]getpoint [color=#2f4f4f]"\nEnter the start point: "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 7[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq num [b][color=NAVY]([/color][/b]getint [color=#2f4f4f]"\nEnter the number of rows: "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq ts [b][color=NAVY]([/color][/b]getvar [color=#2f4f4f]"TEXTSIZE"[/color][b][color=NAVY])[/color][/b]
       i 1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]repeat num
   [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"TEXT"[/color][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 1 [b][color=BLUE]([/color][/b]itoa i[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 40 ts[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 72 1[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 73 2[b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 10 [b][color=BLUE]([/color][/b]polar stpt 0 [b][color=RED]([/color][/b]* i ts 1.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 11 [b][color=BLUE]([/color][/b]polar stpt 0 [b][color=RED]([/color][/b]* i ts 1.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"TEXT"[/color][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 1 [b][color=BLUE]([/color][/b]itoa i[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 40 ts[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 72 1[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 73 2[b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 10 [b][color=BLUE]([/color][/b]polar stpt [b][color=RED]([/color][/b]* pi 1.5[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]* i ts 1.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 11 [b][color=BLUE]([/color][/b]polar stpt [b][color=RED]([/color][/b]* pi 1.5[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]* i ts 1.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]setq i [b][color=MAROON]([/color][/b]1+ i[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

另外，请用[noparse]包装Autolisp代码
[code][/code][/noparse]标记

-大卫

David Bethel · 发表于 2022-7-6 07:40:24

再说一次，如果只是简单的数学表，那么你可以尝试：

copy


[b][color=BLACK]([/color][/b]defun c:mt [b][color=FUCHSIA]([/color][/b]/ stpt num ts i yp m[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 7[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq stpt [b][color=NAVY]([/color][/b]getpoint [color=#2f4f4f]"\nEnter the start point: "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 7[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq num [b][color=NAVY]([/color][/b]getint [color=#2f4f4f]"\nEnter the number of rows: "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq ts [b][color=NAVY]([/color][/b]getvar [color=#2f4f4f]"TEXTSIZE"[/color][b][color=NAVY])[/color][/b]
        i 1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]repeat num
[color=#8b4513];;;LABELS[/color]
   [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"TEXT"[/color][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 1 [b][color=BLUE]([/color][/b]itoa i[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 40 ts[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 72 1[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 73 2[b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 10 [b][color=BLUE]([/color][/b]polar stpt 0 [b][color=RED]([/color][/b]* i ts 2.0[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 11 [b][color=BLUE]([/color][/b]polar stpt 0 [b][color=RED]([/color][/b]* i ts 2.0[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"TEXT"[/color][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 1 [b][color=BLUE]([/color][/b]itoa i[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 40 ts[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 72 1[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 73 2[b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 10 [b][color=BLUE]([/color][/b]polar stpt [b][color=RED]([/color][/b]* pi 1.5[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]* i ts 1.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]cons 11 [b][color=BLUE]([/color][/b]polar stpt [b][color=RED]([/color][/b]* pi 1.5[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]* i ts 1.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
[color=#8b4513];;;PRODUCTS[/color]
   [b][color=NAVY]([/color][/b]setq yp [b][color=MAROON]([/color][/b]polar stpt [b][color=GREEN]([/color][/b]* pi 1.5[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]* i ts 1.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          m 1[b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]repeat num
      [b][color=MAROON]([/color][/b]entmake [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"TEXT"[/color][b][color=BLUE])[/color][/b]
                     [b][color=BLUE]([/color][/b]cons 1 [b][color=RED]([/color][/b]itoa [b][color=PURPLE]([/color][/b]* i m[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                     [b][color=BLUE]([/color][/b]cons 40 ts[b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]cons 72 1[b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]cons 73 2[b][color=BLUE])[/color][/b]
                     [b][color=BLUE]([/color][/b]cons 10 [b][color=RED]([/color][/b]polar yp 0 [b][color=PURPLE]([/color][/b]* m ts 2.0[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                     [b][color=BLUE]([/color][/b]cons 11 [b][color=RED]([/color][/b]polar yp 0 [b][color=PURPLE]([/color][/b]* m ts 2.0[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
      [b][color=MAROON]([/color][/b]setq m [b][color=GREEN]([/color][/b]1+ m[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]setq i [b][color=MAROON]([/color][/b]1+ i[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

根据字体的不同，您需要调整X轴的增加（我从1.5调整到2.0），产品越大，文本越大。

-大卫

Civ · 发表于 2022-7-6 08:05:11

我等不及要试试这个了。

[编程交流] 乘法表帮助

发表回复

精选推荐