如果让块填满指定的区域

star19901219 · 发表于 2017-5-5 15:26:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

newer · 发表于 2017-5-5 15:28:16

截图片贴上来详细说明。

star19901219 · 发表于 2017-5-5 16:06:43

这是个快
我想让他覆盖才一块闭合的区域里
就像这样 QQ截图20170505152157.png

Lisphk · 发表于 2017-5-5 16:18:04

star19901219 发表于 2017-5-5 16:06

你用阵列就可以了。

star19901219 · 发表于 2017-5-5 16:25:43

Lisphk 发表于 2017-5-5 16:18

但是如果我想在不规则的区域里填满呢

star19901219 · 发表于 2017-5-5 16:27:24

效果就类似填充那样主要是做成填充里面的线颜色都变成统一了不能部分几条变成红色

newer · 发表于 2017-5-5 16:33:42

star19901219 发表于 2017-5-5 16:25

那你在贴个不规则区域，你填充完的图形截图。

yoyoho · 发表于 2017-5-5 16:38:25

_superhatch

star19901219 · 发表于 2017-5-5 16:46:06

就类似这样如果能解决填充里面的线段可以变成不同颜色那就更好了

Lisphk · 发表于 2017-5-5 17:01:01

本帖最后由 Lisphk 于 2017-5-5 17:02 编辑

star19901219 发表于 2017-5-5 16:46

你这个是用填充做的吧，不是块吧，块在边界地方，裁剪显示要费劲了。
提供个思路，如果你想用块阵列，先阵列个不规则边界最大包围框矩形。

阵列后，变成一个整体的块，然后用 XCLIP 命令用不规则边界裁剪图块。

或者，阵列后，用WIPEOUT做遮盖。

star19901219 · 发表于 2017-5-5 17:06:48

Lisphk 发表于 2017-5-5 17:01

我一点一点裁剪的。。。。。我再试试

Lisphk · 发表于 2017-5-5 17:11:17

star19901219 发表于 2017-5-5 17:06

你把块炸开了？

其实，你也可以用布局，做个不规则边界的窗口，模型空间你就不用裁剪了（画个矩形阵列就行了）。布局里面显示的就是裁剪窗口了。

newer · 发表于 2017-5-5 19:20:22

star19901219 发表于 2017-5-5 17:06

给你写个程序， XDRX API下面执行，平铺完，整体转成匿名块

图块平铺边界.gif

(defun c:tt ()
(if (and
(setq e (car (xdrx_entsel "\n选取要平铺的图块<退出>:" '((0 .
"INSERT"
)
)
)
)
)
(setq be (car (xdrx_entsel "\n拾取边界<退出>:" '((0 . "*POLYLINE")
(-4 . "&=")
(70 . 0)
)
)
)
)
)
(progn
(xdrx_begin)
(setq box (xdrx_entity_box be t)
box1 (xdrx_entity_box e t)
pt (last box)
w (distance (car box) (cadr box))
h (distance (last box1) (car box))
w1 (distance (car box1) (cadr box1))
h1 (distance (car box1) (last box1))
origin (last box1)
cols (1+ (fix (/ w w1)))
rows (1+ (fix (/ h h1)))
)
(setq i 0)
(xdrx_setmark)
(repeat rows
(setq j 0)
(repeat cols
(setq p1 (polar pt 0.0 (* j w1))
j (1+ j)
)
(xdrx_entity_copy e origin p1)
)
(setq pt (polar pt (- (/ pi 2.0)) h1))
)
(setq blk (xdrx_block_make (xdrx_entity_explode (xdrx_getss) t) pt t))
(apply
'xdrx_insert_clip
(cons blk (xdrx_getpropertyvalue be "vertices"))
)
(xdrx_end)
)
)
(princ)
)

(defun c:tt () 
  (if (and 
        (setq e (car (xdrx_entsel "\n选取要平铺的图块<退出>:" '((0 . 
                                                                   "INSERT" 
                                                                ) 
                                  ) 
                     ) 
                ) 
        ) 
        (setq be (car (xdrx_entsel "\n拾取边界<退出>:" '((0 . "*POLYLINE") 
                                    (-4 . "&=") 
                                    (70 . 0) 
                                   ) 
                      ) 
                 ) 
        ) 
      ) 
    (progn 
      (xdrx_begin) 
      (setq box (xdrx_entity_box be t) 
            box1 (xdrx_entity_box e t) 
            pt (last box) 
            w (distance (car box) (cadr box)) 
            h (distance (last box1) (car box)) 
            w1 (distance (car box1) (cadr box1)) 
            h1 (distance (car box1) (last box1)) 
            origin (last box1) 
            cols (1+ (fix (/ w w1))) 
            rows (1+ (fix (/ h h1))) 
      ) 
      (setq i 0) 
      (xdrx_setmark) 
      (repeat rows 
        (setq j 0) 
        (repeat cols 
          (setq p1 (polar pt 0.0 (* j w1)) 
                j (1+ j) 
          ) 
          (xdrx_entity_copy e origin p1) 
        ) 
        (setq pt (polar pt (- (/ pi 2.0)) h1)) 
      ) 
      (setq blk (xdrx_block_make (xdrx_entity_explode (xdrx_getss) t) pt t)) 
      (apply 
        'xdrx_insert_clip 
        (cons blk (xdrx_getpropertyvalue be "vertices")) 
      ) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

star19901219 · 发表于 2017-5-6 10:24:45

newer 发表于 2017-5-5 19:20

666666666666666666666666666666666666666666666666666666大神

star19901219 · 发表于 2017-9-9 15:10:33

newer 发表于 2017-5-5 19:20

请我下，为何这打散后会向下延伸好多。这是需要哪里修改下吗

账号		自动登录	找回密码
密码			立即注册

[求助] 如果让块填满指定的区域

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。