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

ryljun

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

maoyangmy

(command "hatch" ...)
* C( e: c" w7 C( n( @省略部分根据个人要求编辑

ryljun

原帖由 maoyangmy 于 2008-10-5 13:34 发表 http://www.3dportal.cn/discuz/images/common/back.gif
(command "hatch" ...)
9 Y+ y. C! g9 i: L* E# t省略部分根据个人要求编辑

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

1. (defun c:myhatch ()
   
2. (setq pa '(0 0 0))
   ' t0 ]% e. s% a& v( ]  h
3. (setq pb '(400 400 0))
   
4. (setq po '(300 300 0))
   
5. (command "rectang" pa pb)
   6 m6 ]0 X2 X, z5 Y4 H$ V
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   ' ~! Q! Q3 y- o6 W# F: x" L
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   , m+ d4 h5 ~1 Z8 r" D. N5 |8 F
8. (princ)
   8 i( Y( D7 U% m: b& T2 Y: [, S
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   
2.   (setq pa '(0 0 0))
   
3.   (setq pb '(400 400 0))
   
4.   (setq po '(300 300 0))
   
5.   (command "rectang" pa pb)
   : w* E" A. A+ s! c: N1 N
6.   (command "-hatch" po "P" "solid" ""  )
   
7.   (setq a (entlast))
   0 l; a: g4 o2 U0 W
8.   (setq b (entget a))
   
9.   (setq c (assoc 62 b))
   
10.   (if c
    5 p5 u- w. X' t" p+ r# X) ~+ g
11.     (progn
    6 F8 h5 E' X" S# u7 D& H0 D; ?+ ?
12.       (setq d (cons 62 1))
    5 _0 X0 B+ ?% ~, [1 x$ E
13.       (setq b (subst d c b))
    ) d7 {7 d- p' I
14.     )
    9 z% e3 H- v! A. ]* X
15.     (setq b (append b (list (cons 62 1))))
    % X2 ]7 ~; p0 M
16.   )
    & K. `- O2 \% j( v
17.   (entmod b)
    
18.   (princ)
    
19. )

复制代码

1. 
   
2. (defun c:myhatch ()
   
3.   (setq pa '(0 0 0))
   ' S  u8 o3 D, o" e6 e
4.   (setq pb '(400 400 0))
   6 N" H' u0 v* f
5.   (setq po '(300 300 0))
   
6.   (command "rectang" pa pb)
   . w6 D2 X4 h* m: T# a, g
7.   (command "-color" 1)
   
8.   (command "-hatch" po "P" "solid" ""  )
   
9.   (princ)
   5 r) q1 P; P" v/ t* q
10. )
    $ v& Y+ I; K* {- h1 V3 l% C, }' B

复制代码

! y8 Y5 K/ Y5 _  Q+ s0 d[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun

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

woaishuijia

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