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

ryljun

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

maoyangmy

(command "hatch" ...)
; ?- D' W% h, i2 X  G! N& |; ?, R) ^省略部分根据个人要求编辑

ryljun

原帖由 maoyangmy 于 2008-10-5 13:34 发表 http://www.3dportal.cn/discuz/images/common/back.gif
# J- i8 m6 E0 _0 y(command "hatch" ...)
1 _8 I! s7 ~7 \5 I6 J省略部分根据个人要求编辑

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

1. (defun c:myhatch ()
   
2. (setq pa '(0 0 0))
   6 a- k9 p& ]+ A
3. (setq pb '(400 400 0))
   9 W1 _* c9 ?9 W, B* S
4. (setq po '(300 300 0))
   
5. (command "rectang" pa pb)
   2 p0 d8 x/ u' v* [9 _+ ~
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   ! d% F; y4 Z5 \0 v+ P9 T
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   $ c! @& y1 \% y2 G; @' B
8. (princ)
     Z& P$ l% M+ V2 Y. g7 S9 {" P
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   6 a0 |- Q9 B* S# m
2.   (setq pa '(0 0 0))
   + g( a2 z% X* w/ s0 Q4 z
3.   (setq pb '(400 400 0))
   
4.   (setq po '(300 300 0))
   
5.   (command "rectang" pa pb)
   / Z* _2 i5 I; E2 I" Z2 H
6.   (command "-hatch" po "P" "solid" ""  )
   ; e% w$ z& A! k
7.   (setq a (entlast))
   . C! ~# M7 Y" W" B! |
8.   (setq b (entget a))
   - ^4 b7 K8 \! J! F$ N8 l' k6 g
9.   (setq c (assoc 62 b))
   & g# r7 h! @2 q/ ~/ J" W
10.   (if c
    
11.     (progn
    " F5 }8 o: ?% ?" X$ w2 C8 {  N
12.       (setq d (cons 62 1))
    
13.       (setq b (subst d c b))
      j& l0 w4 V- ~# D6 V4 p8 Y
14.     )
    
15.     (setq b (append b (list (cons 62 1))))
    , \1 v' b; H6 G6 P  O
16.   )
    
17.   (entmod b)
    
18.   (princ)
    2 q  m1 x! L' M0 ~$ ~; l2 m) C
19. )

复制代码

1. 
   ( G, k+ u' C0 a6 n" I
2. (defun c:myhatch ()
   ( N% |- K" {/ w) t, e
3.   (setq pa '(0 0 0))
   7 M5 o- {* t) ^% q+ @
4.   (setq pb '(400 400 0))
   
5.   (setq po '(300 300 0))
   / c% _3 n# B$ V7 K2 i8 U) M$ y
6.   (command "rectang" pa pb)
   
7.   (command "-color" 1)
   
8.   (command "-hatch" po "P" "solid" ""  )
     b9 E4 N. @0 ^: W
9.   (princ)
   , w8 g$ W: s/ L% u" _- t  U( c5 N) V
10. )
    1 |" k7 ]; |0 X' K- n* s" g

复制代码

9 |: \, F" Q4 Y( H% s6 r7 L[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun

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

woaishuijia

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