[LISP程序]：为何这个命令的对话框不出来？

userzhluserzhl

为何这个命令的对话框不出来？
(defun C:H()(command "HATCH"))

cqnj023

hatch是命令行方式的，怎么出来对话框嘛，改为：
(defun C:H()(command "BHATCH")) 试一试？

userzhluserzhl

楼上，不行呀。我原来想问的就是：(defun C:H()(command "BHATCH"))
抄错了，不好意思。

qjcpj

在acad.pgp中定义bhatch的别名不行吗？
很多用arx定义的命令如layer，block，bhatch，mtext等在lisp程序中只能在命令行调用，要调出对话框，除非该arx已定义了与lisp的接口函数并且你知道。
刚看了xyp1964的帖子，在lisp中可以这样调用bhatch命令并出对话框：

2. 
   
3. (defun c:bh ()
   
4.   (initdia)
   
5.   (command "_bhatch")
   
6. )
   

<br /> (defun c:bh ()<br />   (initdia)<br />   (command "_bhatch")<br /> )<br />

zzyong00

initdia是什么函数

zzyong00

initdia是什么函数

zzyong00

initdia是什么函数

userzhluserzhl

非常感谢4楼，再帮我看看：
(defun c:h ()
(SETQ OLDLA (GETVAR "CLAYER"))
  (initdia)
  (command "_bhatch" "CHPROP" "La" "HAT" "")
  (SETVAR "CLAYER" OLDLA)
)
为何这样所生成的图案不归到“HAT”中呢？

xyp1964

最初由 userzhluserzhl 发布
[B]非常感谢4楼，再帮我看看：
(defun c:h ()
(SETQ OLDLA (GETVAR "CLAYER"))
  (initdia)
  (command "_bhatch" "CHPROP" "La" "HAT" "")
  (SETVAR "CLAYER" OLDLA)
)
为何这样所生成的图案不归到“HAT”中?.. [/B]

为何这样操作？选项错误！
(command "_bhatch" "CHPROP" "La" "HAT" "")

userzhluserzhl

选项错误？是不是因为没有“HAT”这个层就会出错呀？
我原来是想这样的：
(defun c:h ()
(SETQ OLDLA (GETVAR "CLAYER"))
(COMMAND "LAYER" "M" "HAT" "C" "8" "HAT" "")
(initdia)
(command "_bhatch" "CHPROP" "La" "HAT" "")
(SETVAR "CLAYER" OLDLA)
)
但是这样后(SETVAR "CLAYER" OLDLA) 好像就不起作用了。

ljpnb

(command "_bhatch" "CHPROP" "La" "HAT" "")这句是不可能正确执行的
因为执行bhatch命令，需要进行一些其它操作，比如选择剖面图案、比例、点取等，那它后面紧跟的"CHPROP" "La" "HAT" ""是不符合bhatch的操作的，所以出错了。
可以这样试试，当bhatch对话框出来之后，点“取消”，它就行执行chprop命令了。