请问一个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. y: ?9 a) v+ z/ A' U `. E( {3 w
(command "hatch" ...)
. C& g d6 G' e7 ~, I省略部分根据个人要求编辑

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

(defun c:myhatch ()
/ J& D! N% w4 I4 L3 @% q, T
(setq pa '(0 0 0))
+ c: U; }! [; _ |0 G
(setq pb '(400 400 0))
9 Q. f/ w: U/ L2 D- K
(setq po '(300 300 0))
* \) W- v3 N9 ?
(command "rectang" pa pb)) n: Y* }2 m+ C1 r5 v) {$ W
;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
6 e, J9 ~# \) ^6 ~6 B. H- j
;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？0 r, A: Y: O# B5 g
(princ)
5 }2 V0 s% O# @7 Z. C, @& h
)

复制代码

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

(defun c:myhatch (/ a b c d)
9 P+ R; _4 d$ J4 a$ P" r
(setq pa '(0 0 0))
, Y! S5 P1 M; W2 Y7 A8 h. a; G
(setq pb '(400 400 0))4 l" ^1 p; b S5 w4 R
(setq po '(300 300 0)) T- r, R# J- Z) H
(command "rectang" pa pb)) W& x) i. C5 u& L
(command "-hatch" po "P" "solid" "" )1 c S3 `& o& |' j0 X
(setq a (entlast))) I/ l ]9 P% t
(setq b (entget a))8 t9 d8 Q F5 Q
(setq c (assoc 62 b))4 l9 m6 t6 W7 u. i
(if c
# D# P* b; T! f9 h& f
(progn' ]8 j+ p1 G5 H1 H( D
(setq d (cons 62 1))
0 L/ m8 L) s8 K, R
(setq b (subst d c b))
2 |" k' L" t+ U7 R
)' E. G! u6 k# K
(setq b (append b (list (cons 62 1))))
3 `, Q" m& D) k8 v
)
! ^ h6 r' y4 |# i: H( Q
(entmod b)- d- f Y5 _' Y% P/ P% J
(princ)
" d% h9 \8 b; _: Z6 V/ Z
)

复制代码

# W* g6 I# h* u$ X4 K3 Y4 U
(defun c:myhatch (): K" x$ P# g2 e+ V z, @' {: K
(setq pa '(0 0 0))$ r; M$ E: ?8 ^
(setq pb '(400 400 0))
1 m* ~$ }' p9 _9 Y
(setq po '(300 300 0))0 k& p1 j! \2 D# I" T
(command "rectang" pa pb)
% N- ^8 n7 E9 {5 N, n
(command "-color" 1)& \3 x7 L! X% I
(command "-hatch" po "P" "solid" "" )
2 s1 K) |3 y7 e2 F" `4 m
(princ), Q/ N. m* g6 u2 y, T( G
)+ S/ _( d5 x% H4 T6 {7 s: r

复制代码

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

浏览过的版块