怎样实现像command连续的命令

8142556 · 发表于 2018-1-27 14:14:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 8142556 于 2018-1-27 14:40 编辑

(command "bhatch" "p" "ar-conc" "4" "0" pt "")

怎么实现command这样的连续命令用dcl-sendstring遇到弹窗的好像就没办法了

marting · 发表于 2018-1-27 14:49:11

dcl-sendstring是你发送什么，就在命令行执行什么，和你拷贝粘贴到命令一样，你命令不能连续的执行下去，就不行了。和 dcl-sendstring没关系，和你写的代码有关系。
建议
1、如果想用COMMAND，就去用有命令行的版本
2、自己去写代码实现COMMAND的功能

8142556 · 发表于 2018-1-27 23:46:26

marting 发表于 2018-1-27 14:49

有命令行的版本是什么

newer · 发表于 2018-1-28 00:00:20

8142556 发表于 2018-1-27 23:46

自己在命令行输入(command "命令名")

比如：
(command ".hatch") ，如果命令行有提示你继续输入参数，而不是弹出对话框，就是有命令行版本了。大部分都有。

用之前，先设系统变量 filedia = 0

kqqt6236 · 发表于 2018-1-28 00:05:44

学习了。

8142556 · 发表于 2018-1-28 12:14:57

newer 发表于 2018-1-28 00:00

在CAD里设置了变量0后再输入(command ".hatch")就可以继续，但是LSP里用(command ".hatch")还是被拒绝

newer · 发表于 2018-1-28 12:47:32

8142556 发表于 2018-1-28 12:14

你要把命令的参数一次性都写完，直接生成hatch，别想交互。

8142556 · 发表于 2018-1-28 14:33:24

newer 发表于 2018-1-28 12:47

OK ，已经可以用command了，谢谢

8142556 · 发表于 2018-1-28 14:35:50

本帖最后由 8142556 于 2018-1-28 14:40 编辑

(defun c:wanfeng111 ()
(setvar "cmdecho" 0)
(command "pline")
)

不过这个只能在命令行输入 wanfeng111 才能用
在lsp里运行 c:wanfeng111 还是拒绝，我再研究研究

8142556 · 发表于 2018-1-28 15:29:31

(setvar "cmdecho" 0)
(defun C:MIAN ()
(setq name "box")
(setq n "1")
(setq ang "0")
(setq color "8")
(setq pt (getpoint"\n 选取内部点"))
(command "bhatch" "p" name n ang "co" color "." pt "")
)
(dcl-sendstring "mian\n")

用dcl-sendstring 发送进去可以了

newer · 发表于 2018-1-28 15:31:36

多搜搜entmake，少用命令。

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

[求助] 怎样实现像command连续的命令

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。