怎么做成表样式？

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)........]")))

是这个意思，但完整的怎么写？

账号		自动登录	找回密码
密码			注册