已知点，批量画圆

danshuiyu9 · 发表于 2015-9-22 11:44:53

在CAD中已知了很多点，怎么在这些已知点上批量画一样的圆

danshuiyu9 · 发表于 2015-9-22 11:45:41

最好说的详细一点

sumgiv · 发表于 2015-9-22 13:24:53

可以帮你写个arx程序，但是lisp就不会了

杜阳 · 发表于 2015-9-22 16:28:12

本帖最后由杜阳于 2015-9-22 16:29 编辑

这里有个程序可以你看看吧不过要E派工具箱里的函数

杜阳 · 发表于 2015-9-22 16:35:12

不会录制动画看图片吧

llsheng_73 · 发表于 2015-9-23 10:00:32

本帖最后由 llsheng_73 于 2015-9-23 10:03 编辑

(defun c:tt(/ r s i)
(setq i -1 r(getreal"半径[5]“))
(setq r(if r r 5))
(if(setq s(ssget"x"'((0 . "point"))))
(repeat(sslength s)
(entmakex(list'(0 . "circle")(assoc 10(enget(ssname s(setq i(1+ i)))))(cons 40 r)))
))
(princ))

jwb236 · 发表于 2018-2-9 09:02:20

杜阳发表于 2015-9-22 16:28
这里有个程序可以你看看吧不过要E派工具箱里的函数

怎么用？？？

jwb236 · 发表于 2018-2-9 09:03:18

杜阳发表于 2015-9-22 16:28
这里有个程序可以你看看吧不过要E派工具箱里的函数

大神，这怎么用啊~~~

杜阳 · 发表于 2018-2-10 16:56:11

jwb236 发表于 2018-2-9 09:03
大神，这怎么用啊~~~

你用这个大神的不用工具箱的函数

杜阳 · 发表于 2018-2-10 16:56:29

jwb236 发表于 2018-2-9 09:03
大神，这怎么用啊~~~

(defun c:tt(/ r s i)
(setq i -1 r(getreal"半径[5]“))
(setq r(if r r 5))
(if(setq s(ssget"x"'((0 . "point"))))
(repeat(sslength s)
(entmakex(list'(0 . "circle")(assoc 10(enget(ssname s(setq i(1+ i)))))(cons 40 r)))
))
(princ))

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

已知点，批量画圆

相关帖子

本帖子中包含更多资源

点评

本帖子中包含更多资源