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"半径“))
(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"半径“))
(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))
页: [1]
查看完整版本: 已知点，批量画圆