【源码分享】对CAD镜像命令来个小改造。

friendship · 发表于 2013-12-20 23:31:03

669423907 发表于 2013-7-26 21:43
wowan1314大师，随便把这个选线镜像的和你改的整合为一个吧，
当鼠标的第一点点在线上，就以此线镜像，否 ...

谢谢楼主，感谢

lanjqka · 发表于 2013-12-24 15:16:34

可以用这个替换getpoint
不过还是要用*error*处理“Esc”键退出command
(defun *error* () (command))
(defun jgetsf (/ KU KSYMDO KLG KII KIJ)
  (princ "\n要删除源对象吗？[是(S)/否(F)]<F>:")
  (setq KU nil)
  (setq KSYMDO T)
  (while KSYMDO ;循环条件
(setq KLG (grread nil 14 1))
(setq KII (car KLG)) ;获取的类型
(cond ((= KII 2) ;键盘输入
         (setq KIJ (cadr KLG)) ;键盘ascii代码值
         (cond ((or
                  (= KIJ (ascii "y"))
                  (= KIJ (ascii "Y"))
                  (= KIJ (ascii "s"))
                  (= KIJ (ascii "S"))
                  )
               (setq KU T) ;设返回值
               (setq KSYMDO nil) ;退出循环
               )
               ((or (= KIJ (ascii "\r")) ;键值13=按键回车
                  (= KIJ (ascii " ")) ;键值32=按键空格
                  (= KIJ (ascii "n"))
                  (= KIJ (ascii "N"))
                  (= KIJ (ascii "f"))
                  (= KIJ (ascii "F"))
               )
               ;;(setq KU nil) ;设返回值
               (setq KSYMDO nil) ;退出循环
               )
               (t (princ "\n请回答“是(S)”或“否(F)”。"))
         )
      )
      ((= KII 3) ;左键
         (setq KU T) ;设返回值
         (setq KSYMDO nil) ;退出循环
      )
      ((or (= KII 11) (= KII 25)) ;右键
         ;;(setq KU nil) ;设返回值
         (setq KSYMDO nil) ;退出循环
      )
      (t nil) ;条件闭合
)
  )
  KU ;返回值
)

Imagizz · 发表于 2014-3-4 16:12:35

一个命令就吧我镜像复制镜像不复制的命令替代了赞

sylele · 发表于 2015-12-9 20:24:48

非常好用,谢谢分享。

CHEN123456 · 发表于 2016-5-5 15:16:18

收费可不好！

kongel · 发表于 2018-6-28 12:21:51

再简单点
(defun c:nn()(command "mirror" (ssget) "" pause pause "Y")(princ))

andyzha · 发表于 2019-4-16 11:25:33

小细节，大便利，值得拥有！

LIULISHENG · 发表于 2020-2-20 12:03:47

顶起来!!!!

xzklk · 发表于 2020-4-13 21:36:54

好用，支持一下

paulpipi · 发表于 2020-4-22 22:26:23

支持一下~

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

[源码] 【源码分享】对CAD镜像命令来个小改造。