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

ryljun · 发表于 2008-10-5 00:29:52

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

maoyangmy · 发表于 2008-10-5 13:34:10

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

ryljun · 发表于 2008-10-5 18:57:07

原帖由 maoyangmy 于 2008-10-5 13:34 发表 http://www.3dportal.cn/discuz/images/common/back.gif5 O; R4 D( s2 [" d* f
(command "hatch" ...), T7 B* p# n: p3 _/ }# @0 c
省略部分根据个人要求编辑

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

(defun c:myhatch ()
p! g0 c4 l3 W% |; C9 p9 \. @
(setq pa '(0 0 0))
5 x- V- B; _: ^
(setq pb '(400 400 0))& W5 V) a- i( D4 {& ]8 d; l
(setq po '(300 300 0))
- z& o- ^- u" [; @8 j* D( ]. {
(command "rectang" pa pb)- Y& B+ t9 J. n& n6 O
;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
& T0 \: n, T2 v! W
;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？$ D. F/ V& N/ G3 ~: G X7 z+ ]. D
(princ)/ u2 I; A0 j, S3 y9 R% V# ^, \$ T! {
)

复制代码

woaishuijia · 发表于 2008-10-5 22:37:29

(defun c:myhatch (/ a b c d)
+ N6 N" N; ]! A- J8 h5 @
(setq pa '(0 0 0))
0 ]/ n' ?. S) q
(setq pb '(400 400 0))* k5 Z' b% g, l! g- |# Z6 @
(setq po '(300 300 0))3 {7 ?! \& d# @% j8 H
(command "rectang" pa pb)9 x# o2 H3 B; e8 u
(command "-hatch" po "P" "solid" "" )
+ j" Z: S8 I+ {1 d' A7 D0 b# \7 S3 ~
(setq a (entlast))
+ g7 s1 X+ p+ L0 F
(setq b (entget a))
2 m+ S1 Y7 T* m' {( u# |2 {6 q
(setq c (assoc 62 b))& Z5 K& e& z9 L9 s7 s
(if c1 Y/ A2 J: N3 |2 ?$ V3 e
(progn
/ v9 e% z; z/ Y, R- e
(setq d (cons 62 1))
. j" x7 p: w& f, R; G3 m7 i
(setq b (subst d c b))
( y/ m# w/ j5 Z8 q- e. S
)+ X( \* x0 r- K8 d2 G$ m
(setq b (append b (list (cons 62 1))))% s' _$ T3 w; U' z" G
): L5 S: p* m+ W' l. c
(entmod b)/ |! D% Q6 m/ H( H9 s9 ~
(princ)
3 D4 W, \4 A9 k. T8 ~% W
)

复制代码

" z: ?6 F: ~6 T2 W U
(defun c:myhatch ()
5 t7 e3 y& S3 A2 v
(setq pa '(0 0 0))
$ Q! J2 A9 \4 m
(setq pb '(400 400 0))8 l4 b% f9 R' v& l
(setq po '(300 300 0))0 f: ]; U) s- l9 {& w1 n
(command "rectang" pa pb)+ Z, v: j1 H9 R' m3 K0 H, B
(command "-color" 1)5 ~% r4 ~5 }0 n6 y$ g2 U7 P3 X
(command "-hatch" po "P" "solid" "" )8 c6 u5 ~% _8 r, ^
(princ)3 S) F& }* {% A5 A( S y$ O1 N
)" g' p' j& o2 _$ `3 j; b

复制代码

[ 本帖最后由 woaishuijia 于 2008-10-6 06:55 编辑 ]

ryljun · 发表于 2008-10-6 20:53:41

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

woaishuijia · 发表于 2008-10-6 21:06:40

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

		自动登录	找回密码
密码			注册

通知

[已答复] 请问一个VLisp图案填充的问题

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

回复 5# ryljun 的帖子

浏览过的版块