懸賞解決(框選生成填充)用lsp源碼

xyp1964

fan_zh

院长一出手，一切都是浮云

ucuc2003

;快速填充 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)
)

陨落

想不出来院长是怎么办到的，