明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 538|回复: 4

[提问] 按圆心重合

[复制链接]
发表于 2022-5-14 09:47 | 显示全部楼层 |阅读模式
30明经币
如图片所示,要在圆心处重合。请高手帮忙!
附件: 您需要 登录 才可以下载或查看,没有账号?注册

最佳答案

查看完整内容

(defun c:tt5 (/ en i pt ss) (setq ss (ssget '((0 . "arc,circle"))) en (entsel "\n选择基准对象:") pt (cdr (assoc 10 (entget (car en))))) (setq i -1) (while (setq en (ssname ss (setq i (1+ i)))) (command "move" en "" "non" (cdr (assoc 10 (entget en))) "non" pt) ) (princ) )
发表于 2022-5-14 09:47 | 显示全部楼层
(defun c:tt5 (/ en i pt ss)
        (setq ss (ssget '((0 . "arc,circle"))) en (entsel "\n选择基准对象:") pt (cdr (assoc 10 (entget (car en)))))
        (setq i -1)
        (while (setq en (ssname ss (setq i (1+ i))))
                (command "move" en "" "non" (cdr (assoc 10 (entget en))) "non" pt)
        )
        (princ)       
)

评分

参与人数 2明经币 +2 收起 理由
xj6019 + 1 大佬 威武!!
xyp1964 + 1 赞一个!

查看全部评分

回复

使用道具 举报

发表于 2022-5-14 12:13 | 显示全部楼层
  1. (defun c:tt ()
  2.   (defun xyp-dxf (code e) (cdr (assoc code (entget e))))
  3.   (if (and (setq s0 (car (entsel "\n选择基准对象: ")))
  4.            (setq ss (ssget '((0 . "arc,circle"))))
  5.       )
  6.     (progn
  7.       (command "undo" "be")
  8.       (setq os (getvar "osmode"))
  9.       (setvar "osmode" 0)
  10.       (setq pt (xyp-dxf 10 s0))
  11.       (setq i -1)
  12.       (while (setq s1 (ssname ss (setq i (1+ i))))
  13.         (setq p1 (xyp-DXF 10 s1))
  14.         (command "move" s1 "" p1 pt)
  15.       )
  16.       (command "undo" "e")
  17.     )
  18.   )
  19.   (setvar "osmode" os)
  20.   (princ)
  21. )
回复

使用道具 举报

发表于 2022-5-15 09:19 | 显示全部楼层
  1. (defun c:tt (/ e m s ne)
  2.   (setq os (getvar "osmode"))
  3.   (setvar "osmode" 0)
  4.   (if (and (setq e (entsel "\n选择基准对象:")
  5.                  s (ssget '((0 . "arc,circle")))
  6.            )
  7.       )
  8.     (progn
  9.       (setq m (cdr (assoc 10 (entget (car e)))))
  10.       (foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
  11.         (setq ne (subst (cons 10 m) (assoc 10 (entget x)) (entget x)))
  12.         (entmod ne)
  13.       )
  14.     )
  15.   )
  16.   (setvar "osmode" os)
  17.   (princ)
  18. )


新手来练习练习
回复

使用道具 举报

发表于 2022-5-17 09:12 | 显示全部楼层
这个有什么用,介绍一下啊
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 10:34 , Processed in 0.276590 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表