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

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

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


非常感谢院长！但我没有你的函数:(
页: [1]
查看完整版本: 请教前辈们怎么在块参照中快速选择（不是一个个点选）圆并复制出来，谢谢！