请问一个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.gif9 u( Z- m" k2 G0 q, j: [
(command "hatch" ...)
- U+ k' h' P) Q2 b$ _省略部分根据个人要求编辑

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

(defun c:myhatch ()& R. {7 L4 u8 p5 G9 U) L
(setq pa '(0 0 0))
- S! D0 n1 L+ Y5 [6 v7 f! q
(setq pb '(400 400 0))0 R1 W# B% k6 U! n+ g
(setq po '(300 300 0))
& M/ e7 o) j$ j! I
(command "rectang" pa pb)8 F8 A2 H3 n- u5 F. ^+ n6 E5 M& D
;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用- j- D& s1 E" G) |8 A) u( V$ i0 a9 X. i
;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？
0 M! l' r8 z; o) K. a# X1 f/ G7 E
(princ)
" C6 r3 y# @# X. v$ _
)

复制代码

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

(defun c:myhatch (/ a b c d)
8 O1 _ P' N6 @; m% w: u+ P
(setq pa '(0 0 0))
) b# O% A$ p, z1 {
(setq pb '(400 400 0))
0 f6 z, w9 M5 n8 p: ?$ ~
(setq po '(300 300 0))5 A3 o3 T! _1 e J; g* m
(command "rectang" pa pb)
) k! ^% d, r6 h) ]
(command "-hatch" po "P" "solid" "" )! X" c/ e3 P" [; H! U& E# p
(setq a (entlast))7 t. K: n c/ m D+ r' U
(setq b (entget a))9 P: b9 g3 w5 b) G% ^. a& N
(setq c (assoc 62 b))+ P6 i* z0 _5 V1 c8 w) d4 ]
(if c1 d% l3 e5 H; O* k z0 r0 D7 M Z
(progn4 Q# t: M9 _* X3 j3 K8 p/ j
(setq d (cons 62 1))
6 t+ R( v9 s" l& n
(setq b (subst d c b))
, d* w: | ~) ]7 g
)
* h; l; u D& n2 J
(setq b (append b (list (cons 62 1))))
5 e. R1 I* g$ J8 a
)
/ } ?( ?3 G5 X# \7 G
(entmod b)
6 [5 \8 W7 E5 |+ |3 y$ L2 p
(princ)# b! X+ g# {& u0 z8 W
)

复制代码

! h7 T5 ^1 s* B9 }
(defun c:myhatch ()
( X0 m$ z1 Q: n
(setq pa '(0 0 0))* s ?8 |( \ [% y% c
(setq pb '(400 400 0))
8 s3 a' z( E# h! U6 Q% m1 O! T
(setq po '(300 300 0))- |* i$ Y/ d7 Z2 s! A# T
(command "rectang" pa pb)3 P3 D9 _7 r" k! J( c) K+ |
(command "-color" 1)
5 y, s: H4 p+ T& |* s8 O
(command "-hatch" po "P" "solid" "" )2 K4 T9 i) o. s. o+ y! U$ {
(princ)" y0 G2 d' x) R% j* b
). D/ i) a" r% a0 I: D

复制代码

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

浏览过的版块