明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: yjpzc

取cass断面数据

    [复制链接]
发表于 2012-2-8 22:02 | 显示全部楼层
取横断面、纵断面数据?
发表于 2012-2-24 21:52 | 显示全部楼层
提取断面数据 我发一个,源码如下:
(defun c:tqdmsj()
(srcs_data)
(sjdc_data)
(princ (strcat "\n文件写至" ffn))
(prin1)
)
(defun srcs_data()
  (setq ffn (getfiled "选取/建立数据导出文件" "" "hdm" 1))
  (setq ff (open ffn "w"))
  (close ff)
  (setq hxbl (getint "\n请输入断面横向比例 1 :"))
  (setq zxbl (getint "\n请输入断面纵向比例 1 :"))
)
(defun sjdc_data()
(alert "请选择需要导出数据的断面线")
(setq ss (ssget))
(setq i 0)
(setq gcz 0.00)
(repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq endata (entget ssn))
    (setq zh (getstring (strcat "\n请输入第" (rtos (1+ i) 2 3) "个断面的桩号:")))
    (if (= zh "") (setq zh (1+ i)))
    (setq qd (getpoint "\n请输入该断面中桩点的位置:"))
    (setq qdx (car qd)) (setq qdy (cadr qd))
    (setq bak gcz)
    (setq gcz (getreal (strcat "\n请输入中桩点的高程:<" (rtos bak 2 3) ">")))
    (if (= gcz nil) (setq gcz bak))
    (setq ff (open ffn "a"))
    (princ "begin," ff) (princ zh ff) (princ "," ff) (princ (rtos (1+ i) 2 3) ff) (princ "\n" ff) (close ff)
    (tqzb_data)
    (setq i (1+ i))
)
(prin1)
)     

(defun tqzb_data()
(setq n 0)
(repeat (length endata)
   (setq pp (nth n endata))
   (setq key (car pp))
   (if (= key 10)
       (progn
          (setq x (cadr pp)) (setq y (caddr pp))
          (setq dx (/ (- x qdx) (/ 1000 hxbl)))
          (setq dy (+ (/ (- y qdy) (/ 1000 zxbl)) gcz) )
          (setq ff (open ffn "a"))
          (princ (rtos dx 2 3) ff) (princ "," ff) (princ (rtos dy 2 3) ff) (princ "\n" ff)
          (close ff)
         )
   )
   (setq n (1+ n))
)
(prin1)
)
(prompt "提示:用<tqdmsj>命令来运行本程序")
发表于 2012-6-6 20:23 | 显示全部楼层
c#怎么用啊
发表于 2012-6-12 00:25 | 显示全部楼层
下载试试,看下能不能用!!!
发表于 2012-6-20 19:50 | 显示全部楼层
看不懂。。。
发表于 2012-12-22 10:59 | 显示全部楼层
纵断面中含有曲线段时,不知怎么样
发表于 2012-12-26 21:33 | 显示全部楼层
顶一个,,,都现源码了,,,,
发表于 2013-12-2 15:52 | 显示全部楼层
学习,,学习!!!
发表于 2013-12-12 15:12 | 显示全部楼层
还要买啊?都看不明白
发表于 2017-9-10 18:23 | 显示全部楼层
怎么挣币呢???
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 23:32 , Processed in 0.188033 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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