李青松 发表于 2014-7-1 10:47:57

怎样改成镜像后的图形是块 原图形还是原来的样子。 程序默认是不删除源对象， 默认...

怎样改成镜像后的图形是块 原图形还是原来的样子。
程序默认是不删除源对象， 默认是用两点进行镜像。


以下需要e派工具箱(XCAD)的支持 怎样改成不需要e派工具箱(XCAD)的支持
;; 需要e派工具箱(XCAD)的支持，下载位置：e派工具箱群(24942984)
;; tt(镜像成块)
(defun c:tt (/ ss p1 p2 s0 ss1 pt)
(xyp-CMDLA0)
(if (and (setq ss (ssget))
         (setq p1 (getpoint "\n指定镜像线的第一点: "))
         (setq p2 (getpoint p1 "\n指定镜像线的第二点: "))
      )
    (progn
      (setq s0 (entlast))
      (command "mirror" ss "" p1 p2 "n")
      (setq ss1          (xyp-SSelEntnext s0)
            pt          (xyp-9pt ss1 1)
            bname (substr (rtos (getvar 'cdate) 2 8) 10 8)
      )
      (command "-block" bname "non" pt ss1 "")
      (command "-insert" bname "non" pt "" "" "")
    )
)
(xyp-CMDLA1)
)

lucas_3333 发表于 2014-7-1 11:41:56

此主题不是发过吗？院长都帮你了，还不满足，又拿院长的来求源码，你认为这样做难道会有人理你吗？

李青松 发表于 2014-7-1 11:44:09

本帖最后由 李青松 于 2014-7-1 11:46 编辑

lucas_3333 发表于 2014-7-1 11:41 static/image/common/back.gif
此主题不是发过吗？院长都帮你了，还不满足，又拿院长的来求源码，你认为这样做难道会有人理你吗？
期待雷锋的出现

lucas_3333 发表于 2014-7-1 11:48:43

李青松 发表于 2014-7-1 11:44 static/image/common/back.gif
期待雷锋的出线

雷锋是有，论坛很多，但是你这样的方式不让人接受

论坛很多快速做块的例程，镜像后框选下就成块了，很麻烦吗？

xyp1964 发表于 2014-7-1 12:56:48

送佛送到西;; tt(镜像成块)
(defun c:tt (/ ss p1 p2 ss0 ss1 bname pt)
(princ "\n选择实体: ")
(if (and (setq ss (ssget))
           (setq p1 (getpoint "\n指定镜像线的第一点<退出>: "))
           (setq p2 (getpoint p1 "\n指定镜像线的第二点<退出>: "))
      )
    (progn
      (setq ss0 (ssget "x"))
      (command "mirror" ss "" p1 p2 "n")
      (command "select" "all" "r" ss0 "")
      (setq ss1 (ssget "p")
          bname (substr (rtos (getvar 'cdate) 2 8) 10 8)
      )
      (if (setq pt (getpoint "\n图块插入点<退出>: "))
        (progn
          (command "-block" bname "non" pt ss1 "")
          (command "-insert" bname "non" pt "" "" "")
        )
      )
    )
)
(princ)
)

李青松 发表于 2014-7-1 13:26:17

本帖最后由 李青松 于 2014-7-1 13:47 编辑

xyp1964 发表于 2014-7-1 12:56 static/image/common/back.gif
送佛送到西
帮忙帮到底。有两点需要调整：
1：启动tt 后接着就启动正交 "ortho" "on"也就是说在镜像之前就启动正交。设置成默认的。
2：以镜像线的第一点或第二点作为图块插入点。设置成默认的。

李青松 发表于 2014-7-1 13:48:06

李青松 发表于 2014-7-1 13:26 static/image/common/back.gif
帮忙帮到底。有两点需要调整：
1：启动tt 后接着就启动正交 "ortho" "on"也就是说在镜像之前就启动正交 ...

原来xy不差币，帮忙帮到底

lucas_3333 发表于 2014-7-1 14:33:14

李青松 发表于 2014-7-1 13:26 static/image/common/back.gif
帮忙帮到底。有两点需要调整：
1：启动tt 后接着就启动正交 "ortho" "on"也就是说在镜像之前就启动正交 ...

说的好像院长是奔着这１0个币而来……

李青松 发表于 2014-7-1 14:39:48

lucas_3333 发表于 2014-7-1 14:33 static/image/common/back.gif
说的好像院长是奔着这１0个币而来……

就当是操练

ymcui 发表于 2014-7-1 14:45:35

xyp1964 发表于 2014-7-1 12:56 static/image/common/back.gif
送佛送到西

院长帮过很多人的忙,也帮过我不小,只要是院长的程序一定得顶.
页: [1] 2
查看完整版本: 怎样改成镜像后的图形是块 原图形还是原来的样子。 程序默认是不删除源对象， 默认...