hastan
发表于 2015-8-8 20:25:40
xyp1964
发表于 2015-8-9 13:32:00
hastan
发表于 2015-8-9 14:00:28
fan_zh
发表于 2015-8-10 16:34:03
院长一出手，一切都是浮云
hastan
发表于 2015-8-10 19:04:35
ucuc2003
发表于 2015-8-11 13:34:33
;快速填充 by ucuc2003
(defun C:TT5 (/ s1) ;快速选择对象，填充图案
(setvar "cmdecho" 0)
(princ "\n创建独立填充图案，请选择填充区： (***跳过则为拾取内部点填充）:")
(setq ytc_d (getvar "hpseparate"))
(setvar "hpassoc" 1);控制填充图案是否关联(1:是；0:否)
(setq s1 (cadr (ssgetfirst)))
(while (tt7_1))
(princ)
);defun
(defun tt7_1 ()
(setvar "cmdecho" 0)
(defun *Error* (msg)
(if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,")))
(progn
(setvar "hpseparate" 0);程序中断/出错则执行(setvar "hpseparate" 0)
(princ "退出！"));progn
);if
);defun *Error*
(princ "\n请选择填充对象：(***跳过则为拾取内部点填充）")
(setq ytc_d (getvar "hpseparate"))
(setvar "hpseparate" 1);控制是否创建独立填充图案(1:是；0:否)
(if (or s1 (setq s1 (ssget)))
(progn (command "bhatch" "s" s1 "" "")(setq s1 nil))
(progn
(princ "\n请拾取填充内部点：")
(command "bhatch" pause pause)
);progn
);if
(setvar "hpseparate" ytc_d)
)
hastan
发表于 2015-8-11 20:31:07
hastan
发表于 2015-8-18 06:37:10
hastan
发表于 2015-8-22 16:13:51
陨落
发表于 2015-8-22 16:30:46
想不出来院长是怎么办到的，