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

ryljun

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

maoyangmy

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

ryljun

原帖由 maoyangmy 于 2008-10-5 13:34 发表 http://www.3dportal.cn/discuz/images/common/back.gif
) a3 ]4 O6 i5 [& Q' T2 l$ {(command "hatch" ...)
. F4 B) L+ }% A" v' D* n3 J3 h省略部分根据个人要求编辑

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

1. (defun c:myhatch ()
   1 ^! ?# [  P( Z6 W$ L% K
2. (setq pa '(0 0 0))
   
3. (setq pb '(400 400 0))
   
4. (setq po '(300 300 0))
   
5. (command "rectang" pa pb)
   * M. a3 g0 t6 f' H" ~
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   
8. (princ)
   
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   
2.   (setq pa '(0 0 0))
   
3.   (setq pb '(400 400 0))
   
4.   (setq po '(300 300 0))
   7 a) a1 n/ e( L1 B$ r5 O8 m6 w
5.   (command "rectang" pa pb)
   
6.   (command "-hatch" po "P" "solid" ""  )
   
7.   (setq a (entlast))
   & Z5 f6 D# Q8 `$ ^9 @$ b9 e
8.   (setq b (entget a))
   ( w0 R6 D7 J! X  f5 Y
9.   (setq c (assoc 62 b))
   ' L( l* o7 z! A* Q
10.   (if c
      ~) @5 L5 t, F8 O! I' X
11.     (progn
    
12.       (setq d (cons 62 1))
    
13.       (setq b (subst d c b))
    1 b) z% a, I) G2 w1 r/ F- \1 x
14.     )
    5 h2 C5 {5 H( r# U! ?; C: B8 n/ r1 Y
15.     (setq b (append b (list (cons 62 1))))
    ( U5 d5 I5 a' w
16.   )
    
17.   (entmod b)
    3 o8 w& y: I( f  f" ]
18.   (princ)
    
19. )

复制代码

1. 
   $ g2 `; h9 L( g% f4 G1 l
2. (defun c:myhatch ()
   * a" L1 [9 F) `8 N
3.   (setq pa '(0 0 0))
   & F6 J" _' D( {) a7 M! q
4.   (setq pb '(400 400 0))
   
5.   (setq po '(300 300 0))
   
6.   (command "rectang" pa pb)
   
7.   (command "-color" 1)
   
8.   (command "-hatch" po "P" "solid" ""  )
   
9.   (princ)
   ! t. |/ i% w* o: }
10. )
    8 T0 X3 K# q' T! y' G/ ~" f

复制代码

[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun

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

woaishuijia

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