请教autocad批处理画圆

qdcd · 发表于 2010-12-22 11:00:06

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

snddd · 发表于 2010-12-22 13:23:17

你的数据存在哪里的？

coolboy123 · 发表于 2010-12-22 13:54:33

这个叫脚本，很简单的。举个例子要在以下两个坐标点处画圆（22，23）、（55，70），半径分别为80、100，只需要在记事本上写下如下文字，注意格式：
circle
22,23
80
circle
55,70
100
然后复制粘贴到命令栏即可。

snddd · 发表于 2010-12-22 14:00:29

本帖最后由 snddd 于 2010-12-22 14:30 编辑

可以用vlisp

snddd · 发表于 2010-12-22 15:14:54

(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)
bj (read-line dfn)
bj (atof bj))
(command ml zx bj "")
)
(setvar "osmode" os)
(princ)

qdcd · 发表于 2010-12-22 19:32:57

(setq dfn(getfiled "数据文件" "E:/" "txt" 8)
* Z  w! {2 x. Ndfn (open dfn "r")) S& w( E0 V/ y1 j( U
os (getvar "osmode")
7 r  V6 f3 s) ~)
9 |2 b) @7 X: u0 M# B7 j, Z0 M(setvar "osmode" 0)  E) i1 h* Y7 T- [! l: B8 K
(while (setq ml (read-line dfn))% M; T0 s- s4 Z% p. }7 t
(setq zx (read-line dfn)) |8 [4 _1 G; r6 }) x; L
  bj (read-line dfn)
; I7 v2 v3 d4 {% Z  bj ( ...
  n0 t& [4 f1 l& j/ g. G8 \snddd 发表于 2010-12-22 15:14 http://www.3dportal.cn/discuz/images/common/back.gif

谢谢你了，请问一下在数据在txt中存放的格式是什么呢
是X ，Y ，R三列数据么

qdcd · 发表于 2010-12-22 19:33:51

3# coolboy123 [/b
8 h0 F9 z, @$ D, |/ V9 y我的数据有很多，那样做很不方便

SunVei · 发表于 2010-12-22 20:03:18

本帖最后由 woaishuijia 于 2010-12-23 14:41 编辑

谢谢你了，请问一下在数据在txt中存放的格式是什么呢5 ` M5 J6 B8 j0 T; s" X
是X ，Y ，R三列数据么

snddd 提供了代码范例
产生了个格式的问题

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

snddd · 发表于 2011-1-31 15:31:03

格式就是下面这样的
circle
22,230
80
circle
55,70
100
。。。

eyi59 · 发表于 2011-2-16 22:49:20

3楼的说得没错啊

		自动登录	找回密码
密码			注册

通知

[求助] 请教autocad批处理画圆

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块