本帖最后由 alexmai 于 2019-3-22 00:35 编辑
--------------------------------------------------------------------------------------------
明经找到这个资料,但都不是我想要的,我想设置“点选”为第一步,而不是“选择”为第一步
(defun C:kh (/ s1) ;快速选择对象,填充图案
(setvar "cmdecho" 0)
(setvar "hpassoc" 1) ;控制填充图案是否关联(1:是;0:否)
(princ "\n快捷填充,请选择填充区域:(***跳过则为拾取内部点填充)")
(if (setq s1 (ssget))
(command "bhatch" "s" s1 "" "")
(progn
(princ "\n请拾取填充内部点:")
(command "bhatch" pause)
);progn
);if
(princ)
);defun
(defun C:H1 (/ s1 s2)
(setvar "cmdecho" 0)
(setvar "OSMODE" 0)
(setvar "MEASUREINIT" 1)
(setvar "MEASUREMENT" 1)
(setvar "hpassoc" 1) ;控制填充图案是否关联