请问一个VLisp图案填充的问题

ryljun

已经知道一个点坐标，并且这个点的周围已经形成一个封闭的区域，怎样用Vlisp进行图案填充？

maoyangmy

(command "hatch" ...)
省略部分根据个人要求编辑

ryljun

原帖由 maoyangmy 于 2008-10-5 13:34 发表 http://www.3dportal.cn/discuz/images/common/back.gif
6 q0 ]6 f. B; Q( L) F(command "hatch" ...)
省略部分根据个人要求编辑

这个我知道，但是具体怎么搞呢？我给出一小段吧：

1. (defun c:myhatch ()
   
2. (setq pa '(0 0 0))
   / n. I3 |2 A2 u) a( z) o8 \$ h
3. (setq pb '(400 400 0))
   ' T) \7 E7 ~9 t0 O
4. (setq po '(300 300 0))
   
5. (command "rectang" pa pb)
   
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   # B7 l9 t( Y5 K
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   , {6 N# [* T" I( h
8. (princ)
   1 Z" l+ u; r8 H0 U7 `
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   " n" D1 s$ {- ~4 R0 |
2.   (setq pa '(0 0 0))
   
3.   (setq pb '(400 400 0))
   
4.   (setq po '(300 300 0))
   # _1 y' i4 y% H: n; d/ ?
5.   (command "rectang" pa pb)
   
6.   (command "-hatch" po "P" "solid" ""  )
   $ \# ?* O6 v9 T9 X. R5 c. U
7.   (setq a (entlast))
   
8.   (setq b (entget a))
   
9.   (setq c (assoc 62 b))
   
10.   (if c
    $ x8 `( w# b9 w' K& u+ ^3 ?) w& O4 x
11.     (progn
    
12.       (setq d (cons 62 1))
    
13.       (setq b (subst d c b))
    ; j; p" z8 G9 l# R4 S/ y
14.     )
    ( [+ C* W( }! k9 h9 `
15.     (setq b (append b (list (cons 62 1))))
    5 L7 g$ l' z- g! T
16.   )
    
17.   (entmod b)
    ( h5 N) T& a, ^2 @, P$ w% |# @
18.   (princ)
    
19. )

复制代码

1. 
   7 C9 `; g3 M- }; [
2. (defun c:myhatch ()
   
3.   (setq pa '(0 0 0))
   
4.   (setq pb '(400 400 0))
   
5.   (setq po '(300 300 0))
   1 `* I3 f5 F& V
6.   (command "rectang" pa pb)
   3 M* m6 l" Z* _, E7 `
7.   (command "-color" 1)
   
8.   (command "-hatch" po "P" "solid" ""  )
   
9.   (princ)
   - O4 o- X& x6 c! L* B! ?9 k0 ~
10. )
    $ h& x) Q; c) P) ~  k/ A6 z6 ^

复制代码

2 v) _& c9 K# Y) X4 a  B[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun

谢谢!初学LISP，希望有个LISP的函数中文手册。哪儿有下载啊？

woaishuijia

CAD三维及二次开发子版区资料汇总－－求助前请先查阅该贴（参与有奖）