请教前辈们怎么在块参照中快速选择（不是一个个点选）圆并复制出来，谢谢！

tender138 · 发表于 2017-8-9 17:18:06

本帖最后由 tender138 于 2017-8-9 17:19 编辑

请教前辈们怎么在块参照中快速选择（不是一个个点选）圆并复制出来，谢谢！

xyp1964 · 发表于 2017-8-10 00:25:00

;; tt(块中圆弧复制)
(defun c:tt ()
  (if (setq ss (ssget '((0 . "insert"))))
(progn
   (setq p1 (xyp-9pt (ssname ss 0) 1))
   (setq s0 (entlast))
   (xyp-copy ss)
   (setq ss (xyp-SSelEntnext s0))
   (xyp-ExplodeQf ss)
   (setq lst-del (vl-remove-if
      '(lambda (x) (or (xyp-etype x "circle") (xyp-etype x "arc")))
      (xyp-Ss2List (xyp-SSelEntnext s0))
      )
   )
   (xyp-erase lst-del)
   (setq ss1 (xyp-SSelEntnext s0))
   (xyp-GrreadMove ss1 p1)
)
  )
  (princ)
)

tender138 · 发表于 2017-8-10 08:22:47

多谢版主！但不知道你的函数

springwillow · 发表于 2017-8-10 09:08:05

本帖最后由 springwillow 于 2017-8-10 09:09 编辑

提供一个拷贝块内圆弧，使用的是坐标变换，但不支持嵌套块。

tender138 · 发表于 2017-8-10 09:38:16

非常感谢！

pzweng · 发表于 2017-8-10 11:46:50

本帖最后由 pzweng 于 2017-8-10 11:51 编辑

弄了个复杂点的，还是院长的方法简单，复制打散

tender138 · 发表于 2017-8-10 15:38:41

非常感谢大家的热情帮助！要是能改成支持嵌套块就好了

yoyoho · 发表于 2017-8-10 18:18:45

感谢诸位大师分享学习!!!!

xyp1964 · 发表于 2017-8-11 12:48:52

tender138 · 发表于 2017-8-15 09:43:43

xyp1964 发表于 2017-8-11 12:48

非常感谢院长！但我没有你的函数

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

[提问] 请教前辈们怎么在块参照中快速选择（不是一个个点选）圆并复制出来，谢谢！

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源