[求助]：如何做成透明命令

ewenhui · 发表于 2006-5-22 16:45:42

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

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

×

此程序错在哪里？使用move命令调用时要用“P”才可以，请问该如何改进？
[php](defun xs ( / e ee)
  (cmdla0)
  (setvar "cmdecho" 0)
  (setq e (uint 7 "" "\n颜色号：1.红色 2.黄色 3.绿色 4.青色 5.蓝色 .....:" 1))
  (cond ((= e 1)
      (setq ee (ssget '((62 . 1)))))
      ((= e 2)
      (setq ee (ssget '((62 . 2)))))
      ((= e 3)
      (setq ee (ssget '((62 . 3)))))
      ((= e 4)
      (setq ee (ssget '((62 . 4)))))
      ((= e 5)
      (setq ee (ssget '((62 . 5)))))
      ((= e 6)
      (setq ee (ssget '((62 . 6)))))
      ((= e 7)
      (setq ee (ssget '((62 . 7)))))
      ((= e 8)
      (setq ee (ssget '((62 . 8)))))
      ((= e 9)
      (setq ee (ssget '((62 . 9)))))
  )
(cmdla1)
)
(vl-load-com)
(vlax-add-cmd "xs" 'xs "xs" 1)[/php]

liu_kunlun · 发表于 2006-5-22 18:20:33

我没有看懂你的程序,因为里面有几个函数的定义不知是怎样定义的.
如果一个透明命令的结果,要自动提供给一个命令使用,要将结果转换成串值(转换成与键盘输入的形式一样,后面再加一个空格),然后发送到命令行去.

ewenhui · 发表于 2006-5-22 18:51:19

初学者，请指教。如何做成透明命令？（代码改进了一点）
[php](defun c:xs ( / e)
  (cmdla0)
  (setvar "cmdecho" 0)
  (setq e (uint 7 "" "\n颜色号：1.红色 2.黄色 3.绿色 4.青色 5.蓝色......:" 1))
  (ssget (list (cons 0 "*line,circle,arc") (cons 62 e)))
  (cmdla1)
)[/php]

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

[求助] [求助]：如何做成透明命令

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

相关帖子