读横纵断面数据自动绘图

王鹏_pBZlo · 发表于 2020-1-4 14:52:02

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

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

×

本帖最后由王鹏_pBZlo 于 2020-1-8 08:30 编辑

功能如题描述
插件和数据格式在附件压缩包内

王鹏_pBZlo · 发表于 2020-1-9 15:01:33

本帖最后由王鹏_pBZlo 于 2020-1-9 16:55 编辑

Trouble12138 发表于 2020-1-9 14:51
是的偏移方向一致

(defun c:tt( / py ent ent1 ent2 p0 p1 p2 p3 p4 )
      (setvar "peditaccept" 1)
      (setq py (getreal "\n指定偏移距离:"))
      (setq ss (ssget))
            (setq p5 (getpoint "\n选择偏移侧的一点:"))       (setq i -1)
   (while (setq ent (ssname ss (setq i (1+ i))))
            (command "offset" py ent p5 "")
            (command "pedit" (entlast) "")
            (setq ent1 (entlast))
            (setq p1 (vLax-Curve-getStartPoint ent))
            (setq p2 (vLax-Curve-getEndPoint ent))
            (setq p3 (vLax-Curve-getStartPoint ent1))
            (setq p4 (vLax-Curve-getEndPoint ent1))
            (if (< (distance p4 p1) (distance p3 p1)) (setq p0 p3 p3 p4 p4 p0))
            (entmake (list (cons 0 "LINE") (cons 10 p1) (cons 11 p3))) (setq ent2 (entlast))
            (entmake (list (cons 0 "LINE") (cons 10 p2) (cons 11 p4)))
            (command "pedit" ent1 "j" ent2 ent (entlast) "" "")
      )
      (princ)
)

Trouble12138 · 发表于 2020-1-9 14:51:16

王鹏_pBZlo 发表于 2020-1-9 14:39
你选择了多个对象每个对象偏移方向都是一样的？

是的偏移方向一致

tzfcn · 发表于 2020-1-5 07:35:04

按坐标格式编辑数据，复制数据、点击画线命令、粘贴即可。

yuren008 · 发表于 2020-1-5 10:21:03

谢谢分享，不错的插件。

qqp741005 · 发表于 2020-1-5 19:56:38

这个功能强大，支持，收藏，谢谢！

chrive · 发表于 2020-1-6 01:56:53

有没有模板注释提供，很不错的插件

王鹏_pBZlo · 发表于 2020-1-6 07:52:01

本帖最后由王鹏_pBZlo 于 2020-1-6 09:07 编辑

chrive 发表于 2020-1-6 01:56
有没有模板注释提供，很不错的插件

横断面数据，每个桩号3行，第一行是桩号，第二行表示中心线左边的数据，第一个数据是点个数，第2，3个数据表示相对中心点的横纵向距离，往后2个一组表示相对前一点的横纵向距离，第3行表示中心线右侧数据

纵断面数据，每行一个桩号，有2个数据，第一个数据是桩号，第2个数据是高程

王鹏_pBZlo · 发表于 2020-1-6 08:06:43

chrive 发表于 2020-1-6 01:56
有没有模板注释提供，很不错的插件

如果你的数据格式与附件不一致，可以定制

jshailinqq · 发表于 2020-1-6 08:21:34

做一个热心并受欢迎的人！

松树石头哥 · 发表于 2020-1-6 09:56:41

感谢楼主分享

chrive · 发表于 2020-1-7 01:13:16

感谢您的回复，附件里没有插件。可以重新发一份含插件的附件上来吗

天龙八部乔峰 · 发表于 2020-1-7 09:23:49

感谢楼主分享

王鹏_pBZlo · 发表于 2020-1-8 08:31:24

chrive 发表于 2020-1-7 01:13
感谢您的回复，附件里没有插件。可以重新发一份含插件的附件上来吗

压缩包已更新,上次忘记把插件放进压缩包了

十全十美 · 发表于 2020-1-8 10:26:02

感谢楼主分享

Trouble12138 · 发表于 2020-1-8 15:18:53

单根多段线偏移变封闭多段线轮廓那个tt.fas文件加载成功后，输入tt无效，怎么回事

Trouble12138 · 发表于 2020-1-8 15:20:25

单根多段线偏移变封闭多段线轮廓那个tt.fas文件，可否再发一下？急求，在线等

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

[工具] 读横纵断面数据自动绘图

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

点评

点评

点评

点评

点评

点评