请问一个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
7 s$ j0 c4 |5 k( \, Y(command "hatch" ...)4 N8 t$ Z" U- ?; {2 s* I! e1 {# Z
省略部分根据个人要求编辑

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

(defun c:myhatch ()' C6 U, ?, s& P% l8 @ ]' I
(setq pa '(0 0 0))2 g( e) } T* _0 O' t" b
(setq pb '(400 400 0))
5 s3 H% {9 U8 r' ?7 p
(setq po '(300 300 0))5 ]1 x s0 g4 ?7 x% k7 L) }' g
(command "rectang" pa pb)$ l: p% V: F9 P' v- |+ f! b- n9 C
;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
& L/ \4 ~$ S {0 L! W( h
;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？1 j8 ], M& y) r& R, I
(princ)
( t2 l: R& b: y
)

复制代码

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

(defun c:myhatch (/ a b c d)
0 h" \+ L% r9 Y7 I- m
(setq pa '(0 0 0)) @. D# ?7 l- q' D# b3 c
(setq pb '(400 400 0))3 W1 {+ `' t# Q: a: Z
(setq po '(300 300 0))2 |+ s% _- n4 T
(command "rectang" pa pb)
+ z- {8 n6 H3 t/ u+ `
(command "-hatch" po "P" "solid" "" )9 o# b* X& O8 G
(setq a (entlast))
; p1 p7 m. r( n% ]4 K
(setq b (entget a))" |/ o S4 ]9 u j: w9 Z5 w7 I
(setq c (assoc 62 b))
7 S" r. F0 l0 ?* q$ B4 c6 h( |
(if c
8 Z; y) X/ r! V" f
(progn! g2 W2 P" S( u9 B0 N' R5 w
(setq d (cons 62 1))6 S# ~! v& G9 {# i6 ?0 ~% D7 R
(setq b (subst d c b))
$ N7 }2 b4 q0 U" {3 V6 E* @
)
& d2 z2 t+ R3 U- n/ T6 c
(setq b (append b (list (cons 62 1))))
0 p- {+ W7 E+ s6 a/ C7 H! E
)
1 [8 b; n& q* _! q. H. l# i
(entmod b)
7 J- V1 U5 e. N9 i# P. w
(princ)
- v4 K7 t( Q/ g& R3 N9 g. y
)

复制代码

0 j, N, T7 i! l, \
(defun c:myhatch ()
3 `( x* c# K5 r \" [8 H
(setq pa '(0 0 0))2 C/ g- }) F) t* }. ^7 b
(setq pb '(400 400 0))* u" O& Q6 y# D9 { E0 g- K
(setq po '(300 300 0))- @% ?2 s2 |% w6 ]
(command "rectang" pa pb)
* z6 O) y: K5 |' ^# F! Z, M. u
(command "-color" 1)2 e$ G& I, y Z1 h: A' F
(command "-hatch" po "P" "solid" "" )* e: d! J- B: |6 v
(princ)
: t8 T, n7 b. K8 R
)
7 [* ?" t8 h# N+ U5 e6 b" M; Y7 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 的帖子

浏览过的版块