闭合的近似圆的多段线怎么转换成真圆？求程序批量转换

baoyizhu · 发表于 2020-10-30 15:24

taoyi0727 发表于 2020-10-30 15:12
(defun c:tt (/ lst name obj pt r ss)
(setq ss (ssget))
(while (setq name (ssname ss 0))

高手出现了，不错不错，您的程序解决了我的问题，很完美。处理6万多个对象用了8秒种。速度也还算可以

baoyizhu · 发表于 2020-10-30 15:24

wzg356 发表于 2020-10-30 15:09
;(pl2c (car(entsel)))
(defun pl2c (en / p1 p2 p0 d)
(vla-getboundingbox (vlax-ename->vla-object en ...

您这个程序我不会用，不知道命令是什么

baoyizhu · 发表于 2020-10-30 15:26

不知道还有没有更好的处理更快速的程序，一周之后如果没有的话，就采纳9楼的大哥为最佳答案了

wzg356 · 发表于 2020-10-30 15:50

本帖最后由 wzg356 于 2020-10-30 15:56 编辑

baoyizhu 发表于 2020-10-30 15:24
您这个程序我不会用，不知道命令是什么

与楼下一样，我写的处理单个样例
批处理
(defun c:pl2c( / ss en p1 p2 p0 d)
      (setq ss (ssget))
      (while (setq en(ssname ss 0))
            (vla-getboundingbox (vlax-ename->vla-object en) 'p1 'p2)
            (setq p1(vlax-safearray->list p1))
            (setq p2(vlax-safearray->list p2))
            (setq p0(mapcar '(lambda (x y)(/ (+ x y) 2.0)) p1 p2))
            (setq d (min(abs(apply '- (mapcar 'car (list p1 p2) )))(abs(apply '- (mapcar 'cadr (list p1 p2) )))))
            (command "CIRCLE" p0 (* d 0.5))
            (ssdel en ss) (entdel en)
      )
)

baoyizhu · 发表于 2020-10-30 15:54

wzg356 发表于 2020-10-30 15:50
与楼下一样，我写的处理单个样例
批处理
(defun c:pl2c( / ss en p1 p2 p0 d)

执行程序出现了问题，
错误: no function definition: EN

wzg356 · 发表于 2020-10-30 15:57

baoyizhu 发表于 2020-10-30 15:54
执行程序出现了问题，
错误: no function definition: EN

.........,(setq en(ssname ss 0))

xyp1964 · 发表于 2020-10-30 22:03

本帖最后由 xyp1964 于 2020-10-30 22:21 编辑

(defun c:tt () ; tt(近似多段线圆转圆) (if (setq ss (ssget '((0 . "*polyLINE"))))
(progn
(setq i -1 ss1(ssadd))
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (> (xyp-DXF 90 s1) 100)
(setq p0 (xyp-9pt s1 5)
p1 (xyp-9pt s1 4)
s2 (command "Circle" "non" p0 "non" p1)
ss1 (ssadd s1 ss1)
)
)
)
(command "Erase" ss1 "")
)
)
(princ)
)

start4444 · 发表于 2020-10-31 01:02

xyp1964 发表于 2020-10-30 22:03

院长你那个s2变量是啥操作啊，不是为了偷懒吧

wzg356 · 发表于 2020-10-31 10:36

start4444 发表于 2020-10-31 01:02
院长你那个s2变量是啥操作啊，不是为了偷懒吧

减少progn, 其他的setq写成一句，s2是为了符合setq的成双成对格式

前生 · 发表于 2020-10-31 12:35

估计这样有些失真。
个人的想法是。取得实体的10点位，取相对分散的3个点，3点计算圆心，半径
entmake 园。

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

[提问] 闭合的近似圆的多段线怎么转换成真圆？求程序批量转换