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 static/image/common/back.gif
(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 static/image/common/back.gif
(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")
)
)
页: [1]
查看完整版本: 怎么调出图案填充对话框