请问一个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+ e" l* `7 _# b3 ?0 P0 H# X
(command "hatch" ...) N* {/ L/ X. d' M0 w7 T+ ?
省略部分根据个人要求编辑

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

(defun c:myhatch ()& y8 O' H" _6 v+ C$ n+ }, h3 u. H. v
(setq pa '(0 0 0))- m v. [2 H3 N! y
(setq pb '(400 400 0))
* O* R# J1 Z( j9 O- X4 K
(setq po '(300 300 0)), N' U/ x8 d$ G% V
(command "rectang" pa pb)
) a4 O' g6 b/ o$ O+ ]; S# J
;;这里放填充代码，CAD有拾取点填充和选择对象填充两种我要用
9 d7 b% |! z$ m/ x5 w. h1 X7 l6 X
;;拾取点的方式填充，拾取点为p0，SOLID，红色。(command "hatch" ...)之后应该是怎样写？) T" n/ I" ^8 @$ r
(princ)/ A1 V9 T1 H; F3 M' A8 C
)

复制代码

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

(defun c:myhatch (/ a b c d)
* B& [4 e0 C5 \$ M$ f+ H* Z
(setq pa '(0 0 0))
2 j, e; y" H4 Z& R; {# [
(setq pb '(400 400 0))" z" v9 W' M1 e- q: M
(setq po '(300 300 0))
- S. c! R2 N! N5 O$ I t
(command "rectang" pa pb)
7 D& V# f5 ~1 ?9 O
(command "-hatch" po "P" "solid" "" )6 S" Z" T) [! L$ k7 _
(setq a (entlast))# p, ^) g% F/ I6 A+ c
(setq b (entget a))
1 a1 e F# S( f$ [" N6 J. T3 G
(setq c (assoc 62 b))# Y5 ~( f2 U, j1 M) a. p
(if c
7 y2 D! \& R- Z4 L
(progn* N$ N4 v7 f( s# T2 T7 i% }
(setq d (cons 62 1))
8 M7 ~- w3 \$ @% b f3 V2 M3 D8 j
(setq b (subst d c b))
7 T! h X: V0 w
)- D& \* j. Z6 R' c1 V1 D7 F5 `/ h' n
(setq b (append b (list (cons 62 1))))) _- _! O& O- Q. P; W* I0 O
)! s& k1 b0 X4 O" K: P
(entmod b)0 o1 |* i9 z3 j8 k6 `
(princ)
7 j* `# q; f" n! A
)

复制代码

! ]8 K* l3 o; A* h+ k6 @
(defun c:myhatch ()
; R1 G' W4 o' F% I# [
(setq pa '(0 0 0))
& p8 i( M+ ~! d% W
(setq pb '(400 400 0)); C7 @( m! T. @7 G1 j4 w0 C3 z
(setq po '(300 300 0))* T* Q6 \. U. M8 i9 h7 r
(command "rectang" pa pb)
8 z- ^" e3 T1 f/ p+ v3 I' z- U1 N
(command "-color" 1)
" R6 f0 ~2 i0 G8 Z% }& R
(command "-hatch" po "P" "solid" "" )6 y+ ~" ~4 g5 s& X6 u F' b2 U
(princ)& U+ I, P& Y2 q( b0 m
)
. f/ p5 A- [1 h6 |2 ]" H

复制代码

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

浏览过的版块