求一框选多边形填充工具插件
求~~~~~~~~~~~~~······本帖最后由 ucuc2003 于 2012-12-14 00:25 编辑
(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
试一试这个,看看
看不懂题目,本身cad不就可以吗?
页:
[1]