填充源码小程序，看看对大家有用没

HGHG011

代替原来的bh填充命令

本人菜鸟一枚，程序写得不好勿怪

1. ;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   
2. ;;;;;;说明
   
3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
4. ;1.填充命令 bh （输入命令后 1左键直接指定多段线内部点填充,
   
5. ;                           2 右键选择需要填充的对象）
   
6. ;2.设置填充 sbh （选择填充体）
   
7. 
   
8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
9. ;;;;;;说明
   
10. ;;;----------------------------------------------------------------------
    
11. 
    
12. 
    
13. 
    
14. ;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    
15. ;;;;;;主程序
    
16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
17. 
    
18. 
    
19. 
    
20. 
    
21. 
    
22. 
    
23. (defun c:bh ( / *error*)
    
24.        
    
25.         (defun *error* (msg)
    
26.   (setvar "osmode" os)
    
27.   (setvar "clayer" dqtc)
    
28.   (princ "出错: ")
    
29.   (princ msg)
    
30. 
    
31.   (princ)
    
32. )
    
33.        
    
34.         (setq os (getvar "osmode"))
    
35. 
    
36. (setvar "osmode" 0)
    
37.        
    
38.        
    
39.        
    
40.        
    
41.         (setq dqtc (getvar "clayer"))
    
42.         (if tatc
    
43.                 (command "layer"  "s"  tatc "")
    
44.         )
    
45.         (if (= tuan nil)
    
46.                 (setq
    
47.                         tuan "SOLID"
    
48.                         tabl 100
    
49.                         tajd 0
    
50.                 )
    
51.         )
    
52.        
    
53.        
    
54.         (if (= tuan "SOLID" )
    
55.                
    
56.                 (progn
    
57. (setq pt (getpoint))
    
58.                         (command "-hatch"  "p" "SOLID" pt)
    
59.                         (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
60.                         (if  pt
    
61.                                 (princ)
    
62.                                 (command "-hatch"  "p" "SOLID" "s" (setq ss (ssget)) "" "")
    
63.                         )
    
64.                 )
    
65.                 (progn
    
66.                         (setq pt (getpoint))
    
67.                         (command "-hatch"  "p" tuan tabl tajd pt)
    
68.                         (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
69.                         (if   pt
    
70.                                 (princ)
    
71.                                 (command "-hatch"  "p" tuan tabl tajd "s" (setq ss (ssget)) "" "")
    
72.                         )
    
73.                 )
    
74.         )
    
75.         (setvar "clayer" dqtc)
    
76. (setvar "osmode" os)
    
77. 
    
78.         (princ)
    
79. )
    
80. (defun c:sbh( / ss )
    
81.         (setq tuan (cdr (assoc 2 (entget (car (setq ss (entsel) ))))));提取属性
    
82.        
    
83.         (if (= tuan "SOLID")
    
84.                 (setq tatc (cdr (assoc 8 (entget (car ss)))))
    
85.                 (progn
    
86.                        
    
87.                         (setq tabl (cdr (assoc 41 (entget (car ss)))))
    
88.                         (setq tatc (cdr (assoc 8 (entget (car ss)))))
    
89.                         (setq tajd (angtos (cdr (assoc 52 (entget (car ss))))  0 4) )
    
90.                 )
    
91.         )
    
92.         ;(setq tajd (cdr (assoc 41 (entget (car ss)))))
    
93. 
    
94.         (princ)
    
95. )
    
96. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
97. ;;;;;;主程序
    
98. ;;;----------------------------------------------------------------------
    
99. 
    
100. 
     
101. 
     

;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<br /> ;;;;;;说明<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;1.填充命令 bh （输入命令后 1左键直接指定多段线内部点填充,<br /> ;                           2 右键选择需要填充的对象）<br /> ;2.设置填充 sbh （选择填充体）<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;;;;说明<br /> ;;;----------------------------------------------------------------------<br /> <br /> <br /> <br /> ;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<br /> ;;;;;;主程序<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> <br /> <br /> <br /> <br /> <br /> (defun c:bh ( / *error*)<br />         <br />         (defun *error* (msg)<br />   (setvar "osmode" os) <br />   (setvar "clayer" dqtc)<br />   (princ "出错: ")<br />   (princ msg)<br /> <br />   (princ)<br /> )<br />         <br />         (setq os (getvar "osmode"))<br /> <br /> (setvar "osmode" 0)<br />         <br />         <br />         <br />         <br />         (setq dqtc (getvar "clayer"))<br />         (if tatc <br />                 (command "layer"  "s"  tatc "")<br />         )<br />         (if (= tuan nil) <br />                 (setq <br />                         tuan "SOLID"<br />                         tabl 100<br />                         tajd 0<br />                 )<br />         )<br />         <br />         <br />         (if (= tuan "SOLID" )<br />                 <br />                 (progn <br /> (setq pt (getpoint))<br />                         (command "-hatch"  "p" "SOLID" pt)<br />                         (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br />                         (if  pt<br />                                 (princ)<br />                                 (command "-hatch"  "p" "SOLID" "s" (setq ss (ssget)) "" "")<br />                         )<br />                 )<br />                 (progn<br />                         (setq pt (getpoint))<br />                         (command "-hatch"  "p" tuan tabl tajd pt)<br />                         (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br />                         (if   pt<br />                                 (princ)<br />                                 (command "-hatch"  "p" tuan tabl tajd "s" (setq ss (ssget)) "" "")<br />                         )<br />                 )<br />         )<br />         (setvar "clayer" dqtc)<br /> (setvar "osmode" os) <br /> <br />         (princ)<br /> )<br /> (defun c:sbh( / ss )<br />         (setq tuan (cdr (assoc 2 (entget (car (setq ss (entsel) ))))));提取属性<br />         <br />         (if (= tuan "SOLID")<br />                 (setq tatc (cdr (assoc 8 (entget (car ss)))))<br />                 (progn<br />                         <br />                         (setq tabl (cdr (assoc 41 (entget (car ss)))))<br />                         (setq tatc (cdr (assoc 8 (entget (car ss)))))<br />                         (setq tajd (angtos (cdr (assoc 52 (entget (car ss))))  0 4) )<br />                 )<br />         )<br />         ;(setq tajd (cdr (assoc 41 (entget (car ss)))))<br /> <br />         (princ)<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;;;;主程序<br /> ;;;----------------------------------------------------------------------<br /> <br /> <br /> <br />

2015-1-28 改

sxm121233

有待验证，先支持一下