[讨论]关于批量画直线的问题

nibenqiangdy

在CAD中如何一次性的画出多条直线！

例如，在excel中有两列数据，第一列存了一组坐标点，我们定义为上顶点，第二列存了一组坐标点，我们定义为下定点，每一行的数据可以画出一条直线，在上顶点为中心画一个三角形，以下定点为圆心画一个圆！！

望各位多多帮忙！！！

ZZXXQQ

1、是否要画折线图？

2、要是画折线图是否可以直接用Excel的图形功能？

3、能否一条一条的画？

4、能否给个图样和数据例子以供调试？

nibenqiangdy

不是的，就是一条一条的直线，你知道石油工程吧！

相当于一条一条的井！！

你看以下这个图片，谢谢帮忙！

nibenqiangdy

这里有数据，将如同这个excel中的数据，根据这些数据画直线，第一列表示上顶点，第二列表示下顶点！

nibenqiangdy

有没有人会啊!

急急急急急急急急!!!!!!!!!11

nibenqiangdy

各位大哥大姐们,斑竹们多多帮忙啊!!!!!

Andyhon

ZZXXQQ有足够的能力处理您所提的问题
前提是您得正确的回应他所提的问题
如果他未能全盘了解的话定然是使不上力的
就算是同行也往往各有盘算,更何况是隔行....
可以看出他已经很用心在帮忙了
换您得好好的解謮他所提的问题了
Sorry! 其实我可以默不作声的....

ZZXXQQ

进入excel，打开shuju文件，另存为“带格式文本文件（空格分隔）”。
在ACAD环境下运行下面程序。

2. (DEFUN C:TT ()
3. (SETVAR "CMDECHO" 0)
4. (SETQ OLDOS (GETVAR "OSMODE"))
5. (SETQ NM (IF NM NM ""))
6. (IF (SETQ NM (GETFILED "选择数据文件" NM "prn" 2)) (PROGN
7.   (SETVAR "OSMODE" 0)
8.   (SETQ F (OPEN NM "r"))
9.   (WHILE (SETQ DL (READ-LINE F))
10.    (SETQ PT1 "" I 0)
11.    (WHILE (/= (SETQ TT (SUBSTR DL (SETQ I (1+ I)) 1)) " ")
12.     (SETQ PT1 (STRCAT PT1 TT))
13.    )
14.    (SETQ PT2 (SUBSTR DL (1+ I)))
15.    (COMMAND "LINE" PT1 PT2 "")
16.    (SETVAR "PDMODE" 33)
17.    (COMMAND "POINT" PT1)
18.    (SETQ PT1 (GETVAR "LASTPOINT")
19.          S1 (ENTLAST))
20.    (COMMAND "POINT" PT2)
21.    (SETQ PT2 (GETVAR "LASTPOINT")
22.          DS (DISTANCE PT1 PT2)
23.    SC (/ DS 10))
24.    (SETVAR "PDSIZE" SC)
25.    (COMMAND "ERASE" S1 "")
26.    (COMMAND "POLYGON" "3" PT1 "" SC)
27.    (COMMAND "LINE" PT1 PT2 "")
28.   )
29.   (CLOSE F)
30. ))
31. (SETVAR "OSMODE" OLDOS)
32. (SETVAR "CMDECHO" 1)
33. (PRINC)
34. )

复制代码