再升级展开剖面带弧形闭合LWPOLYLINE多段线为PLINE加高程(标高)线及高程(标高)....

寒潮大冬瓜

再升级展开带弧形闭合LWPOLYLINE多段线为PLINE加高程(标高)线及高程(标高)属性块
展开后直接加注高程属性块→同时标注高程值！
配合线长标注、顶点编号等插件一起使用效果更佳！
SSC批量标注直线多段线圆弧椭圆样条曲线长度(数值永远不大于线长标注图元为独立永...
http://bbs.mjtd.com/forum.php?mo ... 1135&fromuid=418631
(出处: 明经CAD社区)

ljxkm于2019-9-6和波总指导代码升级而成直线曲线等顶点上插入标高属性块并同时更新...
http://bbs.mjtd.com/forum.php?mo ... 1225&fromuid=418631
(出处: 明经CAD社区)

二三维顶点编号波总指导升级版(自动获取多段线顶点个数变为012格式)
http://bbs.mjtd.com/forum.php?mo ... 0841&fromuid=418631
(出处: 明经CAD社区)


; UnfoldLWPolyline-Pline-line-JIA展开弧形LWPOLYLINE多段线为PLINE升级版加高程(标高)
; 功能：将LWPOLYLINE多段线展开为水平直线，并在每个顶点添加垂直线
……
scale (* elev 0.025) ; 以高程为参照作为属性块大小的缩放比例
……

  ;; 创建属性定义图元
  ;; '(0 . "ATTDEF") - 属性定义标记
  ;; '(1 . "0.000") - 默认值(此处会被后续高程值覆盖)
  ;; '(2 . "H") - 属性标记名
  ;; '(3 . "高程值") - 提示文字
  ;; '(70 . 0) - 属性标志(0=可见,可编辑)
  ;; '(7 . "Standard") - 文字样式
  ;; cons 8 blkname - 图层名
  ;; (cons 10 p) - 文字插入点
  ;; (cons 11 p) - 文字对齐点
  ;; '(40 . 3.5) - 文字高度
  ;; '(41 . 0.7) - 文字宽度因子
  ;; 其他文字属性设置(旋转角度,倾斜角度等)
……

寒潮大冬瓜

感谢院长指导！马上上传！

ZYX2129

选择展开线起点:; 错误: no function definition: CREATEELEVATIONBLOCK

寒潮大冬瓜

ZYX2129 发表于 2025-5-5 16:23
选择展开线起点:; 错误: no function definition: CREATEELEVATIONBLOCK

(defun CreateElevationBlock (blkname scale elevation / 4pt p)
  ;; 定义多段线顶点坐标列表 (x y坐标对)
  (setq 4pt '((3 3)(0 0)(-3 3)(12 3))) ; 多段线顶点坐标
  ;; 定义属性文字插入点坐标
你下载了配套函数→两个文档合并到一个lsp文件里→加载运行哟！

xyp1964

ZYX2129

把获取多段线标高值改为获取多段线顶点处高程点块的属性值来绘制线路断面图

寒潮大冬瓜

二维多段线就是这个功能的！有高低起伏的是三维多段线！已经搞出来了，还有点瑕疵→没上传

寒潮大冬瓜

xyp1964 发表于 2025-5-5 21:45

院长出马很棒！