请教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)3 J1 ?5 Z, f% N. v7 G, ~) z2 O8 k
dfn (open dfn "r")+ U9 }8 f- f/ O. d8 X8 y4 B5 z
os (getvar "osmode")4 l7 j8 c1 Z  a, c
)
9 ], S; G$ O% {, e& |7 _& F(setvar "osmode" 0)
- A9 z  E+ F! I. {- i8 `5 s  R5 w(while (setq ml (read-line dfn))+ c, F8 k0 t" E; o2 k# n
(setq zx (read-line dfn)" W( A; o' M) J/ L1 t( q7 X7 F6 v
  bj (read-line dfn)7 ~/ c# A! ~/ d& _
  bj ( ...0 `% d8 [; m/ C+ v0 y- v% E( |
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+ @% `4 l' P6 ?" f
我的数据有很多，那样做很不方便

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

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

谢谢你了，请问一下在数据在txt中存放的格式是什么呢8 ^. c2 \% R0 {* o1 m9 {& N7 @2 c7 U0 S
是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批处理画圆

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

评分

浏览过的版块