找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 647|回复: 6

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

[复制链接]

已领礼包: 50个

财富等级: 招财进宝

发表于 2018-5-16 13:47:14 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
本帖最后由 君是我的泪 于 2018-5-21 10:16 编辑

Unnamed QQ Screenshot20180516133816.png Unnamed QQ Screenshot20180516133350.png Unnamed QQ Screenshot20180521101415.png




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

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

您的用户组是:游客

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



论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 3701个

财富等级: 富可敌国

发表于 2018-5-16 14:05:19 | 显示全部楼层
知道拐点的坐标,可计算出长度和角度,何须沿线提取!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3701个

财富等级: 富可敌国

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


点评

起点设置可以在CAD里打断,然后合并,方向可以在excel里排序,标记点号可以输入坐标查找该点,技术上可以弥补  详情 回复 发表于 2018-5-17 08:21
因为制作的时候,材料要剪断,肯定是有误差的,一般起点都要自己选择的,不是任意起点都合适的,希望考虑一下这个要求,在修改一下  详情 回复 发表于 2018-5-16 16:04
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 50个

财富等级: 招财进宝

 楼主| 发表于 2018-5-16 14:54:40 | 显示全部楼层
本帖最后由 君是我的泪 于 2018-5-16 15:00 编辑

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

节点号        X值        Y值        长度(m)        角度(°)
1        1237.129        3555.39        358.6        80
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 50个

财富等级: 招财进宝

 楼主| 发表于 2018-5-16 16:04:25 | 显示全部楼层

因为制作的时候,材料要剪断,肯定是有误差的,一般起点都要自己选择的,不是任意起点都合适的,希望考虑一下这个要求,在修改一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3904个

财富等级: 富可敌国

发表于 2018-5-17 08:10:06 | 显示全部楼层
做一个热心并受欢迎的人
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 50个

财富等级: 招财进宝

 楼主| 发表于 2018-5-17 08:21:57 | 显示全部楼层
本帖最后由 君是我的泪 于 2018-5-17 08:47 编辑

起点设置可以在CAD里打断,但是一打断又出问题了,因为是封闭多段线,方向可以在excel里排序,标记点号可以输入坐标查找该点,技术上可以弥补,还有应该有大于180度的,都不是内角吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 23:06 , Processed in 0.184042 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表