请问一个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.gif6 j( P6 P# C) g8 d4 J
(command "hatch" ...)2 N- i+ A8 s$ T# K ]' n6 M
省略部分根据个人要求编辑

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

(defun c:myhatch ()) U- I3 a& I" E5 Q1 M
(setq pa '(0 0 0))# |) E4 R x8 o. F) h' W) I
(setq pb '(400 400 0))
# q: e4 Y4 R# k$ i5 v/ b
(setq po '(300 300 0))0 i! k! }: q3 h% X0 _, s
(command "rectang" pa pb)
. J% x& |$ q3 i# }. a2 x: |
;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用 C) ?5 u: {" t+ J0 ~. X
;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？8 [+ m3 \# k; h3 R
(princ)* P: E2 n& o. S$ k3 }& \8 D5 I
)

复制代码

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

(defun c:myhatch (/ a b c d)
* e' ~- C5 q9 n1 r0 H, p
(setq pa '(0 0 0))
& y! V$ ]9 H4 W ^
(setq pb '(400 400 0))
2 f% v4 ~ Y2 I: c7 X. s; O. p5 s
(setq po '(300 300 0))8 X' w: e; X, u S
(command "rectang" pa pb)
1 b- g% R( V5 G
(command "-hatch" po "P" "solid" "" )+ l( o+ J4 U* i2 ]1 h0 v- `( |
(setq a (entlast)). d( Z9 l4 ^8 E- \8 Z
(setq b (entget a))
* A* n9 d" @# d5 E
(setq c (assoc 62 b))
$ j% s8 F5 n7 @
(if c
( U: D7 { G, z9 a3 }( H
(progn
' G# @* r3 \& v/ J: P8 G
(setq d (cons 62 1))
2 [/ K! |/ u6 l0 |. {
(setq b (subst d c b))% N1 y' E3 ?) P$ \+ u) r
)) s3 g# ~ m/ g- S N5 R
(setq b (append b (list (cons 62 1))))
- N/ |9 ~3 |! G: W' G
)' ], t1 b" r8 j- c# z2 ^
(entmod b): ^' A- H) B3 a1 F8 `
(princ). v% o8 O! D/ k3 h, F
)

复制代码

9 g! J% Y5 ? O5 v/ Q7 e! ^, ~
(defun c:myhatch ()6 L( Q& x" K# {% N+ r( E9 |3 r: R e
(setq pa '(0 0 0)); o$ x$ I7 O% e3 @& t
(setq pb '(400 400 0))2 g# I' ?( I& r+ E+ S
(setq po '(300 300 0))
5 c. W9 j ?! q( G
(command "rectang" pa pb)
& Y, j7 u, u! w) D
(command "-color" 1)$ S! \2 j( E7 Z+ C( |
(command "-hatch" po "P" "solid" "" ), q. _9 ]/ O* s" ? S
(princ)" ^% |/ u, B5 M
)
& F' G1 X% \+ i( V( k' H# C

复制代码

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