zilong136 发表于 2024-5-13 12:54:36

怎么做成表样式？

怎么让下列代码做成一个表样式？


[*];;;9.0.圆弧【ac0】
[*](defun C:ac0 ()
[*]   (prompt "\n ac0:圆弧")
[*](vl-cmdf "arc")
[*](princ)
[*])
[*]
[*]
[*]
[*];;;9.1.三点圆弧【ac1】
[*](defun C:ac1 ()
[*]   (prompt "\n ac1:三点[圆弧]")
[*](vl-cmdf "arc" (getpoint "\n 指定圆弧的起点: ") (getpoint "\n 指定圆弧的第二个点: ") (getpoint "\n 指定圆弧的端点: "))
[*](princ)
[*])
[*]
[*];9.2.【ac2】起点、圆心、端点[圆弧]
[*](defun C:ac2 ()
[*]      (prompt "\n ac2:起点、圆心、端点[圆弧]")
[*]    (vl-cmdf "arc" (getpoint "\n 指定圆弧的起点: ") "C" (getpoint "\n 指定圆弧的圆心: ") (getpoint "\n 指定圆弧的端点: "))
[*](princ)
[*])
[*]
[*];9.3.【ac3】起点、圆心、角度[圆弧]
[*](defun C:ac3 ()
[*]      (prompt "\n ac3:起点、圆心、角度[圆弧]")
[*]    (vl-cmdf "arc" (getpoint "\n 指定圆弧的起点: ") "C" (getpoint "\n 指定圆弧的圆心: ") "A" )
[*](princ)
[*])
[*]
[*];9.4.【ac4】起点、圆心、长度[圆弧]
[*](defun C:ac4 ()
[*]      (prompt "\n ac4:起点、圆心、 长度[圆弧]")
[*]    (vl-cmdf "arc" (getpoint "\n 指定圆弧的起点: ") "C" (getpoint "\n 指定圆弧的圆心: ") "L" )
[*](princ)
[*])
[*]
[*];9.5.【ac5】起点、端点、角度[圆弧]
[*](defun C:ac5 ()
[*]      (prompt "\n ac5:起点、端点、角度[圆弧]")
[*]    (vl-cmdf "arc" (getpoint "\n 指定圆弧的起点: ") "E" (getpoint "\n 指定圆弧的端点: ") "A")
[*](princ)
[*])
[*]
[*]
[*];;;9.6.【ac6】圆弧:起点、端点、方向
[*](defun C:ac6 ()
[*]      (prompt "\n ac6:起点、端点、方向[圆弧]")
[*](command "arc" (getpoint "\n 指定圆弧的起点: ") "E" (getpoint "\n 指定圆弧的端点: ") "d" )
[*](princ)
[*])
[*]
[*];;;9.7.【ac7】圆弧:起点、端点、半径【ac7】
[*](defun C:ac7 ()
[*]      (prompt "\n ac7:起点、端点、半径[圆弧]")
[*](command "arc" (getpoint "\n 指定圆弧的起点: ") "E" (getpoint "\n 指定圆弧的端点: ") "r" )
[*](princ)
[*])
[*]
[*]
[*];9.8.【ac8】圆心、起点、端点[圆弧]
[*](defun C:ac8 ()
[*]      (prompt "\n ac8:圆心、起点、端点[圆弧]")
[*]    (vl-cmdf "arc" "C" (getpoint "\n 指定圆弧的圆心: ") (getpoint "\n 指定圆弧的起点: ") (getpoint "\n 指定圆弧的端点: "))
[*](princ)
[*])
[*]
[*]
[*];9.9.【ac9】圆心、起点、角度[圆弧]
[*](defun C:ac9 ()
[*]      (prompt "\n ac9:圆心、起点、角度[圆弧]")
[*]    (vl-cmdf "arc" "C" (getpoint "\n 指定圆弧的圆心: ") (getpoint "\n 指定圆弧的起点: ")"A")
[*](princ)
[*])
[*]
[*]
[*];9.10.【ac10】圆心、起点、长度[圆弧]
[*](defun C:ac10 ()
[*]      (prompt "\n ac10:圆心、起点、 长度[圆弧]")
[*]    (vl-cmdf "arc" "C" (getpoint "\n 指定圆弧的圆心: ") (getpoint "\n 指定圆弧的起点: ")"L" )
[*](princ)
[*])

飞雪神光 发表于 2024-5-13 19:13:06

表样式是什么样的？

zilong136 发表于 2024-5-13 19:54:28

飞雪神光 发表于 2024-5-13 19:13
表样式是什么样的？

除了命令行显示外，还要在屏幕区列表显示。

飞雪神光 发表于 2024-5-13 20:08:52

哦 感觉没什么意义

zilong136 发表于 2024-5-13 22:11:54

飞雪神光 发表于 2024-5-13 20:08
哦 感觉没什么意义

就是想不想在命令行里切换

lailaifa 发表于 2024-5-15 17:54:34

(initget "1 2 3 4 5 6") (setq keyword (getkword (strcat"[功能选择?/圆弧(1)/三点圆弧(2)........]")))

zilong136 发表于 2024-5-16 00:30:11

lailaifa 发表于 2024-5-15 17:54
(initget "1 2 3 4 5 6") (setq keyword (getkword (strcat"[功能选择?/圆弧(1)/三点圆弧(2)........]")))

是这个意思，但完整的怎么写？
页: [1]
查看完整版本: 怎么做成表样式？