请问一个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; L! X8 ?; [2 K- j# s* I
(command "hatch" ...)
) U, U/ G1 D# d省略部分根据个人要求编辑

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

(defun c:myhatch (). N' M0 c, c+ V4 a' O
(setq pa '(0 0 0)). Z$ ?# L7 b; O; c8 W
(setq pb '(400 400 0))
: M( N+ U; H! ]
(setq po '(300 300 0))" B. F5 r5 @4 v+ h7 S4 p
(command "rectang" pa pb)' C2 V& r D( n, S0 G g( A3 G
;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用1 M0 [8 d! g+ u3 o2 x
;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
6 P6 e% t4 l9 X& e! J
(princ)# L! R5 x& J! @6 C. n# T6 \
)

复制代码

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

(defun c:myhatch (/ a b c d)- f' m( ^3 d9 ~. I
(setq pa '(0 0 0))) I# U6 ^( [, z. _
(setq pb '(400 400 0))
, u% R' }7 d7 r7 }/ |
(setq po '(300 300 0))
: R" Z5 w6 {0 v$ w8 ^, H( n+ A( v
(command "rectang" pa pb)
1 X7 ~" g6 d& q% ~, g7 G
(command "-hatch" po "P" "solid" "" )% ]# {- Z, h* g8 u0 d% n
(setq a (entlast))( _7 x( V6 J" n; O3 Y- b' e3 J
(setq b (entget a))
/ H/ a2 C9 A: _, r" U
(setq c (assoc 62 b)), d$ C2 |8 z7 l8 j- Z
(if c! n0 H2 P. X. L
(progn
# _4 t. J6 J3 e/ C/ Q1 d
(setq d (cons 62 1))1 r9 E" D9 T$ p3 o0 e+ H# v, Z
(setq b (subst d c b))8 E* w% i3 t: Y8 }5 I3 Z8 U
)
1 o- u% V" k& l# b
(setq b (append b (list (cons 62 1))))2 K/ S8 M- c1 h6 B( M% q, E
)- r# m+ m( Z$ H/ L+ a. y
(entmod b). e- H; n ?; i" S# H8 h: J
(princ)( r" f( |. m, C6 P
)

复制代码

$ R: L2 t2 q, U* |
(defun c:myhatch ()
3 r+ L5 k. _% U0 P! I( L! l
(setq pa '(0 0 0)); r& U1 u1 L. r4 o0 z2 e+ _ a
(setq pb '(400 400 0))
- q; N# O6 f- c" [
(setq po '(300 300 0))
: u) a V' ?& Z& |# ~# m, _
(command "rectang" pa pb)( m; |4 q6 U, }5 [3 B- W3 s; c
(command "-color" 1)& ]; n/ m# r5 ~; e3 o: f+ Z: a
(command "-hatch" po "P" "solid" "" )5 b" M2 X" ?3 d; [' n
(princ)- R8 \3 _5 l' F4 y% b0 d
)
6 ?4 r$ Y8 k; `! s' p

复制代码

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

浏览过的版块