土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 高手帮忙写一个镜像后自动删除源对象的lsp

高手帮忙写一个镜像后自动删除源对象的lsp

发布于:2008-01-03 22:34:03 来自:建筑设计/CAD下载及教程 [复制转发]
mi MIRROR
选择对象: 指定对角点: 找到 1 个
选择对象: 指定镜像线的第一点: 指定镜像线的第二点:
要删除源对象吗?[是(Y)/否(N)] <N>:

能不能改成默认为y,或者写一个镜像后自动删除源对象的lsp
谢谢了。

全部回复(7 )

只看楼主 我来说两句
  • 井大伟
    井大伟 沙发
    (defun c:mi (/ ss)
    (if (setq ss (ssget))
    (progn
    (initget 1)
    (setq p1 (getpoint "指定镜像线的第一点:"))
    (initget 1)
    (setq p2 (getpoint p1 "\n指定镜像线的第二点:"))
    (command "._mirror" ss "" p1 p2 "y")
    )
    )
    (princ)
    )



    把上面的代码复制到词本中,另存为.lsp的文件,“C:”后面的mi就是要输入cad中的命令,当然你也可以改成你想用的字母。记得用这个程序时,是要加载到cad中的。我就保存成MI.LSP,加载后就能用了。 未命名.JPG
    2012-07-07 11:27:07

    回复 举报
    赞同2
  • clsuxm
    clsuxm 板凳
    qpwoie 发表于 2012-7-7 11:27 (defun c:mi (/ ss) (if (setq ss (ssget)) (progn为什么我加载完按mi无此命令。。。。
    2013-07-17 18:54:17

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

CAD下载及教程

返回版块

52.09 万条内容 · 682 人订阅

猜你喜欢

阅读下一篇

如何解决风量小

如何解决风量小

回帖成功

经验值 +10