怎么调出图案填充对话框

LONGXIN · 发表于 2015-7-14 21:38:42

请教各位，怎么使用LISP调出图案填充对话框呢？并且在调用结束后获取到当前使用的图案和比例？

自贡黄明儒 · 发表于 2015-7-15 08:11:40

(command "hatch" "" "" "" (ssget) "")

LONGXIN · 发表于 2015-7-15 08:41:10

自贡黄明儒发表于 2015-7-15 08:11
(command "hatch" "" "" "" (ssget) "")

这样不能调出对话框界面

自贡黄明儒 · 发表于 2015-7-15 09:37:56

(defun SendKeys (keys / ws)
      (setq ws (vlax-create-object "WScript.Shell"))
      (vlax-invoke-method ws 'sendkeys keys)
      (vlax-release-object ws)
      (princ)
)
(sendkeys "h ")

LONGXIN · 发表于 2015-7-15 09:39:59

需要调出下面这个界面，并使用它的功能

LONGXIN · 发表于 2015-7-15 10:13:36

自贡黄明儒发表于 2015-7-15 09:37
(defun SendKeys (keys / ws)
(setq ws (vlax-create-object "WScript.Shell"))
(vlax ...

请教：我想让程序先执行完红色代码（即BHATCH命令执行完毕），再执行蓝色代码，要怎么修改？

(defun c:tt ()
(sendkeys (STRCAT "BHATCH" (CHR 13)))
(setq ta (getvar "HPNAME")
jd (getvar "HPANG")
bl (getvar "HPSCALE")
sx (getvar "HPDOUBLE")
jj (getvar "HPSPACE")
)
)

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

[讨论] 怎么调出图案填充对话框

相关帖子

点评

本帖子中包含更多资源