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

白皮猪

超赞的修改。顶力支持...

xjfa

赞一个，赞一个

726613

好用，支持楼主

669423907

wowan1314大师，随便把这个选线镜像的和你改的整合为一个吧，
当鼠标的第一点点在线上，就以此线镜像，否则就以第一点和第二镜像。
有劳 wowan1314大师再次改造了

;选线镜像（功夫佬2012-4-15）
(defun c:im(/ ss ent entlist b)
  (setvar "CMDECHO" 0)
  (setq ss(ssget "i" ))
  (if (not ss)
    (setq ss(ssget))
    )
  (if ss
    (progn
      (setq ent(entsel "\n选择做为镜像线的直线:" ))
      (command "ucs" "w")
      (if ent
        (progn
          (setq entlist(entget(car ent)))
          (if (= (cdr(assoc 0 entlist)) "LINE" )
            (progn
              (initget "y n" )
;              (setq b(getkword "\n要删除源对象吗？[是(Y)/否(N)] <N>:" ))

(setq pt (getpoint "\n左键删除,右键保留"))
(if pt (setq b "y" ) (command ""))

              (if (not b)
                (setq b "n" )
                )
              (setvar "CMDECHO" 0)
              (command "mirror" ss "" (cdr(assoc 10 entlist)) (cdr(assoc 11 entlist)) b)
        (command "ucs" "p")
              (setvar "CMDECHO" 1)
              ))))))
  (princ))

669423907

wowan1314大师，我的意思是把你改造的镜像程序和功夫佬大师的程序结合为一个，
当选择对象后，程序提示指定镜像的第一点，如果第一点落在一根直线上，就以这根直线镜像，如果第一点没有落在直线上，程序则提示指定镜像的第二点，...................

lyqiezi

我是只改造了一个直接删除的，用不同的命令区分删除不删除，如果需要保留就用原版，要删除的就用改造过的。从这个lsp里面，我知道怎么用不同的操作来设置默认值了，学到一招，

669423907

可能是我表达的不够明确。
1：已经选中了要镜像的对象，
2：按下快捷键，
3：鼠标指定一点A，如果点A落在一直线Q上，则以直线Q镜像被选中的对象，程序结束，

4：如果点A，没有落在任何物体上，则再指定点B，以A、B点镜像被选中的对象

lifenwei

不错哦。。。值得选用

ymcui

好用，支持一下

lyqiezi

669423907 发表于 2013-7-29 21:34
可能是我表达的不够明确。
1：已经选中了要镜像的对象，
2：按下快捷键，

如果对称轴想捕捉两条线的交点的时候怎么办？
而且对于CAD绘图，一般都是捕捉的，不捕捉的情况是极少的
所以我觉得，用命令区分还是可行的，在输入命令的时候多一个字母，比在运行过程中输入另外的字母要快的多，我也曾改造了选择对称轴、选择两条线按中线做对称轴的，但是后来发觉真的用到太少了，只保留了删除原件的一个命令，不删除的就还是使用原命令（两个命令的简写就是一个是1个字母，另外一个是两个相同的字母）