明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 4010|回复: 16

根据南方CASS三角网土方-DTMTF.LOG文件注记填挖方量到图面

[复制链接]
发表于 2014-5-27 13:27 | 显示全部楼层 |阅读模式
根据南方CASS三角网土方-DTMTF.LOG文件注记填挖方量到图面
同时注记文字和属性快,利用XDCAD的 程序  GU-XL 以及73哥程序修改而成,只是未能算出三角形面积(1 2 3)点构成的三角形标注上,很遗憾。路过高人如有兴趣改善此程序,定当感谢不尽。测试文件内容如下:

本帖子中包含更多资源

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

x
 楼主| 发表于 2014-5-27 13:30 | 显示全部楼层
编号: 525211
1,61055.433,11666.052,7.984
2,61055.612,11665.999,7.963
3,61057.374,11667.853,8.104
挖方: 0.00   填方: 0.15

编号: 2
1,61055.053,11666.662,8.101
2,61055.433,11666.052,7.984
3,61057.374,11667.853,8.104
挖方: 0.00   填方: 0.67

编号: 3
1,61055.489,11665.870,7.953
2,61055.433,11666.052,7.984
3,61055.612,11665.999,7.963
挖方: 0.00   填方: 0.02

编号: 4
1,61051.316,11661.480,7.620
2,61052.069,11665.129,8.096
3,61055.053,11666.662,8.101
挖方: 0.00   填方: 5.47

编号: 5
1,61051.316,11661.480,7.620
2,61055.053,11666.662,8.101
3,61055.433,11666.052,7.984
挖方: 0.00   填方: 2.38

编号: 6
1,61051.316,11661.480,7.620
2,61055.433,11666.052,7.984
3,61054.542,11664.874,7.878
挖方: 0.00   填方: 0.44

编号: 7
1,61055.489,11665.870,7.953
2,61055.433,11666.052,7.984
3,61054.542,11664.874,7.878
挖方: 0.00   填方: 0.13

评分

参与人数 1明经币 +1 收起 理由
flytoday + 1 这是哪来啊啊兄弟

查看全部评分

 楼主| 发表于 2014-5-27 13:34 | 显示全部楼层
本帖最后由 树櫴希德 于 2014-5-27 13:39 编辑

测试文件后缀改为.LOG,删除最尾空行。

本帖子中包含更多资源

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

x
 楼主| 发表于 2014-5-27 13:38 | 显示全部楼层
测试文件奉上,欢迎大家修改 下载

本帖子中包含更多资源

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

x
发表于 2014-5-27 13:54 | 显示全部楼层
跟上
发表于 2014-5-27 14:30 | 显示全部楼层
应该附上测试用的CAD图纸呵呵~
发表于 2014-5-27 14:37 | 显示全部楼层
((and (= l 3.0) (= gx 0.0))
        (setq a (distance (nth 0 pt_lst) (nth 1 pt_lst)))
        (setq b (distance (nth 1 pt_lst) (nth 2 pt_lst)))
        (setq c (distance (nth 2 pt_lst) (nth 0 pt_lst)))
        (setq s (* 0.5 (+ a b c)))
        (setq lst-temp
               (strcat "sqrt("
                       (rtos s 2 d1)
                       "*("
                       (rtos s 2 d1)
                       "-"
                       (rtos a 2 d1)
                       ")"
                       "*("
                       (rtos s 2 d1)
                       "-"
                       (rtos b 2 d1)
                       ")"
                       "*("
                       (rtos s 2 d1)
                       "-"
                       (rtos c 2 d1)
                       "))="
                       (rtos area 2 d2)
               )
        )
        (setq lst (append lst (list lst-temp)))
        (setq area_lst (append area_lst (list area)))
       )                                ;三角形海伦公式
发表于 2014-5-27 14:55 | 显示全部楼层
命令: PZX
请输入比例尺1:500
无效的复杂对象。
命令: 指定对角点:
发表于 2014-5-27 15:31 | 显示全部楼层
支持下
1,61055.433,11666.052,7.984
2,61055.612,11665.999,7.963
3,61057.374,11667.853,8.104
是三角形的三个顶点?
发表于 2014-5-27 15:41 | 显示全部楼层
(mapcar '(lambda (x / p-p bh l-l )
                 (setq p  (_Pnts:Center
                            (setq pa (str->pt (cadr x)))
                            (setq pb (str->pt (caddr x)))
                            (setq pc (str->pt (cadddr x)))
                          )
                       bh (substr (last x) 7)
                       ll (vl-remove "" (String:Split (car x) " "))
                 )
                 (_mktext (polar p _pi2 d) bh)
                 (_mktext p (strcat (car ll) (cadr ll)))
                 (_mktext (polar p _3pi d) (strcat (caddr ll) (last ll)))
                 (_mktext (polar p _3pi (* 2 d)) (strcat "面积:" (rtos (abs (getplarea (list pa pb pc))) 2 2)))
                 (gxl-cs:gcd p bh scale (strcat (car ll) (cadr ll)) (strcat (caddr ll) (last ll)))  
               )
              nl
      )

(defun getplarea (l)
  (* 0.5
     (apply
       '+
       (mapcar
         '(lambda (a b) (- (* (car a) (cadr b)) (* (car b) (cadr a))))
         l
         (append (cdr l) (list (car l)))
       )
     )
  )
)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-6-26 01:34 , Processed in 0.207036 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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