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

ryljun

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

maoyangmy

(command "hatch" ...)
! j2 n2 M  o* `$ L+ i' J3 E省略部分根据个人要求编辑

ryljun

原帖由 maoyangmy 于 2008-10-5 13:34 发表 http://www.3dportal.cn/discuz/images/common/back.gif
' G  a' C0 g2 f! x(command "hatch" ...)
省略部分根据个人要求编辑

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

1. (defun c:myhatch ()
   ( d" d  q7 O/ i- c, T7 E, C4 F2 m+ D
2. (setq pa '(0 0 0))
   
3. (setq pb '(400 400 0))
   
4. (setq po '(300 300 0))
   - q, p1 j( G1 F5 S( @1 h7 S3 c
5. (command "rectang" pa pb)
   4 _( u# h5 V) J% p4 Y4 ]' y% d
6. ;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
   
7. ;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
   
8. (princ)
   
9. )

复制代码

woaishuijia

1. (defun c:myhatch (/ a b c d)
   
2.   (setq pa '(0 0 0))
   9 ^1 ^! H" D( I: g. t! I3 Q
3.   (setq pb '(400 400 0))
   ) R5 v7 R$ r: _- F0 D3 Z
4.   (setq po '(300 300 0))
   0 A% T- P. ?& ]& _$ d7 m  n# z0 f' t  ]
5.   (command "rectang" pa pb)
   7 I& p0 l# \# d' W( g- t) ~3 M
6.   (command "-hatch" po "P" "solid" ""  )
   
7.   (setq a (entlast))
   3 H- [8 K1 U6 Y+ F( H
8.   (setq b (entget a))
   & ^  _6 C: \9 v- r
9.   (setq c (assoc 62 b))
   7 H* K5 `3 Y7 l3 v, b
10.   (if c
    
11.     (progn
    ! Q/ L# l! x" T/ b$ p
12.       (setq d (cons 62 1))
    
13.       (setq b (subst d c b))
    
14.     )
    % R  t1 b1 ~# {9 E: o
15.     (setq b (append b (list (cons 62 1))))
    
16.   )
    3 E- ]7 U1 ]" [4 {( z& i4 t
17.   (entmod b)
    
18.   (princ)
    , |& j" s8 W8 I3 N) R0 p+ ~1 A5 J
19. )

复制代码

1. 
   * p! H# V$ N& w/ H3 s6 P3 r/ w* @2 q
2. (defun c:myhatch ()
   / b& a, ?0 @1 C$ ?
3.   (setq pa '(0 0 0))
   * }( r# E0 h7 d; |9 G; `
4.   (setq pb '(400 400 0))
     h0 l! j! A6 l' `. D" ]+ k# p& Q
5.   (setq po '(300 300 0))
   $ V* ?4 J! J# w' w& E
6.   (command "rectang" pa pb)
   : i2 G8 ^9 i2 i
7.   (command "-color" 1)
   
8.   (command "-hatch" po "P" "solid" ""  )
   
9.   (princ)
   
10. )
    3 V* D; Q1 Y' v

复制代码

" |$ }- o. ]' r& K: w$ P' Y[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun

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

woaishuijia

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