请教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)
: I' h7 Q% N9 \; b$ ]2 tdfn (open dfn "r")
) d5 F0 e# ^+ }7 n" _8 z# I9 s& Xos (getvar "osmode")
4 Y% [6 p+ a: Z  U) G( e; n. a7 N); @9 _, `0 K- f; B8 {3 ]: R, g" y
(setvar "osmode" 0)
3 q$ B- R4 J/ V% ^! o(while (setq ml (read-line dfn))
! B. ~2 I) `" t; S& H(setq zx (read-line dfn)+ L8 Z/ s2 l. a5 x8 t" }  g2 C
  bj (read-line dfn)
7 b1 D$ l2 d, b7 F; A" s: s  V  bj ( ...
/ [* q% O' g; k; msnddd 发表于 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
' S, ^* S! q1 }$ a: p我的数据有很多，那样做很不方便

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

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

谢谢你了，请问一下在数据在txt中存放的格式是什么呢6 I. I- B7 V( d) _- r. W
是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批处理画圆

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

评分

浏览过的版块