请教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)( y% M$ A# q6 z1 r
dfn (open dfn "r")
2 ~: d1 z7 h5 ^1 R5 Yos (getvar "osmode"): {6 R' J6 m; Z" w- r% @- ~
)
/ b7 F: Q) H2 G8 E; G(setvar "osmode" 0): E) x5 {- h9 H7 Y: J' \7 p7 F
(while (setq ml (read-line dfn))
+ a% `% P" R! b(setq zx (read-line dfn)9 j- U$ A$ X& X# V$ ^" G
  bj (read-line dfn)
) K3 }' s/ |8 C- T8 ]( w  bj ( ...
  B1 p  @* @' z8 F3 Vsnddd 发表于 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 [/b2 m& ~3 o0 G' W+ d( U
我的数据有很多，那样做很不方便

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

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

谢谢你了，请问一下在数据在txt中存放的格式是什么呢% W6 p, \5 [/ M5 l/ 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批处理画圆

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

评分