请问一个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.gif; x+ w7 E( X# n6 r
(command "hatch" ...)# ~' m# g8 P- m r" ], h J3 y
省略部分根据个人要求编辑

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

(defun c:myhatch (): w6 R2 Z/ |: C, E8 k+ ~" ]
(setq pa '(0 0 0))( \0 S% }7 y! L9 u
(setq pb '(400 400 0))% i- d1 W4 q: A% L
(setq po '(300 300 0))% ~& i, ~" y6 U8 b
(command "rectang" pa pb)
& s0 j9 x3 c% F% A; Y
;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用- ~# G, Y) ~, F% {' C
;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？0 i- m9 M8 [+ C9 m2 F
(princ)
, M* c/ I* F; b n$ M0 p+ q
)

复制代码

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

(defun c:myhatch (/ a b c d)3 s0 V& i. n6 @* N E/ a
(setq pa '(0 0 0))
/ X4 ~( B4 I" z8 M8 s' s: p8 l
(setq pb '(400 400 0))# C7 B6 U0 Y5 | M/ Q9 J. p
(setq po '(300 300 0))& o/ e* z, A7 `" }2 \
(command "rectang" pa pb)6 z9 E) b5 [9 w5 C! Z, W% l; \1 W
(command "-hatch" po "P" "solid" "" )
* Z, ]& |: | ~2 J
(setq a (entlast))" f4 Y( d6 }; ^9 t$ Z
(setq b (entget a))$ d. t+ w3 m5 Q: b" W
(setq c (assoc 62 b))
8 J1 c" v- s% h6 [, ^! I \( T
(if c+ p) d. a! E5 o5 q' G) f3 L8 J
(progn2 {/ d) e, F2 C& P( D
(setq d (cons 62 1))
1 K# K% a. ^0 T: e$ l, ~
(setq b (subst d c b))
3 L1 o! Q$ t- J8 n7 T1 E
)
9 d' x! q5 f2 E- j J
(setq b (append b (list (cons 62 1)))) y$ V& X8 m& h
)
9 g( {8 E% l8 f) Y
(entmod b)
6 }4 X! S% [( r1 n% K/ t: Z7 X
(princ)* B# ]3 |0 i5 A% [: Y
)

复制代码

4 a! ~4 E8 f* _0 d9 @/ i' L* L9 C5 q+ X
(defun c:myhatch ()
: p8 ], R2 J8 Z0 Q5 N
(setq pa '(0 0 0))- d5 N- d* P" p5 [3 B
(setq pb '(400 400 0))/ Y2 T8 S, i) b% v5 G: ^# U
(setq po '(300 300 0))2 H. d5 ]7 t+ f+ j5 \
(command "rectang" pa pb)' j+ m$ s; n- u; j+ [, J
(command "-color" 1)
- w* [, }" ]9 `# ?$ ?
(command "-hatch" po "P" "solid" "" )
/ p# K Y8 x* {+ }/ {
(princ)( |9 k/ D5 A( I4 P A) @7 c2 I
)6 m- {' \$ z2 i/ ]2 X

复制代码

[ 本帖最后由 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 的帖子

浏览过的版块