请问一个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
. g# ^) L6 h6 b' r( I+ x(command "hatch" ...)5 g6 z& I- M: Q. o/ f; m i4 U; q
省略部分根据个人要求编辑

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

(defun c:myhatch ()* M3 R0 m7 a" W# ?# @$ X
(setq pa '(0 0 0))
: E. B& c- L% n" c
(setq pb '(400 400 0))
4 ?& _/ w6 T& b6 B* ]6 b, z
(setq po '(300 300 0))! \' h! T, s2 g, @) L$ D* B
(command "rectang" pa pb): X# t; A. n5 `* _7 q; j3 R
;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用3 Y! q' H# n. u4 a. m% Z9 R; J
;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？0 A9 z j- }& ^* T8 I% e8 k, Y
(princ)
" N, e3 {: C3 f7 x( G
)

复制代码

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

(defun c:myhatch (/ a b c d)& F8 b$ Y4 h0 O7 s* g I$ H# T9 ?
(setq pa '(0 0 0))9 \+ a- _+ T* f0 }, a% @
(setq pb '(400 400 0))
* d* v) b6 M t
(setq po '(300 300 0))
3 f. b) X$ Y. h% w* s
(command "rectang" pa pb)
) |( E7 k8 B. t; ]; O
(command "-hatch" po "P" "solid" "" )
5 N; R8 P* R i4 y: Q( [0 ?
(setq a (entlast))2 h$ G; ^ a# c2 i
(setq b (entget a))4 e! [9 g% l' D/ F4 }
(setq c (assoc 62 b))( c3 O8 m7 A, d5 x5 X6 X
(if c
, e" y% T* r9 M1 O
(progn
( W w I, e# U
(setq d (cons 62 1))
; i- o( Z7 h3 c. }7 X# X0 {% G
(setq b (subst d c b))9 L2 m' i$ j8 ?. g0 T4 }9 {
)/ D4 ]* @! r2 g% H* L1 U
(setq b (append b (list (cons 62 1))))5 J" F1 h! \7 J0 {* l( c
)
. p5 M- z7 P; L- G* j
(entmod b)) x' O1 }; S4 Y
(princ)6 p) J9 g; d! C6 j0 u" {- s
)

复制代码

! A( y8 m: J/ Q n5 V7 @# ?! U
(defun c:myhatch ()# d9 y9 _; ^2 U& Q# b) }9 i8 C
(setq pa '(0 0 0))" q/ Y* D% x w# y0 H: c
(setq pb '(400 400 0))6 p% m H; {; V( T0 D6 J* h
(setq po '(300 300 0))7 @; n" B1 o/ ] D: S5 k5 o
(command "rectang" pa pb)
$ o9 f3 t3 q: ?6 @. ~
(command "-color" 1)
- T* G7 ^, F4 S8 M6 Y# q+ F$ W
(command "-hatch" po "P" "solid" "" )( o6 ?! j5 f6 M
(princ)# w {6 o( {. C, M, H% Z. j
)! ~& s" Y" u$ j8 y" |

复制代码

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

浏览过的版块