水泥搅拌桩编号

树櫴希德

根据曲线排序标注圆圈编号-1bianhao.LSP
1-1 1-2 1-3 .....
2-1 2-2 2-3.....
3-1 ....
.
.
.
.

czb203

厉害了我的个哥

zst1978

非常谢谢大侠分享

无厘崖

大师厉害！，感谢分享！

白色微風1991

大師厲害！，感謝分享！

树櫴希德

树櫴希德 发表于 2020-2-24 16:10
根据曲线排序标注圆圈编号bianhao

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. (defun 38zu ( e / e)
   
10.   (cdr(assoc 38(entget e)))
    
11.   )
    
12. ;;;;;
    
13. (defun 10zu ( e / e)
    
14.   (cdr(assoc 10(entget e)))
    
15.   )
    
16. ;;;;;
    
17. (defun 1zu ( e / e)
    
18.   (cdr(assoc 1(entget e)))
    
19.   )
    
20. ;;;;;;
    
21. (defun c:tt1188 ( / lst ent pts pt demj zmj ffn ff) ;标记三角网表面积
    
22. 
    
23.   (setq lst (ssget "x" '( (0 . "text") (8 . "fgbj1")) ) )
    
24. (setq i 0)
    
25. ;(setq zmj 0.000)
    
26. (setq ffn (getfiled "选取/建立数据导出文件" "" "txt" 1))
    
27.   (setq ff (open ffn "w"))
    
28. 
    
29.   
    
30. (while  (< i (sslength lst))
    
31. 
    
32. (setq ent (ssname lst i))
    
33. 
    
34.   
    
35.   (princ (strcat (1zu ent)","(rtos (cadr(10zu ent)) 2 3) "," (rtos (car(10zu ent)) 2 3)"," (rtos (last(10zu ent)) 2 3) "\n"
    
36.     ) ff)
    
37. 
    
38. 
    
39.   
    
40.   
    
41.   
    
42. ;(setq zmj(+ zmj demj))
    
43. 
    
44. (setq i (+ i 1))
    
45.   
    
46.   
    
47.   )
    
48. 
    
49. (close ff)
    
50.   (princ)
    
51. 
    
52. )

(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 /> (defun 38zu ( e / e)<br />   (cdr(assoc 38(entget e)))<br />   )<br /> ;;;;;<br /> (defun 10zu ( e / e)<br />   (cdr(assoc 10(entget e)))<br />   )<br /> ;;;;;<br /> (defun 1zu ( e / e)<br />   (cdr(assoc 1(entget e)))<br />   )<br /> ;;;;;;<br /> (defun c:tt1188 ( / lst ent pts pt demj zmj ffn ff) ;标记三角网表面积<br /> <br />   (setq lst (ssget "x" '( (0 . "text") (8 . "fgbj1")) ) )<br /> (setq i 0)<br /> ;(setq zmj 0.000)<br /> (setq ffn (getfiled "选取/建立数据导出文件" "" "txt" 1))<br />   (setq ff (open ffn "w"))<br /> <br />   <br /> (while  (< i (sslength lst))<br /> <br /> (setq ent (ssname lst i))<br /> <br />   <br />   (princ (strcat (1zu ent)","(rtos (cadr(10zu ent)) 2 3) "," (rtos (car(10zu ent)) 2 3)"," (rtos (last(10zu ent)) 2 3) "\n"<br />     ) ff)<br /> <br /> <br />   <br />   <br />   <br /> ;(setq zmj(+ zmj demj))<br /> <br /> (setq i (+ i 1))<br />   <br />   <br />   )<br /> <br /> (close ff)<br />   (princ)<br /> <br /> )