【已解决】如何沿线提取文字，角度标准，多段线，比图纸更直观的，易于加工

君是我的泪

附件上有两条多段线，随便选一段试试吧，以那一端为开头，顺时针还是逆时针上面的标注都是晓东CAD批量生成的
这其实是好几个步骤，只要做那匹独角兽马的外形

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:文字沿线提取导出.zip 
下载次数:10  文件大小:352.53 KB 
下载权限: 不限 以上  [免费赚D豆]

dnbcgrass

知道拐点的坐标，可计算出长度和角度，何须沿线提取！

dnbcgrass

2. (defun c:tcc()
   
3.     (if (setq ssa (ssget ":S" '((0 . "lwpolyline"))))
   
4.         (if (setq wjm (getfiled "存盘文件" "e:\" "csv" 1))
   
5.              (progn
   
6.                   (setq ent (ssname ssa 0)
   
7.                         dxf (entget ent)
   
8.                         pts (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 10)) dxf))
   
9.                   )
   
10.                   (setq i 0  n (length pts))
    
11.                   (setq jgb nil)
    
12.                   (setq fff (open wjm "w"))
    
13.                   (write-line "节点号,X值,Y值,长度(m),角度(°)" fff)
    
14.                   (repeat n
    
15.                       (if (= i 0)
    
16.                           (setq p1 (last pts))
    
17.                           (setq p1 (nth (1- i) pts))
    
18.                       )
    
19.                       (setq p2 (nth i pts))
    
20.                       (if (= i (1- n))
    
21.                           (setq p3 (car pts))
    
22.                           (setq p3 (nth (1+ i) pts))
    
23.                       )
    
24.                       (setq jlz (distance p1 p2))
    
25.                       (setq ang (- (angle p2 p3) (angle p2 p1)))
    
26.                       (if (< ang 0) (setq ang (+ ang (* 2 pi))))
    
27.                       (if (> ang pi) (setq ang (- (* 2 pi) ang)))
    
28.                       (setq ang (vl-string-subst "" "d" (angtos ang 1 0)))
    
29.                       (setq i (1+ i))
    
30.                       (write-line (strcat (itoa i) ","
    
31.                                           (rtos (car  p2) 2 3) ","
    
32.                                           (rtos (cadr p2) 2 3) ","
    
33.                                           (rtos jlz 2 1) ","
    
34.                                           ang
    
35.                                   )
    
36.                                   fff
    
37.                       )
    
38.                   )
    
39.                   (close fff)
    
40.              )
    
41.          )
    
42.     )
    
43.     (princ)
    
44. )

(defun c:tcc()<br />     (if (setq ssa (ssget ":S" '((0 . "lwpolyline"))))<br />         (if (setq wjm (getfiled "存盘文件" "e:\" "csv" 1))<br />              (progn<br />                   (setq ent (ssname ssa 0)<br />                         dxf (entget ent)<br />                         pts (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 10)) dxf))<br />                   )<br />                   (setq i 0  n (length pts))<br />                   (setq jgb nil)<br />                   (setq fff (open wjm "w"))<br />                   (write-line "节点号,X值,Y值,长度(m),角度(°)" fff)<br />                   (repeat n<br />                       (if (= i 0)<br />                           (setq p1 (last pts))<br />                           (setq p1 (nth (1- i) pts))<br />                       )<br />                       (setq p2 (nth i pts))<br />                       (if (= i (1- n))<br />                           (setq p3 (car pts))<br />                           (setq p3 (nth (1+ i) pts))<br />                       )<br />                       (setq jlz (distance p1 p2))<br />                       (setq ang (- (angle p2 p3) (angle p2 p1)))<br />                       (if (< ang 0) (setq ang (+ ang (* 2 pi))))<br />                       (if (> ang pi) (setq ang (- (* 2 pi) ang)))<br />                       (setq ang (vl-string-subst "" "d" (angtos ang 1 0)))<br />                       (setq i (1+ i))<br />                       (write-line (strcat (itoa i) ","<br />                                           (rtos (car  p2) 2 3) ","<br />                                           (rtos (cadr p2) 2 3) ","<br />                                           (rtos jlz 2 1) ","<br />                                           ang<br />                                   )<br />                                   fff<br />                       )<br />                   )<br />                   (close fff)<br />              )<br />          )<br />     )<br />     (princ)<br /> )

君是我的泪

可不可以把序号在CAD图上标出，以便打断查找，再把代码修改一下，还有初始节点的长度好像有错误，你试试那个马的翅膀。初始角度你是按水平线的啊，最好设置一个能选择起点和方向的，你知道有时候会出现>180度的

节点号        X值        Y值        长度(m)        角度(°)
1        1237.129        3555.39        358.6        80

君是我的泪

dnbcgrass 发表于 2018-5-16 14:36

因为制作的时候，材料要剪断，肯定是有误差的，一般起点都要自己选择的，不是任意起点都合适的，希望考虑一下这个要求，在修改一下

yangjian001

做一个热心并受欢迎的人

君是我的泪

dnbcgrass 发表于 2018-5-16 14:36

起点设置可以在CAD里打断，但是一打断又出问题了，因为是封闭多段线，方向可以在excel里排序，标记点号可以输入坐标查找该点，技术上可以弥补，还有应该有大于180度的，都不是内角吧