地质柱状图生成--动态dcl案例，做现场资料的小伙伴有用
本帖最后由 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))
)
)
liufii 发表于 2023-10-8 09:15
能否再加上侧阻力、端阻力两列数据？
不必在这儿算，把结果跟随文字补充就行了 能否再加上侧阻力、端阻力两列数据？ 谢谢楼主的分享！下载来试试看 收藏备用 感谢分享， 收藏备用 感谢分享， 收藏备用 谢谢分享,非常实用. 感谢分享， 收藏备用 顶顶 写的非常不错哦
页:
[1]
2