明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 6001|回复: 17

200明经币....CAD关联到EXCEL...........

[复制链接]
发表于 2013-6-1 16:08 | 显示全部楼层 |阅读模式
200明经币





对应EXCEl表格




对应CAD

1:CAD图右上角有一个自编号,对应表格内的自编号,
能不能点一下右上角自编号,则将表格内对应该的地号内容
填写到相应CAD表格中




宅证对应表格


宅证对应图
2:和上面差不多,不过这份就是对应宅基地证等信息
PS:有几千份,图形大小都有不同,不过表头那几个字大小是有比例缩放的

,QQ 277046359  























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

最佳答案

查看完整内容

;;;返回指定Excel文件指定编号的一行值

本帖被以下淘专辑推荐:

发表于 2013-6-1 16:08 | 显示全部楼层
本帖最后由 nzl1116 于 2013-6-16 13:43 编辑
xujinhua 发表于 2013-6-1 18:31
自己顶!!!!!!!!!!!!


;;;返回指定Excel文件指定编号的一行值
  1. (defun GetExcelData (ExcFile   Bianhao         /           ExcObj    WBKs
  2.                      XlsFile   ActSht         Range           Cells     return
  3.                      return0   EveryRow         First
  4.                     )
  5.   (setq        ExcObj         (vlax-get-or-create-object "Excel.Application")
  6.         WBKs         (vlax-get-property ExcObj 'WorkBooks)
  7.         XlsFile         (vlax-invoke-method WBKs 'open ExcFile)
  8.         ActSht         (vlax-get-property XlsFile 'ActiveSheet)
  9.         Range         (vlax-get-property ActSht 'usedRange)
  10.         EveryRow (vlax-get-property Range 'Rows)
  11.         return         nil
  12.         First         nil
  13.   )
回复

使用道具 举报

 楼主| 发表于 2013-6-1 16:18 | 显示全部楼层
这个还要改模版,我自己写了一个改模版的,指教
  1. (defun c:ww()
  2. (setvar "osmode" 0)
  3.   (setq chklay (tblsearch "layer" "新加表格"))
  4.    (if (= chklay nil)
  5.        (command "layer" "n" "新加表格" "c" "1" "新加表格" "")
  6.    )
  7.   (setq chklay (tblsearch "layer" "建基"))
  8.    (if (= chklay nil)
  9.        (command "layer" "n" "建基" "c" "1" "建基" "")
  10.    )
  11.   (setq chklay (tblsearch "layer" "用地"))
  12.    (if (= chklay nil)
  13.        (command "layer" "n" "用地" "c" "1" "用地" "")
  14.    )
  15.     (setq chklay (tblsearch "layer" "层数"))
  16.    (if (= chklay nil)
  17.        (command "layer" "n" "层数" "c" "1" "层数" "")
  18.    )
  19.   (setq chklay (tblsearch "layer" "结构"))
  20.    (if (= chklay nil)
  21.        (command "layer" "n" "结构" "c" "1" "结构" "")
  22.    )
  23.   (setq chklay (tblsearch "layer" "总建"))
  24.    (if (= chklay nil)
  25.        (command "layer" "n" "总建" "c" "1" "总建" "")
  26.    )
  27.   (setq lb nil lbjg nil dzlb nil)
  28.   (setq xu 0)
  29.   (setq pl (ssget  (list (cons 8 "表头" ))))
  30.   (setq 数量 (sslength pl))
  31.   (repeat 数量
  32.   (setq ZD (ssname pl xu));开始字头
  33.   (setq xu (+ xu 1))
  34.   (setq 字头高 (cdr(assoc 40(entget ZD))))
  35.   (setq 比例 (/ 字头高 1.5))
  36.   (setq 字头座标 (cdr(assoc 10(entget ZD))))
  37.   (setq 左上角 (polar (polar 字头座标 pi (* 11.553 比例)) (* 1.5 pi) (* 0.8899 比例)))
  38.     (写地址)
  39.   (删除表格子程序)
  40.   (setvar "osmode" 33)
  41.   (command "insert" "新加表格xu" "s" 比例  左上角 "" "" "")
  42.     (command "chprop"  (entlast) ""  "LA" "新加表格" "")
  43.      (command "explode" (entlast))
  44.     (command "explode" (entlast))
  45.     (setvar "osmode" 0)
  46.   (setq 层数 (car lb))
  47.   (setq 建基 (cadr lb))
  48.   (setq 总建 (caddr lb))
  49.   (if (= 结构 "框架")
  50.    (setq 结构1 "A")
  51.     )
  52.   (if (= 结构 "混合")
  53.    (setq 结构1 "B")
  54.     )
  55.   (if (or(= 结构 "双隅砖木")(= 结构 "砖木"))
  56.    (setq 结构1 "C")
  57.     )
  58.   (if (= 结构 "简易")
  59.    (setq 结构1 "E")
  60.     )
  61.   (command "text" (polar (polar 左上角 (* 1.5 pi) (* 4.9 比例 )) 0 (* 12 比例)) (* 0.3 比例)  "" 结构1)
  62.   (command "chprop"  (entlast) ""  "LA" "结构" "")
  63.   (command "text" (polar (polar 左上角 (* 1.5 pi) (* 5.6 比例 )) 0 (* 11 比例)) (* 0.3 比例)  "" 层数)
  64.   (command "chprop"  (entlast) ""  "LA" "层数" "")
  65.   (command "text" (polar (polar 左上角 (* 1.5 pi) (* 6.35 比例 )) 0 (* 11 比例)) (* 0.3 比例)  "" 建基)
  66.   (command "chprop"  (entlast) ""  "LA" "用地" "")
  67.   (command "text" (polar (polar 左上角 (* 1.5 pi) (* 23.6 比例 )) 0 (* 3 比例)) (* 0.4 比例)  "" 建基)
  68.   (command "chprop"  (entlast) ""  "LA" "用地" "")
  69.   (command "text" (polar (polar 左上角 (* 1.5 pi) (* 7 比例 )) 0 (* 11 比例)) (* 0.3 比例)  "" 建基)
  70.   (command "chprop"  (entlast) ""  "LA" "建基" "")
  71.   (command "text" (polar (polar 左上角 (* 1.5 pi) (* 7.7 比例 )) 0 (* 11 比例)) (* 0.3 比例)  "" 总建)
  72.     (command "chprop"  (entlast) ""  "LA" "总建" "")
  73.   (if (/= 最终地址 nil)
  74.       (有地址1)
  75.     )
  76. (setq 地号左上角 (polar (polar 字头座标 pi (* 7.5 比例)) (* 1.5 pi) (* 9.2 比例)))
  77. (command "insert" "地号11" "s" 比例  地号左上角 "" "" "")
  78.     (command "explode" (entlast))
  79.     (command "explode" (entlast))
  80.   )
  81.   )





  82. (defun 删除表格子程序()
  83.   (setq c 0)
  84. (setq 右下角 (polar (polar 左上角 (* pi 1.5) (* 22.5 比例)) 0 (* 19.5 比例)))
  85. (setq 要删表格 (ssget "W" 左上角 右下角  '((8 . "表格"))))
  86. (command "erase" 要删表格 "")
  87.   (setq 文字右下角 (polar (polar 左上角 (* pi 1.5) (* 12.5 比例)) 0 (* 19.5 比例)))
  88. (setq 面积内容 (ssget "W" 左上角 文字右下角  '((1 . "*[0-9]*"))))
  89.    (setq lE (sslength 面积内容))
  90.   (repeat le
  91.     (SETQ D (cdr(assoc 1(entget (SSNAME 面积内容 C)))))
  92.     (setq d1 (SSNAME 面积内容 C))
  93.     (setq lb (cons d lb))
  94.     (setq c (+ 1 c))
  95.   )
  96.   (command "erase" 面积内容 "" )
  97. (setq 结构地址 (ssget "W" 左上角 文字右下角  '((1 . "~*#*"))))
  98.    (setq lE (sslength 结构地址))
  99.   (setq c 0)
  100.   (repeat le
  101.     (SETQ D (cdr(assoc 1(entget (SSNAME 结构地址 C)))))
  102.     (setq d1 (SSNAME 结构地址 C))
  103.     (setq lbjg (cons d lbjg))
  104.     (setq c (+ 1 c))
  105.   )
  106.   (command "erase" 结构地址 "")
  107.   (if(= le 1)
  108.     (只有结构))
  109.   (if (> le 1)
  110.     (地址结构))
  111.   )



  112. (defun 只有结构()
  113.   (setq 结构 (car lbjg))
  114.   )

  115. (defun 地址结构()
  116.   (setq 结构 (car lbjg))
  117.   (setq 地址 (cadr lbjg))
  118.   )

  119. (defun 写地址()
  120.   (setq y 0)
  121.   (setq 地址左上角(polar 左上角 0 (* 2.6 比例)))
  122.   (setq 地址右下角(polar (polar 地址左上角 0 (* 4.6 比例)) (* 1.5 pi) (* 1.95 比例 )))
  123.   (setq 最终地址(ssget "W" 地址左上角 地址右下角  '((0 . "text"))))
  124.   (if (/= 最终地址 nil)
  125.          (有地址)
  126.     )   
  127. )
  128. (defun 有地址()
  129.    (setq y11 (cdr(assoc 10(entget(ssname 最终地址 0)))));地址座标
  130.   (command "move" 最终地址 "" y11 (polar(polar y11 0 (* 16.6 比例)) (* pi 1.5) (* 2 比例)))
  131.    )



  132. (defun 有地址1()
  133.     (setq 移座标(cdr(assoc 10(entget(ssname 最终地址 0)))))
  134.     (setq wz (polar(polar 左上角 (* 1.5 pi) (* 3.5 比例)) 0 (* 10.5 比例)))
  135.     (setvar "osmode" 0)
  136.     (command "chprop"  最终地址 ""  "LA" "门牌号" "")
  137.     (command "move" 最终地址 "" 移座标 wz )
  138.    
  139.   )

本帖子中包含更多资源

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

x
回复

使用道具 举报

 楼主| 发表于 2013-6-1 16:36 | 显示全部楼层
自己顶。。。。。。
回复

使用道具 举报

发表于 2013-6-1 17:26 | 显示全部楼层
将相应的表格制成属性块,需要填写的内容弄成属性!
回复

使用道具 举报

发表于 2013-6-1 17:27 | 显示全部楼层
会编程,你就试着编编,有不懂再问
回复

使用道具 举报

 楼主| 发表于 2013-6-1 17:37 | 显示全部楼层
Gu_xl 发表于 2013-6-1 17:26
将相应的表格制成属性块,需要填写的内容弄成属性!

一个个做成块?麻烦啊。。。。
回复

使用道具 举报

 楼主| 发表于 2013-6-1 17:38 | 显示全部楼层
nzl1116 发表于 2013-6-1 17:27
会编程,你就试着编编,有不懂再问

就是不会啊...加上时间不够啊。。。。。
回复

使用道具 举报

 楼主| 发表于 2013-6-1 18:26 | 显示全部楼层
被逼着交资料啊........
回复

使用道具 举报

 楼主| 发表于 2013-6-1 18:31 | 显示全部楼层
自己顶!!!!!!!!!!!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 01:07 , Processed in 0.251474 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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