请求大侠帮修改下，想有两种选择填充方式，一种是直接吸取内框填充另一种选择矩行填充

edata

1. (defun c:Q1 (/ s1 pt oldcolor snap)
   
2. (dfl_var)
   
3. (setvar "cecolor" "250")
   
4. (setvar "osmode" 0)
   
5. (princ "\n默认<拾取点>方式按右键或空格切换到<选择对象>方式:")
   
6. (if(setq pt(getpoint"\n指定内部点"))
   
7.   (progn
   
8.     (command "BHATCH" "p" "ansi31" "6" "0")
   
9.     (while pt(command pt)(setq pt(getpoint)))
   
10.     (command ""))
    
11.   (if(setq s1 (ssget))
    
12.     (command "BHATCH" "p" "ansi31" "6" "0" "s" s1 "" ""))
    
13.   )
    
14. (*error* nil)
    
15. (princ)
    
16. )
    
17. 
    
18. 
    
19. 
    
20. (defun dfl_var ()
    
21. (setq e_lst (mapcar (function (lambda (n) (list 'setvar n (getvar n))))
    
22. '("cecolor" "clayer"  "autosnap" "osmode"  )))
    
23. (defun *error* (msg) (if(> (getvar "CMDACTIVE") 0) (command ""))(mapcar 'eval e_lst))
    
24. )
    

(defun c:Q1 (/ s1 pt oldcolor snap)<br /> (dfl_var)<br /> (setvar "cecolor" "250")<br /> (setvar "osmode" 0)<br /> (princ "\n默认<拾取点>方式按右键或空格切换到<选择对象>方式:")<br /> (if(setq pt(getpoint"\n指定内部点"))<br />   (progn<br />     (command "BHATCH" "p" "ansi31" "6" "0")<br />     (while pt(command pt)(setq pt(getpoint)))<br />     (command ""))<br />   (if(setq s1 (ssget))<br />     (command "BHATCH" "p" "ansi31" "6" "0" "s" s1 "" ""))<br />   )<br /> (*error* nil)<br /> (princ)<br /> )<br /> <br /> <br /> <br /> (defun dfl_var ()<br /> (setq e_lst (mapcar (function (lambda (n) (list 'setvar n (getvar n)))) <br /> '("cecolor" "clayer"  "autosnap" "osmode"  )))<br /> (defun *error* (msg) (if(> (getvar "CMDACTIVE") 0) (command ""))(mapcar 'eval e_lst))<br /> )<br />

llsheng_73

1. (defun c:Q1 (/ s1 pt)
   
2.    (if(setq var(dfl_var'(('cecolor'clayer'osmode'autosnap)("250""0" 16384 63)))
   
3.              pt(getpoint"\n右键或空格[选择对象]<内部点>"))
   
4.     (progn (command "BHATCH" "p" "ansi31" "6" "0")
   
5.       (while pt(command pt)(setq pt(getpoint)))
   
6.       (command ""))
   
7.     (if(setq s1(ssget))
   
8.       (command "BHATCH" "p" "ansi31" "6" "0" "s" s1 "" "")))
   
9.   (*error* nil))
   
10. (defun dfl_var(var / a)
    
11.   (setq a(list(car var)(mapcar'getvar(car var))))
    
12.   (mapcar'setvar(car var)(last var))a)
    
13. (defun *error*(msg)
    
14.   (while(>(getvar'CMDACTIVE)0)(command ""))
    
15.   (dfl_var var)
    
16.   (setq var nil))

(defun c:Q1 (/ s1 pt)<br />    (if(setq var(dfl_var'(('cecolor'clayer'osmode'autosnap)("250""0" 16384 63)))<br />              pt(getpoint"\n右键或空格[选择对象]<内部点>"))<br />     (progn (command "BHATCH" "p" "ansi31" "6" "0")<br />       (while pt(command pt)(setq pt(getpoint)))<br />       (command ""))<br />     (if(setq s1(ssget))<br />       (command "BHATCH" "p" "ansi31" "6" "0" "s" s1 "" "")))<br />   (*error* nil))<br /> (defun dfl_var(var / a)<br />   (setq a(list(car var)(mapcar'getvar(car var))))<br />   (mapcar'setvar(car var)(last var))a)<br /> (defun *error*(msg)<br />   (while(>(getvar'CMDACTIVE)0)(command ""))<br />   (dfl_var var)<br />   (setq var nil))

Aenda

edata 发表于 2014-5-19 15:16

大侠， 这个代码经过测试 还是不行哦 也会出现捕捉全关,...能再优化下吗？

Aenda

llsheng_73 发表于 2014-5-22 03:02

大神，提示函数错误哦 ，能优化下吗

edata

你要确定代码完整性，如果这个代码捕捉关闭，可以按F3开启。设置不变。

1. (defun c:Q1 (/ s1 pt oldcolor snap)
   
2. (dfl_var)
   
3. (setvar "cecolor" "250")
   
4. (setvar "osmode" (setvar "osmode" (+ (getvar 'osmode) 16384)))
   
5. (princ "\n默认<拾取点>方式按右键或空格切换到<选择对象>方式:")
   
6. (if(setq pt(getpoint"\n指定内部点"))
   
7.   (progn
   
8.     (command "BHATCH" "p" "ansi31" "6" "0")
   
9.     (while pt(command pt)(setq pt(getpoint)))
   
10.     (command ""))
    
11.   (if(setq s1 (ssget))
    
12.     (command "BHATCH" "p" "ansi31" "6" "0" "s" s1 "" ""))
    
13.   )
    
14. (*error* nil)
    
15. (princ)
    
16. )
    
17. 
    
18. (defun dfl_var ()
    
19. (setq e_lst (mapcar (function (lambda (n) (list 'setvar n (getvar n))))
    
20. '("cecolor" "clayer"  "autosnap" "osmode"  )))
    
21. (defun *error* (msg) (if(> (getvar "CMDACTIVE") 0) (command ""))(mapcar 'eval e_lst))
    
22. )

(defun c:Q1 (/ s1 pt oldcolor snap)<br /> (dfl_var)<br /> (setvar "cecolor" "250")<br /> (setvar "osmode" (setvar "osmode" (+ (getvar 'osmode) 16384)))<br /> (princ "\n默认<拾取点>方式按右键或空格切换到<选择对象>方式:")<br /> (if(setq pt(getpoint"\n指定内部点"))<br />   (progn<br />     (command "BHATCH" "p" "ansi31" "6" "0")<br />     (while pt(command pt)(setq pt(getpoint)))<br />     (command ""))<br />   (if(setq s1 (ssget))<br />     (command "BHATCH" "p" "ansi31" "6" "0" "s" s1 "" ""))<br />   )<br /> (*error* nil)<br /> (princ)<br /> )<br /> <br /> (defun dfl_var ()<br /> (setq e_lst (mapcar (function (lambda (n) (list 'setvar n (getvar n)))) <br /> '("cecolor" "clayer"  "autosnap" "osmode"  )))<br /> (defun *error* (msg) (if(> (getvar "CMDACTIVE") 0) (command ""))(mapcar 'eval e_lst))<br /> )