根据图面三角网计算喷锚边坡表面积并统计

树櫴希德

llsheng_73 发表于 2015-8-9 08:57
另外，事实上"A123.4Bc"也符合过滤条件(1 . "*[0-9]*")，也就是说想选中全数值文本得用别的过滤条件或者 ...

(1 . "[1-9]*")??

llsheng_73

树櫴希德 发表于 2015-8-11 09:52
(1 . "[1-9]*")??

自己试下就知道了，反正很多种过滤的写法我差不多都试过，好象实际上做不到
好象最终只有"~*[~.0-9]*" 能真正过滤出来，但也无法过滤掉"12.13.14"这种多于两个小数点符号的文本

freehand8008

帮顶！！！！

czb203

有更新吗?楼主？

skg123

那个大神能 把下图中，选中的多段线范围内边面积求出，那就厉害了。

CASS自带有表面积计算功能，处理的方法是下图多段线内在生成很多小三角，再计算面积。

我们编程可以用海伦公式计算单个三角的面积，累计也行。

编程用comand 命令调用CASS的表面功能，只能循环4次，批量处理超过4次就现在了使用。

树櫴希德

选择节点少于3个的三维多段线

1. (defun vxs (e / i v lst)
   
2.   (setq i 0)
   
3.   (while
   
4.     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
   
5.      (setq lst (cons v lst))
   
6.   )
   
7.   (reverse lst))
   
8. ;;;;;;;;;;;;;;;
   
9. 
   
10. (defun c:xz11 (/ kk lst i ent pts len)
    
11. 
    
12. (setq lst (ssget '( (0 . "polyline") (8 . "0,sjw")) ) )
    
13. (setq i 0)
    
14. 
    
15. (setq kk (ssadd))
    
16. (while  (< i (sslength lst))
    
17. 
    
18. (setq ent (ssname lst i))
    
19. 
    
20. (setq pts (vxs ent))
    
21.   (setq len (length pts))
    
22. 
    
23. (if (< len 3) (ssadd ent kk)) ;;;选择节点少于3个的三维多段线
    
24. 
    
25. 
    
26. (setq i (+ i 1))
    
27.   
    
28.   
    
29.   )
    
30. 
    
31. (sssetfirst nil kk)
    
32.   
    
33.   )

(defun vxs (e / i v lst)<br />   (setq i 0)<br />   (while<br />     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))<br />      (setq lst (cons v lst))<br />   )<br />   (reverse lst))<br /> ;;;;;;;;;;;;;;;<br /> <br /> (defun c:xz11 (/ kk lst i ent pts len)<br /> <br /> (setq lst (ssget '( (0 . "polyline") (8 . "0,sjw")) ) )<br /> (setq i 0)<br /> <br /> (setq kk (ssadd))<br /> (while  (< i (sslength lst))<br /> <br /> (setq ent (ssname lst i))<br /> <br /> (setq pts (vxs ent))<br />   (setq len (length pts))<br /> <br /> (if (< len 3) (ssadd ent kk)) ;;;选择节点少于3个的三维多段线<br /> <br /> <br /> (setq i (+ i 1))<br />   <br />   <br />   )<br /> <br /> (sssetfirst nil kk)<br />   <br />   )