快捷调整填充基点的问题

alexmai

我做了一个填充基点的快捷调整，能正常使用，但我想选择填充时，选择一个物体后，直接进入下一步

而不是现在选择完物体，按空格后才跳下一部，谢谢！

lsp 如下，请大家给点意见：

2. ;;;填充基点调整
   
3. (defun c:hd ()
   
4.   (setq ent (ssget))
   
5.   (setq pt (getpoint))
   
6.   (command "-hatchedit" ent "O" "S" PT "Y" "")
   
7.   (princ)
   
8. )

;;;填充基点调整<br /> (defun c:hd ()<br />   (setq ent (ssget))<br />   (setq pt (getpoint))<br />   (command "-hatchedit" ent "O" "S" PT "Y" "")<br />   (princ)<br /> )

Linhay

(ssget ":S")

alexmai

Linhay 发表于 2015-11-16 16:39
(ssget ":S")

成功了，谢谢！

KO你

快捷键  hd  填充指定原点
(defun c:hd () (command"-hatchedit"(ssget)"o""s"(getpoint "\n指定的原点:")"y"))