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

ryljun

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

maoyangmy

(command "hatch" ...)
6 U* j  a% s: x省略部分根据个人要求编辑

ryljun

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

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

1. (defun c:myhatch ()
   
2. (setq pa '(0 0 0))
   - P, M" r2 t: I6 @9 R
3. (setq pb '(400 400 0))
   * W, f% {3 ?: [! t5 W, u" p0 N9 T" @
4. (setq po '(300 300 0))
   
5. (command "rectang" pa pb)
   1 _/ E4 P0 C. w( d0 `
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   
8. (princ)
   
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   # U9 W0 I3 [9 e- b/ j$ o
2.   (setq pa '(0 0 0))
   
3.   (setq pb '(400 400 0))
   
4.   (setq po '(300 300 0))
   
5.   (command "rectang" pa pb)
   * B* e; |  R. {7 N; O7 R0 N* H
6.   (command "-hatch" po "P" "solid" ""  )
   
7.   (setq a (entlast))
   
8.   (setq b (entget a))
   " g3 r0 X) l3 V( c! Y. L
9.   (setq c (assoc 62 b))
   
10.   (if c
    
11.     (progn
    : z: P% T1 k2 z
12.       (setq d (cons 62 1))
    - ?, s: d& j2 ?: T
13.       (setq b (subst d c b))
    7 S& S) j5 F1 d- E' S5 q
14.     )
    ! {+ _1 X/ l, v8 c+ q% `7 D; v# D6 X
15.     (setq b (append b (list (cons 62 1))))
    ; D4 u6 C+ y- b- E5 V
16.   )
    2 D9 }, H& s* ^- }5 t1 r
17.   (entmod b)
    5 q: Q5 U7 V1 j) X
18.   (princ)
    
19. )

复制代码

1. 
   
2. (defun c:myhatch ()
   
3.   (setq pa '(0 0 0))
   6 z2 W7 n) k3 C% H0 Q) {* V
4.   (setq pb '(400 400 0))
   ( U8 V0 X$ d/ N' J2 B
5.   (setq po '(300 300 0))
   
6.   (command "rectang" pa pb)
   
7.   (command "-color" 1)
   
8.   (command "-hatch" po "P" "solid" ""  )
   : L0 J+ y/ H0 j' v- a- K* V
9.   (princ)
   9 K5 r) M# C. @5 N9 V
10. )
    0 k: Y, J/ B" ~

复制代码

4 P8 }8 F7 m4 l% l[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun

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

woaishuijia

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