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

ryljun

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

maoyangmy

(command "hatch" ...)
7 ~% m# H& ~' O& K* n6 R. k2 Q' ?, C省略部分根据个人要求编辑

ryljun

原帖由 maoyangmy 于 2008-10-5 13:34 发表 http://www.3dportal.cn/discuz/images/common/back.gif
' M1 l* X; b: t/ C4 o3 R5 Q(command "hatch" ...)
省略部分根据个人要求编辑

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

1. (defun c:myhatch ()
   
2. (setq pa '(0 0 0))
   3 ^+ `% `) t1 Y6 _1 N
3. (setq pb '(400 400 0))
   
4. (setq po '(300 300 0))
   
5. (command "rectang" pa pb)
   
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   5 N: K) d& d9 V; _8 M$ V
8. (princ)
   
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   
2.   (setq pa '(0 0 0))
   . F% s; G; t4 x8 p& a; V
3.   (setq pb '(400 400 0))
   
4.   (setq po '(300 300 0))
   ' U; c* a( @; v6 ]4 |
5.   (command "rectang" pa pb)
   
6.   (command "-hatch" po "P" "solid" ""  )
   + l, c. A2 k: Y* K
7.   (setq a (entlast))
   
8.   (setq b (entget a))
   
9.   (setq c (assoc 62 b))
   ( Y$ K" n, i2 ?- v# S' X/ w- `8 T
10.   (if c
    
11.     (progn
    
12.       (setq d (cons 62 1))
    / ?" H# Z2 V9 J/ D7 C
13.       (setq b (subst d c b))
    
14.     )
    # e; {/ ^* n/ O8 l
15.     (setq b (append b (list (cons 62 1))))
    ' b2 W' ]& G% {% G
16.   )
    
17.   (entmod b)
    0 ?; I8 V+ m9 m* [
18.   (princ)
    
19. )

复制代码

1. 
   ! ^( Z9 t; L$ n/ p% K' W' e
2. (defun c:myhatch ()
   
3.   (setq pa '(0 0 0))
   % h) D- I$ U1 f# }3 F4 [
4.   (setq pb '(400 400 0))
   ! @& W8 @( j9 t; d
5.   (setq po '(300 300 0))
   ' r1 s" B2 ^  _& u
6.   (command "rectang" pa pb)
     X9 J( }9 M/ R: _0 e
7.   (command "-color" 1)
   6 k. E; T* a1 F) T) F( }/ `0 y0 v: ^
8.   (command "-hatch" po "P" "solid" ""  )
   0 T! P; U8 u: r3 p5 R& r" C
9.   (princ)
   3 H' P5 i! V' a& Z- A# y+ B
10. )
    ) ?8 ?5 E- R. U8 p

复制代码

; W1 w  J- |: k( p[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun

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

woaishuijia

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