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

ryljun

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

maoyangmy

(command "hatch" ...)
* r' {7 y( U8 m5 ^/ ?省略部分根据个人要求编辑

ryljun

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

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

1. (defun c:myhatch ()
   
2. (setq pa '(0 0 0))
   9 X, Q( [0 f* e, [/ \; U5 A
3. (setq pb '(400 400 0))
   2 C3 ^7 s' C4 n5 @
4. (setq po '(300 300 0))
   
5. (command "rectang" pa pb)
     ]) L/ l) [5 ~/ w0 N; s1 W* Y+ }
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   0 Q+ N5 C' Y2 K, e
8. (princ)
   6 A% A! N) E& g$ L8 E( f
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   * L- r& ^  U6 E  b" Q0 P
2.   (setq pa '(0 0 0))
   % D. A9 O5 b9 V
3.   (setq pb '(400 400 0))
   3 U! V. @! z5 I( L9 P% |5 ^
4.   (setq po '(300 300 0))
   ! Y6 n. e, `6 }6 ~9 t. C
5.   (command "rectang" pa pb)
   % {0 r6 d" r5 N( o3 A
6.   (command "-hatch" po "P" "solid" ""  )
   " U: u( @% E) X$ Z, T0 [
7.   (setq a (entlast))
   & s7 I1 C7 I8 v% d9 X6 j' P
8.   (setq b (entget a))
   
9.   (setq c (assoc 62 b))
   # F& |/ k/ d# V# w1 F# e( B
10.   (if c
    8 w. Z$ ~8 u7 y1 n
11.     (progn
    
12.       (setq d (cons 62 1))
    
13.       (setq b (subst d c b))
    " j2 N) w  q* S) M
14.     )
    ) e& i9 O/ a* o3 |7 o' F2 P
15.     (setq b (append b (list (cons 62 1))))
    
16.   )
    1 _. a: P) _* q( S2 J; c1 e* I
17.   (entmod b)
    
18.   (princ)
    7 ]6 E2 J. r! m4 Q3 H/ a  ^! g
19. )

复制代码

1. 
   $ B: ^- k% a/ ?' K7 G! q! W
2. (defun c:myhatch ()
   ; F7 P* e3 V+ D. Q
3.   (setq pa '(0 0 0))
   " C/ C( @9 U, f
4.   (setq pb '(400 400 0))
   ' n2 H4 A9 W% a; K% d
5.   (setq po '(300 300 0))
   
6.   (command "rectang" pa pb)
   
7.   (command "-color" 1)
   
8.   (command "-hatch" po "P" "solid" ""  )
   
9.   (princ)
   # b8 n  L% s$ [. M8 Q
10. )
    / s" b( j3 k  t% I7 f6 ?

复制代码

0 K. }0 K5 d3 }0 U" I% R+ R9 ~[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun

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

woaishuijia

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