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

ryljun

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

maoyangmy

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

ryljun

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

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

1. (defun c:myhatch ()
   
2. (setq pa '(0 0 0))
   ) j1 K5 X6 z! b3 Y
3. (setq pb '(400 400 0))
   
4. (setq po '(300 300 0))
   
5. (command "rectang" pa pb)
   
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   " G4 A6 V" |$ H. }6 j
8. (princ)
   # g" M1 i6 L" c% d$ s% c
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   0 _" h  X- r% s0 x2 A" B* w
2.   (setq pa '(0 0 0))
   1 A2 |5 ~' a0 t. e+ `% B& Z2 ^
3.   (setq pb '(400 400 0))
   + |4 ?# r' B; ^/ N/ T; E
4.   (setq po '(300 300 0))
   $ E: M* w# \) n- D. ^
5.   (command "rectang" pa pb)
   * l# Z2 z* ^4 ]% c# m" n5 m
6.   (command "-hatch" po "P" "solid" ""  )
   ( F) i# n8 F5 ^5 ]- [5 X8 D8 l
7.   (setq a (entlast))
   
8.   (setq b (entget a))
   % b5 c( [$ Y1 G% B3 ^
9.   (setq c (assoc 62 b))
   
10.   (if c
    2 m8 m* X% m1 U3 z
11.     (progn
    9 A: ~: \! s$ j) p7 Z
12.       (setq d (cons 62 1))
    
13.       (setq b (subst d c b))
    
14.     )
    
15.     (setq b (append b (list (cons 62 1))))
    
16.   )
    7 F8 |6 f( C/ L5 @5 E, y' v
17.   (entmod b)
    
18.   (princ)
    4 \0 q- v7 r1 B' _( q! A. r
19. )

复制代码

1. 
   
2. (defun c:myhatch ()
   ! }$ z! L5 w. b/ _
3.   (setq pa '(0 0 0))
   
4.   (setq pb '(400 400 0))
   + ]0 {4 M" b6 `4 H2 V
5.   (setq po '(300 300 0))
   
6.   (command "rectang" pa pb)
   " v9 L& H% }( ?9 Q6 S! Y" \+ o6 e
7.   (command "-color" 1)
   / G9 x* ?; u2 l% x  r
8.   (command "-hatch" po "P" "solid" ""  )
   / I4 ]& V' C4 A
9.   (princ)
   
10. )
    

复制代码

" r" ?2 l; J, D% S$ [[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun

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

woaishuijia

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