简单编程申请，面积标注并用图案填充范围。

lizhgang.jin · 发表于 2015-4-25 11:22:08

本帖最后由 lizhgang.jin 于 2015-4-25 11:23 编辑

要求：点击多段线围成的范围内部，可连续点击，标注连续点击范围总面积（默认）或选择单独标注每一块范围面积，标注后自动填充图案到每一块标注范围中，不同范围填充边界要和计算面积一样。

st788796 · 发表于 2015-4-25 11:22:09

lizhgang.jin 发表于 2015-4-27 20:53
请修改一下加个累加吧

(defun c:tt (/ p e area hatch txt tarea)
(setq tarea 0.0)
(while (and (setq p (getpoint "\nPick Point: "))
(setq e (bpoly p)) ;_无法形成闭合边界时退出
)
(setq area (vlax-curve-getarea e)
tarea (+ tarea area)
hatch (xdrx_hatch_make e)
txt (xdrx_text_make
p
(rtos area 2 3) ;_面积数
5.0 ;_文字高度
0.0
) ;_当前字体样式
)
(xdrx_hatch_setpattern hatch "CROSS") ;_填充样式名称自己修改
(xdrx_hatch_setscale hatch 10.0) ;_自己根据填充样式设置一个合适比例才可以成功
(xdrx_text_setvermode txt 1)
(xdrx_text_sethozmode txt 4)
(xdrx_text_setalignmentpoint txt p)
(entdel e)
)
(and (not (zerop tarea))
(setq p (getpoint "\nTotle Area Position: "))
(xdrx_text_make
p
(rtos tarea 2 3) ;_面积数
5.0 ;_文字高度
0.0
)
)
(princ)
)

(defun c:tt (/ p e area hatch txt tarea) 
  (setq tarea 0.0) 
  (while (and (setq p (getpoint "\nPick Point: ")) 
              (setq e (bpoly p)) ;_无法形成闭合边界时退出 
         ) 
    (setq area        (vlax-curve-getarea e) 
          tarea        (+ tarea area) 
          hatch        (xdrx_hatch_make e) 
          txt        (xdrx_text_make 
                  p 
                  (rtos area 2 3) ;_面积数 
                  5.0 ;_文字高度 
                  0.0 
                ) ;_当前字体样式 
    ) 
    (xdrx_hatch_setpattern hatch "CROSS") ;_填充样式名称自己修改 
    (xdrx_hatch_setscale hatch 10.0) ;_自己根据填充样式设置一个合适比例才可以成功 
    (xdrx_text_setvermode txt 1) 
    (xdrx_text_sethozmode txt 4) 
    (xdrx_text_setalignmentpoint txt p) 
    (entdel e) 
  ) 
  (and (not (zerop tarea)) 
       (setq p (getpoint "\nTotle Area Position: ")) 
       (xdrx_text_make 
         p 
         (rtos tarea 2 3) ;_面积数 
         5.0 ;_文字高度 
         0.0 
       ) 
  ) 
  (princ) 
)

iLisp · 发表于 2015-4-25 12:52:21

点击生成范围在图不规范时不成功的几率很高，生不成边界后面的步骤也无法完成

newer · 发表于 2015-4-25 17:38:04

还是自己先生成填充，程序去找填充，这样能保险些。

lizhgang.jin · 发表于 2015-4-25 21:42:26

虽然我不会编程可这些功能CAD里都有，我理解就是用程序把它窜起来就差不多了，我的思路是，先点选范围内一点建立边界+然后填充边界范围+然后选择汇总面积标注（默认）或每个边界单标面积+在边界内自动标注面积。具体怎么实现我是外行，所以求助。

XDSoft · 发表于 2015-4-26 01:03:47

lizhgang.jin 发表于 2015-4-25 21:42
虽然我不会编程可这些功能CAD里都有，我理解就是用程序把它窜起来就差不多了，我的思路是，先点选范围内一 ...

主要是你点击一点，不一定能正确生成边界，这个和具体画图人，具体图有关，习惯不好的，可能就生成不了。

lizhgang.jin · 发表于 2015-4-26 19:23:20

XDSoft 发表于 2015-4-26 01:03
主要是你点击一点，不一定能正确生成边界，这个和具体画图人，具体图有关，习惯不好的，可能就生成不了。 ...

编程不考虑这个，大多数图都可以生成边界，只有少数图不行，不行的我们手工处理一下。大多数情况下是可以的，麻烦按可以生成的写个程序，少数不行的我单独手工处理。

lizhgang.jin · 发表于 2015-4-26 19:27:56

点击范围线内一点量面积的CAD插件网上有很多，也是生成边界，唯一的不足就是不能自动填充标注范围的图案。

lizhgang.jin · 发表于 2015-4-26 19:29:41

常青藤工具里面有个面积统计也有选范围内一点，标注面积的功能，也是没有填充图案。

swzlcircle · 发表于 2015-4-26 20:12:17

我也需要用到这个小程序，大神帮帮忙

st788796 · 发表于 2015-4-26 20:36:26

本帖最后由 st788796 于 2015-4-26 20:38 编辑

需加载XDAPI

(defun c:tt (/ p e area hatch txt)
(while (and (setq p (getpoint "\nPick Point: "))
(setq e (bpoly p))
)
(setq area (vlax-curve-getarea e)
hatch (xdrx_hatch_make e)
txt (xdrx_text_make
p
(strcat "S=" (rtos area 2 2) "\u+33a1")
5.0;_文字高度
0.0
);_当前字体样式
)
(xdrx_hatch_setpattern hatch "CROSS");_填充样式名称自己修改
(xdrx_text_setvermode txt 1)
(xdrx_text_sethozmode txt 4)
(xdrx_text_setalignmentpoint txt p)
(entdel e)
)
(princ)
)

xdrx_setpropertyvalue 对 Hatch 的属性修改无效果！只能用 xdrx_hatch 类函数

lizhgang.jin · 发表于 2015-4-27 10:47:29

本帖最后由 lizhgang.jin 于 2015-4-27 10:57 编辑

st788796 发表于 2015-4-26 20:36
需加载XDAPI

程序我试用了，面积标注有乱码，填充改自己样式名称后成功。不能连续点范围i，然后标注汇总后面积，只能单标。期待改进！

lizhgang.jin · 发表于 2015-4-27 10:49:11

本帖最后由 lizhgang.jin 于 2015-4-27 11:00 编辑

希望可连续点击范围，如这几块都是土方那么我就连续点击这几块，然后标注这几块的总面积并按点击的范围都填充上图案。

st788796 · 发表于 2015-4-27 11:06:23

lizhgang.jin 发表于 2015-4-27 10:49
希望可连续点击范围，如这几块都是土方那么我就连续点击这几块，然后标注这几块的总面积并按点击的范围都填 ...

根据注释部分自己修改

(defun c:tt (/ p e area hatch txt)
(while (and (setq p (getpoint "\nPick Point: "))
(setq e (bpoly p)) ;_无法形成闭合边界时退出
)
(setq area (vlax-curve-getarea e)
hatch (xdrx_hatch_make e)
txt (xdrx_text_make
p
(rtos area 2 2) ;_面积数
5.0 ;_文字高度
0.0
) ;_当前字体样式
)
(xdrx_hatch_setpattern hatch "CROSS") ;_填充样式名称自己修改
(xdrx_hatch_setscale hatch 10.0) ;_自己根据填充样式设置一个合适比例才可以成功
(xdrx_text_setvermode txt 1)
(xdrx_text_sethozmode txt 4)
(xdrx_text_setalignmentpoint txt p)
(entdel e)
)
(princ)
)

lizhgang.jin · 发表于 2015-4-27 11:10:24

st788796 发表于 2015-4-26 20:36
需加载XDAPI

需要达到的效果，和为何要编这个程序。

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

[编程申请] 简单编程申请，面积标注并用图案填充范围。

最佳答案

点评

点评

点评

点评