画横断面的问题

xjm200419042

各位大哥帮帮小弟！

请告知用excel和AutoCAD绘制道路横断面图的方法！

hnsy_2008

  刚申请的 请大家以后多多照顾哈

cjf160204

hnsy_2008 发表于 2008-5-28 23:23
刚申请的 请大家以后多多照顾哈

(defun c:DrawSectionFromExcelData ()
  ; 读取导入的 Excel 数据
  (defun read-excel-data (filename)
    (setq file (open filename "r"))
    (setq data nil)
    (while (setq line (read-line file))
      (setq values (vl-string->list line))
      (setq data (append data (list values)))
    )
    (close file)
    data
  )

  ; 根据数据绘制横断面图
  (defun draw-sections (data)
    (setq start-point (getpoint "\n请输入绘图起始点: "))
    (foreach row data
      (setq mileage (atof (nth 0 row)))
      (setq offset (atof (nth 1 row)))
      (setq elevation (atof (nth 2 row)))
      (draw-one-section start-point offset elevation)
    )
  )

  ; 绘制单个横断面线段
  (defun draw-one-section (start-point offset elevation)
    (setq end-point (polar start-point 0 offset))
    (setq end-point (list (car end-point) (+ (cadr start-point) elevation)))
    (command "pline" start-point end-point)
  )

  ; 让用户选择 Excel 数据文件
  (setq filename (getfiled "选择 Excel 数据文件" "" "csv" 1))
  (if (findfile filename)
    (progn
      (setq data (read-excel-data filename))
      (draw-sections data)
    )
    (princ "\n未找到指定的文件。")
  )
)

yanshengjiang

hnsy_2008 发表于 2008-5-28 23:23
刚申请的 请大家以后多多照顾哈

注册 登录一次就在没来过了啊  真遗憾

f4800

注册时间  2008-5-22


元老级人物啊

008698

你还别说，CAD画横断面图，的方面，我也很想知道。简单方便的。