[试用]：一个输出hatch图案（可以有孤岛）面积\周长\质心和坐标列表的函数

xiao_longxin

;;; hatch->property .LSP ver 1.1,适用2002以上版本

;格式说明
;使用　(hatch->property 图元名 是否只取最外环(T or Nil) 是否保留面域(T or Nil)
;返回值格式：
;  (
;    ( 234.78：最大环面积　123.78：最大环周长　(x y)：最大环质心坐标
;      <图元名>：围成此环的region图元名，可以用它来进行面的并与差集
;　　　　((x1 y1 z1) (x2 y2 z2)..........(xn yn zn)))=围成环的坐标，
             ;如果环是由line、pline、pline的二次拟合、pline的三次拟合外线围合的话，则只返回面积，无坐标表
;    ( 234.78：子环1面积　123.78：子环1周长　(x y)：子环1质心坐标
;      <图元名>：围成此环的region图元名，可以用它来进行面的并与差集
;　　　　((x1 y1 z1) (x2 y2 z2)..........(xn yn zn))
;    ( 234.78：子环2面积　123.78：子环2周长　(x y)：子环2质心坐标
;      <图元名>：围成此环的region图元名，可以用它来进行面的并与差集
;　　　　((x1 y1 z1) (x2 y2 z2)..........(xn yn zn))
;    .
;    .
;    .
;  )
;

;注意：严禁SPLINE与别的线型混合在一起围合环，可以单独围合

xiaomihu

我在明经通道里见过这个程序，请问用什么命令调用啊

xiao_longxin

你可以在cad的令行中输入“(hatch->property  (car (entsel)) nil t)”试用

xiaomihu

能说的详细一点吗
我用了一下返回
no function definition: vlax-ename->vla-object

xiao_longxin

最初由 xiaomihu 发布
[B]能说的详细一点吗
我用了一下返回
no function definition: vlax-ename->vla-object [/B]

    (vl-load-com)

mp3_ku

好用么？

zhang119

太需要了了；；；；；；；；；；；；；；；；；

genius_8237

尝试用一下，希望有惊喜

genius_8237

试用程序没有看到