请教autocad批处理画圆

qdcd

已知一系列的圆的圆心坐标位置和半径大小，如何才cad中批量一次性的绘出这些圆。如果有代码，是否能提供代码，谢谢！

snddd

你的数据存在哪里的？

coolboy123

这个叫脚本，很简单的。举个例子要在以下两个坐标点处画圆（22，23）、（55，70），半径分别为80、100，只需要在记事本上写下如下文字，注意格式：
+ u- `, }) V% T& b- Rcircle
* s" N3 ?; o4 e' V4 T% Z5 f/ N22,23
80
circle
2 q: C$ d) p# S. O9 y/ c; `4 O55,70
0 I( K3 u/ S. d  v# O100
( g! q  J1 L. Z4 c然后复制粘贴到命令栏即可。

snddd

7 ~+ |$ ^& J& I, {( P& ^
可以用vlisp

snddd

(setq dfn(getfiled "数据文件" "E:/" "txt" 8)
dfn (open dfn "r")
os (getvar "osmode")
)
(setvar "osmode" 0)
(while (setq ml (read-line dfn))
(setq zx (read-line dfn)
4 u1 j8 @6 x5 n( Q7 f  bj (read-line dfn)
/ r# f, `+ z0 v0 M0 D1 {  bj (atof bj))
) \5 Z5 _- D4 |2 j(command ml zx bj "")
)
. B/ |" _  I$ |- z(setvar "osmode" os)
(princ)

qdcd

(setq dfn(getfiled "数据文件" "E:/" "txt" 8)
' A+ @8 B9 Y" T* m0 Idfn (open dfn "r")
os (getvar "osmode")
' a$ i8 ^/ z& K# u9 v)
(setvar "osmode" 0)
(while (setq ml (read-line dfn))
(setq zx (read-line dfn)
8 m/ Y8 u+ ~( W0 F  bj (read-line dfn)
  bj ( ...
snddd 发表于 2010-12-22 15:14 http://www.3dportal.cn/discuz/images/common/back.gif

% N: ?  k: w$ {  i  K+ i, w谢谢你了，请问一下在数据在txt中存放的格式是什么呢
是X ，Y ，R三列数据么

qdcd

3# coolboy123 [/b
8 H( o3 r5 t7 K- T& r我的数据有很多，那样做很不方便

SunVei

& }; J* N* G: X7 }5 M, g

谢谢你了，请问一下在数据在txt中存放的格式是什么呢
, t  [$ f4 x2 n9 Y$ f* v: C$ _& }是X ，Y ，R三列数据么

7 w# y; A9 m7 R% R" {
# g) T! t9 k' a+ {1 B' Z% Nsnddd 提供了代码范例
产生了个格式的问题

那么
已知一系列的圆的圆心坐标位置和半径大小
存放格式又是如何,是不是让大伙儿猜下去? 有样例吗?

snddd

格式就是下面这样的
% l, Q# S+ I; D; c& Pcircle
22,230
80
circle
55,70
+ M9 B1 f1 `; r; x( O100
9 W' V- |' m& }5 {3 U。。。

eyi59

3楼的说得没错啊