【已解答】defun函数定义快捷键的问题

lifuor

（defun c:h()
（command "hatch"）
(princ)
)
请教各位大大，我用defun函数定义快捷键，用h作为填充的快捷键。遇到的问题是，加载后用h，呼不出填充的对话框了，只有命令提示栏。请问怎么解决？谢谢！

ㄘ丶转裑ㄧ灬

1. (defun c:WE nil(princ "WBLOCK")(initdia) (command ".WBLOCK")(princ));;写块
   
2. (defun c:WH nil(princ "BHATCH")(initdia) (command ".BHATCH")(princ));;填充

(defun c:WE nil(princ "WBLOCK")(initdia) (command ".WBLOCK")(princ));;写块<br /> (defun c:WH nil(princ "BHATCH")(initdia) (command ".BHATCH")(princ));;填充

xyp1964

在acad.pgp里添加:
H,        *BHATCH

lifuor

xyp1964 发表于 2017-12-6 20:04
在acad.pgp里添加:
H,        *BHATCH

感谢回复，这种方法我知道，我想问的是像填充hatch、块block这种命令，我用defun+command实现快捷键替换后，为什么不弹窗了，只能在命令栏输入。

lifuor

ㄘ丶转裑ㄧ灬 发表于 2017-12-7 09:11

谢谢，是我想要的答案！