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

李青松

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


以下需要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

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

李青松

lucas_3333 发表于 2014-7-1 11:41
此主题不是发过吗？院长都帮你了，还不满足，又拿院长的来求源码，你认为这样做难道会有人理你吗？

期待雷锋的出现

lucas_3333

李青松 发表于 2014-7-1 11:44
期待雷锋的出线

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

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

xyp1964

送佛送到西

2. ;; tt(镜像成块)
   
3. (defun c:tt (/ ss p1 p2 ss0 ss1 bname pt)
   
4.   (princ "\n选择实体: ")
   
5.   (if (and (setq ss (ssget))
   
6.            (setq p1 (getpoint "\n指定镜像线的第一点<退出>: "))
   
7.            (setq p2 (getpoint p1 "\n指定镜像线的第二点<退出>: "))
   
8.       )
   
9.     (progn
   
10.       (setq ss0 (ssget "x"))
    
11.       (command "mirror" ss "" p1 p2 "n")
    
12.       (command "select" "all" "r" ss0 "")
    
13.       (setq ss1 (ssget "p")
    
14.             bname (substr (rtos (getvar 'cdate) 2 8) 10 8)
    
15.       )
    
16.       (if (setq pt (getpoint "\n图块插入点<退出>: "))
    
17.         (progn
    
18.           (command "-block" bname "non" pt ss1 "")
    
19.           (command "-insert" bname "non" pt "" "" "")
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

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

李青松

xyp1964 发表于 2014-7-1 12:56
送佛送到西

帮忙帮到底。有两点需要调整：
1：启动tt 后接着就启动正交 "ortho" "on"  也就是说在镜像之前就启动正交。设置成默认的。
2：以镜像线的第一点或第二点作为图块插入点。设置成默认的。

李青松

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

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

lucas_3333

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

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

李青松

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

就当是操练

ymcui

xyp1964 发表于 2014-7-1 12:56
送佛送到西

院长帮过很多人的忙,也帮过我不小,只要是院长的程序一定得顶.