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

ryljun

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

maoyangmy

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

ryljun

原帖由 maoyangmy 于 2008-10-5 13:34 发表 http://www.3dportal.cn/discuz/images/common/back.gif
(command "hatch" ...)
. o/ h7 \( O, D3 _5 ~6 z9 s* ^省略部分根据个人要求编辑

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

1. (defun c:myhatch ()
   ) Q9 U$ T% C0 H- X7 d8 l: ^: l
2. (setq pa '(0 0 0))
   7 B, ^$ T: Q5 }( M' Z3 t7 C9 C
3. (setq pb '(400 400 0))
   3 i& D8 [8 H% N, ^9 [3 s6 p! S
4. (setq po '(300 300 0))
   
5. (command "rectang" pa pb)
   . ?. Q6 y; v& U9 E
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   " @9 U+ \0 }9 R2 E- ]( S7 d( O
8. (princ)
   3 g% q( b& [. T3 s, F9 ]5 J% }
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   * {  U9 z" O. s  u
2.   (setq pa '(0 0 0))
   
3.   (setq pb '(400 400 0))
   
4.   (setq po '(300 300 0))
   
5.   (command "rectang" pa pb)
   + S' l- W! q0 M: n/ B0 Z
6.   (command "-hatch" po "P" "solid" ""  )
   
7.   (setq a (entlast))
   
8.   (setq b (entget a))
   ' m6 m. V; x: D3 E
9.   (setq c (assoc 62 b))
   ( ?) _$ {) e6 v7 I9 q
10.   (if c
    
11.     (progn
    
12.       (setq d (cons 62 1))
    % d8 Z* i6 ^7 W' D
13.       (setq b (subst d c b))
    9 P* j! m5 d, Z: [6 s
14.     )
    
15.     (setq b (append b (list (cons 62 1))))
    
16.   )
    4 X$ Q) ?  t1 U. x+ p3 ?% U& Z
17.   (entmod b)
    9 c1 A$ u5 @- h9 k: M: l  h
18.   (princ)
    + U3 x$ O; f1 X
19. )

复制代码

1. 
   $ p! x8 W5 u! g$ Z
2. (defun c:myhatch ()
   - P0 b$ }+ l- I) z- ^
3.   (setq pa '(0 0 0))
   : P) U/ S; V, _( `+ `
4.   (setq pb '(400 400 0))
   # j7 f# z: v% g6 \; Q
5.   (setq po '(300 300 0))
     u' E, S7 m3 ^1 F" s" O! [+ d) l
6.   (command "rectang" pa pb)
   6 L& M$ e  M9 I  t' l# r# n
7.   (command "-color" 1)
   2 @5 l5 l4 ^: U  U8 J
8.   (command "-hatch" po "P" "solid" ""  )
   
9.   (princ)
   
10. )
    

复制代码

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

ryljun

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

woaishuijia

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