[已解决]各位好有关圆避让，是否可实现？谢谢

cam0668 · 发表于 2020-12-20 15:07:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

本帖最后由 cam0668 于 2020-12-21 14:41 编辑

微信图片_20201220140036.png

如上图直径20是基准圆。往外偏移10mm后
如果有与之相交的，则把外面8.0的圆移动到10mm安全距离请各位高手出手相助，谢谢

pxr201419 · 发表于 2020-12-21 09:34:52

本帖最后由 pxr201419 于 2020-12-21 10:14 编辑

cam0668 发表于 2020-12-21 08:57
早，各位。

(defun c:tt  (/ e pt r ss i e1 st pt1 r1)
  (setq e  (car (entsel "选择基准圆"))
      pt (cdr (assoc 10 (entget e)))
      r  (cdr (assoc 40 (entget e))))
  (setq ss (ssdel e (ssget "x" '((0 . "circle")))))
  (cond ((and r (> (sslength ss) 0))
      (setq i 0)
      (while (< i (sslength ss))
         (setq e1  (ssname ss i)
               st  (entget e1)
               pt1 (cdr (assoc 10 st))
               r1  (cdr (assoc 40 st))
               i (1+ i))
         (if (< (distance pt pt1) (+ r1 r 10.))
         (vla-put-center
            (vlax-ename->vla-object e1)
            (vlax-3d-point (polar pt (angle pt pt1) (+ r r1 10.))))))))
  (princ))

Lisphk · 发表于 2020-12-20 20:05:31

先前图什么样，结果图什么样？

cam0668 · 发表于 2020-12-20 21:06:02

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:test.rar
下载次数:2 文件大小:62.33 KB
下载权限: 不限以上 [免费赚D豆]

如附件图示，谢谢

cam0668 · 发表于 2020-12-20 21:07:16

Lisphk 发表于 2020-12-20 20:05
先前图什么样，结果图什么样？

你好.
麻烦你看一下附件，有处理前和处理后的，谢谢

cam0668 · 发表于 2020-12-21 08:57:23

早，各位。

newer · 发表于 2020-12-21 09:23:51

cam0668 发表于 2020-12-20 21:07
你好.
麻烦你看一下附件，有处理前和处理后的，谢谢

截取下对比图，多直观

cam0668 · 发表于 2020-12-21 10:16:56

pxr201419 发表于 2020-12-21 09:34
(defun c:tt  (/ e pt r ss i e1 st pt1 r1)
  (setq e  (car (entsel "选择基准圆"))
      pt (cdr ...

首先非常感觉pxr201419的帮忙
程序基本符合还是有些出入，我表达问题
处理后是边到边10mm距离，不是圆心到边10mm.谢谢
另是否可以多选？有时有多个这样的情况需做调整，非常感谢

pxr201419 · 发表于 2020-12-21 10:19:41

倒数第二行最后改了

cam0668 · 发表于 2020-12-21 10:23:23

还有一个情况，如果有同心圆的情况，会有出错，即参考圆如果是同心圆的不要处理

cam0668 · 发表于 2020-12-21 13:18:13

pxr201419 发表于 2020-12-21 10:19
倒数第二行最后改了

是否可过滤基准圆同心圆不要处理基准圆？谢谢你
冬至快乐

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

[已解决] [已解决]各位好有关圆避让，是否可实现？谢谢

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评