请教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)
% }) m* w' e2 a& q# kdfn (open dfn "r")
7 h3 S: x8 ?! J0 d0 H  L/ jos (getvar "osmode")
8 h+ P( u/ Y4 L) X5 L, E)% u' R7 E4 t5 t+ P
(setvar "osmode" 0)
$ e* j+ \6 s0 x; d) y. K(while (setq ml (read-line dfn))
/ \: R0 t% M  p7 g1 h(setq zx (read-line dfn)$ H6 f7 z( t; Y
  bj (read-line dfn)
# x, ]$ n% U) M0 s5 K+ d  bj ( ...% A3 i" s  f8 `+ y  R' h
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( |# a& `4 s. p1 q$ o( A
我的数据有很多，那样做很不方便

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

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

谢谢你了，请问一下在数据在txt中存放的格式是什么呢
1 S5 M. Q* O: h$ C4 j, J" ?是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批处理画圆

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

评分

浏览过的版块