cad批量逐个填充lisp_快速填充的多选问题 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

本帖最后由 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)   ;控制填充图案是否关联