[求助]：怎么把EXCEL的数据复制到CAD中

beansprout

我的语言表达能力差了点, 谁能诉我怎么贴图呀

xiaotang

谢谢cdhua001长老，不当斑竹了还是这样热心，我想问一下，长老的坐标标注是使用什么方法的？是用专门标注工具还是CAD的二次开发软件，有没有小巧一些的坐标标注工具，专门只用来标注坐标的程序？
另外上传图片的方法如下

1. 
   
2.   [FONT=courier new]
   
3. [url]http://p4.xdcad.net/forum/showthread.php?s=&threadid=446136[/url]
   
4.   [/FONT]
   

复制代码

beansprout

现把图附上

♂笨笨♀

这个除了编程我想不出还有什么招

cdhua001

最初由 xiaotang 发布
[B]谢谢cdhua001长老，不当斑竹了还是这样热心，我想问一下，长老的坐标标注是使用什么方法的？是用专门标注工具还是CAD的二次开发软件，有没有小巧一些的坐标标注工具，专门只用来标注坐标的程序？[/B]

我在外挂版下载的Lisp。
为了标注地形图方便，所以XY是反的。

wang77212

大家提交时语言要注意点,有点不明白

grj1998

cdhua001长老
我在外挂版下载的Lisp。
为了标注地形图方便，所以XY是反的。  

可不可以共享一下

cdhua001

最初由 grj1998 发布
[B]cdhua001长老
我在外挂版下载的Lisp。
为了标注地形图方便，所以XY是反的。  

可不可以共享一下 [/B]

[PHP];;;    此小程序为将坐标写在CAD中
(defun c:zb()
  (setvar "cmdecho" 0)
(setq os (getvar "osmode"))  
(setvar "osmode" 4271)
(setq pt (getpoint "\n拾取需要标注的点:"))
(setq y (car pt))
(setq x (cadr pt))
(setq pt1 (getpoint pt "\n拾取标注线起点:"))
(setq x1 (car pt1))
(setq y1 (cadr pt1))
  (setq y2 y1)
  (if (> x1 y)   
      (setq x2 (+ x1 16)
            xx2 (+ x1 0.5))
      (setq x2 (- x1 16)
            xx2 (+ x2 0.5)))
(setvar "osmode" 0)
(setq pt2 (list x2 y2))
(command "line" pt pt1 pt2 "")
(command "style" "Standard" "Times.ttf" "" "" "" "" "")
  (setq dis (getvar "dimzin"))
  (setvar "dimzin" 1)
(command "text" "ml" (list xx2 (+ y1 1.625)) 2 0 (strcat "X " (rtos x 2 3)))
(command "text" "ml" (list xx2 (- y1 1.625)) 2 0 (strcat "Y " (rtos y 2 3)))
(setvar "osmode" os)
  (setvar "dimzin" dis)
  (princ)
)[/PHP]

xiaotang

谢谢，请问是点击图示加载吗？下一步如何进行呀，这些东西从来没接触过，请长老指点

cdhua001

最初由 xiaotang 发布
[B]谢谢，请问是点击图示加载吗？下一步如何进行呀，这些东西从来没接触过，请长老指点 [/B]

你这个问题带有普遍性，我另外单独作了一个主题，进行说明：
http://p4.xdcad.net/forum/showthread.php?s=&threadid=447054

wsprx

用长青藤工具或者真实表格之类的软件