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

ryljun

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

maoyangmy

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

ryljun

原帖由 maoyangmy 于 2008-10-5 13:34 发表 http://www.3dportal.cn/discuz/images/common/back.gif
& z- R" |6 b; n5 J0 @' H  f(command "hatch" ...)
省略部分根据个人要求编辑

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

1. (defun c:myhatch ()
   
2. (setq pa '(0 0 0))
   ) U; J3 V$ q' v: Q1 q: F, M
3. (setq pb '(400 400 0))
   
4. (setq po '(300 300 0))
   
5. (command "rectang" pa pb)
   1 e2 k* A6 R0 c. b0 J
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   
8. (princ)
   % n6 m/ p9 K2 ~0 ~2 K
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   
2.   (setq pa '(0 0 0))
   - C+ ^& q% n6 g: H3 k
3.   (setq pb '(400 400 0))
   ( u- s5 X0 h( }. m+ o" G
4.   (setq po '(300 300 0))
   5 K% z  ]$ w+ a% V
5.   (command "rectang" pa pb)
   : p9 }% H2 b" A) x  a" N
6.   (command "-hatch" po "P" "solid" ""  )
   
7.   (setq a (entlast))
   3 a# W/ M$ Q  ?- _
8.   (setq b (entget a))
   
9.   (setq c (assoc 62 b))
   7 ]. L, g; B8 Y: \
10.   (if c
    $ G2 h! ?4 A- }6 y
11.     (progn
    
12.       (setq d (cons 62 1))
    8 `+ d! `' [1 [! c7 h8 H: s( q
13.       (setq b (subst d c b))
    
14.     )
    
15.     (setq b (append b (list (cons 62 1))))
    * t# i2 B) [: L- ]8 l5 F1 @9 Q
16.   )
    2 v4 m: h0 q. |& e- l) @% A
17.   (entmod b)
    + @% a2 ^8 `* r$ t" e6 T
18.   (princ)
    * S# F! |" b0 r/ W3 _
19. )

复制代码

1. 
   
2. (defun c:myhatch ()
   
3.   (setq pa '(0 0 0))
   
4.   (setq pb '(400 400 0))
   ; ^# ^; S; R+ N+ l7 n' _" Q
5.   (setq po '(300 300 0))
   3 R, T0 n& r. M: l5 Y
6.   (command "rectang" pa pb)
   
7.   (command "-color" 1)
   
8.   (command "-hatch" po "P" "solid" ""  )
   
9.   (princ)
   9 m, _: Z. ]& {7 V# {3 ?
10. )
    ' j; f& C  K# U8 P1 g; `, U

复制代码

7 w  Z) H9 |* m& q5 a6 V[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun

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

woaishuijia

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