琴剑江山_10184 发表于 2014-10-18 10:32:38

以直线镜线左键判定删除源对象

(defun c:tt (/ ss ent get pp1 pp2 ge)
   (setq ss (ssget))
       (setq ent (car (entsel "\n请选择一根直线为中心镜像:")))
          ;仅取实体
       (setq get (entget ent))
       (setq pp1 (cdr (assoc 11 (cdr get)))) ;(10 x y z)
       (setq pp2 (cdr (assoc 10 (cdr get)))) ;(11 x y z)
       (setq ge (getpoint "\n左键删除源对象/[默认不删除]:"))
       (if (null ge)
   (command "MIRROR" ss "" pp1 pp2 "")
   (command "MIRROR" ss "" pp1 pp2 "y")
       )      ;if
            
(princ)
)

sdbaijiao 发表于 2015-5-26 12:21:52

很不错的程序，谢谢分享。

longer1000 发表于 2016-9-30 22:47:18

还是采用两点镜像比选取直线镜像方便

vladimirputin 发表于 2016-10-19 15:26:06

不错的资料， 谢谢楼主分享。

yoyoho 发表于 2016-10-19 17:16:52

不错的程序，谢谢分享!!!!!

vladimirputin 发表于 2016-10-20 08:58:04

很给力的程序，谢谢楼主分享。

vladimirputin 发表于 2016-10-30 10:17:08

非常好的工具，谢谢楼主分享啊。

KO你 发表于 2018-12-14 05:26:38

快捷键gg镜像
(defun c:gg (/ SS)
(IF (SETQ SS (SSGET ":L"))
(PROGN
(command "MIRROR" SS "" PAUSE PAUSE)
(IF (GETPOINT "\n选点删除源对象<右键保留>:")
(command "Y")
(command ""))))
(princ))

bai2000 发表于 2018-12-14 14:04:46

表情是什么啊？

逍遥天下 发表于 2018-12-20 20:59:41

表情什么都不是:lol
页: [1] 2
查看完整版本: 以直线镜线左键判定删除源对象