alexmai 发表于 2015-11-16 13:52:10

快捷调整填充基点的问题

本帖最后由 alexmai 于 2015-11-16 14:46 编辑

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

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

lsp 如下，请大家给点意见：;;;填充基点调整
(defun c:hd ()
(setq ent (ssget))
(setq pt (getpoint))
(command "-hatchedit" ent "O" "S" PT "Y" "")
(princ)
)

Linhay 发表于 2015-11-16 16:39:57

(ssget ":S")

alexmai 发表于 2015-11-16 17:00:59

Linhay 发表于 2015-11-16 16:39 static/image/common/back.gif
(ssget ":S")

成功了，谢谢！

KO你 发表于 2019-5-26 14:38:29

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

小毛草 发表于 4 天前

;;;;;;;;;;;;;;;;;;;;;;;指定多个填充图案基点;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:hdd (/ ss i ent pt count)
(setq count 0)
(princ "\n选择填充图案: ")
(if (setq ss (ssget '((0 . "HATCH"))))
    (progn
      (setq pt (getpoint "\n指定新基点: "))
      (if pt
      (progn
          (repeat (setq i (sslength ss))
            (setq ent (ssname ss (setq i (1- i))))
            (command "_.hatchedit" ent "_o" "_s" pt "_y")
            (setq count (1+ count))
          )
          (princ (strcat "\n成功设置 " (itoa count) " 个填充图案的基点。"))
      )
      (princ "\n未指定基点，操作取消。")
      )
    )
    (princ "\n未选择填充图案。")
)
(princ)
)
页: [1]
查看完整版本: 快捷调整填充基点的问题