如何在程序运行中加入参数设置的功能？

vbnewer · 发表于 2015-12-19 22:05:22

本帖最后由 vbnewer 于 2015-12-19 22:07 编辑

请问如何在程序运行中加入参数设置的功能？

比如AutoCAD的内置“旋转”命令，如下图，现在是选取点的状态，可以选取一个点，程序就完成了，但也可以输入“C”或者“R”来完成一些其他的设置，在lsp程序中如何实现这个效果？

Andyhon · 发表于 2015-12-20 09:32:17

Try initget
(initget [bits] [string])

chg · 发表于 2015-12-20 10:19:34

(initget 128)
(setq p0 (getpoint "\n指定第一点或/选择(Axxxx)/<选择(Bxxxx)> :"))
;;判断用户是选择了点还是输入了选项关键字
(if (= (type p0) 'str)
  ((wcmatch "A" (strcat (strcase p0) "*"))
      .......
((wcmatch "B" (strcat (strcase p0) "*"))
.........
   )
;;如果选择的是点，则程序继续执行
（......）

vbnewer · 发表于 2015-12-20 10:56:52

就是这个效果，非常感谢。

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

[已解答] 如何在程序运行中加入参数设置的功能？

本帖子中包含更多资源

相关帖子