地质柱状图生成--动态dcl案例，做现场资料的小伙伴有用

wzg356 · 发表于 2023-10-7 18:25:04

本帖最后由 wzg356 于 2023-10-7 21:29 编辑

多年前做资料写的，有点乱，优化发出来
最上面一排参数：桩号/高程可以不要--没有就不注释
填写深度数据时必须正确，往下逐渐加深且不能相等-否则报错

也是新手学习动态dcl案例

程序中前623行是补充的理正填充图案例子，可以不要---只是用于举例修改
其他填充图案均为cad自带的，可以参考增减修改

(setq dcdmlst(append ;这个是公共变量
      '(("素填土" "ANSI37" 10 0) ("黏土" "ANSI31" 10 0)("粉质黏土" "ANSI33"  10 0) ("粉土" "ACAD_ISO02W100" 6 45)
      ("粉、细砂" "AR-SAND" 0.5 0) ("中砂" "AR-SAND" 0.75 0) ("粗砂" "AR-CONC" 0.5 0)
      ("角砾" "TRIANG" 1.5 0) ("圆砾" "HEX" 1.5 0) ("碎石" "TRIANG" 2.5 0)("卵石" "HHZMLS" 5 0) ("漂石"  "GRAVEL" 5 0)
      ("泥岩" "BRASS" 5 0) ("砂质泥岩" "ANSI35" 5 135)("页岩" "ANSI32" 3 0)("砂岩"  "SACNCR" 5 135)("灰岩" "BRICK" 5 0)("花岗岩" "CROSS" 5 0)
      )
      (if(findfile "HHMSLS.PAT")'(("松散卵石" "HHSSLS" 5 0)("稍密卵石" "HHSMLS" 5 0)("中密卵石" "HHZMLS" 5 0)("密实卵石" "HHMSLS" 5 0)))
      ;上面几个图案来自理正，可以没有
));这里添加有效的填充图案名及合理的比例、角度即可

启动命令hh

(defun c:hh( / ls)
      (princ "\n地质柱状图生成,作者WZG356")
      (or zkzztdcldata(setq zkzztdcldata '(("" "1000" "" "" "0")("0")("")("1.0"))))
      (and(setq ls(set-zkzztdcldata zkzztdcldata))
            (drawzkzzt (setq zkzztdcldata ls))
      )
)

wzg356 · 发表于 2023-10-8 09:57:20

liufii 发表于 2023-10-8 09:15
能否再加上侧阻力、端阻力两列数据？

不必在这儿算，把结果跟随文字补充就行了

liufii · 发表于 2023-10-8 09:15:32

能否再加上侧阻力、端阻力两列数据？

p-3-ianlcc · 发表于 2023-10-8 02:03:45

谢谢楼主的分享！下载来试试看

hao3ren · 发表于 2023-10-7 19:38:44

收藏备用

uualice2020 · 发表于 2023-10-7 19:55:25

感谢分享，收藏备用

ZYX2129 · 发表于 2023-10-7 21:56:19

感谢分享，收藏备用

tigcat · 发表于 2023-10-7 22:18:41

谢谢分享,非常实用.

czb203 · 发表于 2023-10-8 09:27:14

感谢分享，收藏备用

言戲無軍 · 发表于 2023-10-8 09:41:36

顶顶写的非常不错哦

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

[源码] 地质柱状图生成--动态dcl案例，做现场资料的小伙伴有用

本帖子中包含更多资源

评分