点变圆和圆变点的代码

marting · 发表于 2017-7-25 17:24:01

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:p2c ( / e i s )
(if (setq s (ssget "_:L" '((0 . "POINT"))))
(repeat (setq i (sslength s))
(setq e (ssname s (setq i (1- i))))
(if (entmake (list '(0 . "CIRCLE") (assoc 10 (entget e)) '(40 . 0.2))) (entdel e))
)
)
(princ)
)
(defun c:c2p ( / e i s )
(if (setq s (ssget "_:L" '((0 . "CIRCLE"))))
(repeat (setq i (sslength s))
(setq e (ssname s (setq i (1- i))))
(if (entmake (list '(0 . "POINT") (assoc 10 (entget e)))) (entdel e))
)
)
(princ)
)

sh_h · 发表于 2017-7-25 17:51:23

谢谢大师分享！！！

longer1000 · 发表于 2017-7-26 00:28:17

谢谢大师分享！

liunian0524 · 发表于 2017-7-26 07:52:28

感谢大师分享!

jxwfz19740724 · 发表于 2017-7-26 08:48:01

这个确实很实用。

evayleung · 发表于 2017-7-26 08:56:52

好东西，支持一下，谢谢分享

yzhyxh · 发表于 2017-7-26 09:01:39

ray7891 · 发表于 2017-7-27 13:02:41

谢谢大师分享。下来试试

ray7891 · 发表于 2017-7-27 13:05:25

大师，怎么用不了啊

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

[每日一码] 点变圆和圆变点的代码