设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 以左键判定删除与不删除
返回列表 发新帖
查看: 2965|回复: 12

[每日一码] 以左键判定删除与不删除

[复制链接]
amwkto2011
发表于 2014-10-18 10:29:00 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

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

再次修改增加左键判定删除源对象，不删除源对象
感谢Free-Lancer提供帮助

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

Free-Lancer
发表于 2014-10-18 10:38:10 | 显示全部楼层
考虑空选情况
  1. (defun c:tt (/ ss ent get pp1 pp2 ge)
  2.   (if (and (setq ss (ssget))
  3.            (progn
  4.              (princ "\n请选择一根直线为中心镜像...")
  5.              (setq ent (ssget ":S" '((0 . "line")))) ;_单选
  6.            )
  7.       )
  8.     (progn
  9.       (setq get        (entget (ssname ent 0))
  10.             pp1        (cdr (assoc 11 (cdr get))) ;(10 x y z)
  11.             pp2        (cdr (assoc 10 (cdr get))) ;(11 x y z)
  12.             ge        (getpoint "\n左键删除源对象/[默认不删除]:")
  13.       )
  14.       (if (null ge)
  15.         (command "MIRROR" ss "" pp1 pp2 "")
  16.         (command "MIRROR" ss "" pp1 pp2 "y")
  17.       )
  18.     )
  19.   )
  20.   (princ)
  21. )

点评

amwkto2011
(ssname ent 0)这个是什么意思，0代表什么  详情 回复 发表于 2014-10-18 11:20
amwkto2011
学习了，感谢  详情 回复 发表于 2014-10-18 11:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

good32167

已领礼包: 56个

财富等级: 招财进宝
发表于 2014-10-18 10:50:26 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢楼主共享，学习了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

amwkto2011
 楼主| 发表于 2014-10-18 11:07:21 | 显示全部楼层
Free-Lancer 发表于 2014-10-18 10:38
考虑空选情况

学习了，感谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

amwkto2011
 楼主| 发表于 2014-10-18 11:20:36 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Free-Lancer 发表于 2014-10-18 10:38
考虑空选情况

(ssname ent 0)这个是什么意思，0代表什么

点评

/db_自贡黄明儒_
0代表初次，初夜  详情 回复 发表于 2014-10-18 21:15
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

liuchong1988

已领礼包: 117个

财富等级: 日进斗金
发表于 2014-10-18 18:35:21 | 显示全部楼层
学习了，
  
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

dnbcgrass

已领礼包: 3913个

财富等级: 富可敌国
发表于 2014-10-18 20:34:18 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(ssname ent 0)→得到l选集中的第1个图元

点评

爱莫能助
感谢帮我解答  详情 回复 发表于 2014-10-19 14:31
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2014-10-18 21:15:24 来自手机 | 显示全部楼层
amwkto2011 发表于 2014-10-18 11:20
(ssname ent 0)这个是什么意思，0代表什么

0代表初次，初夜

点评

爱莫能助
明白了，谢谢黄老大  详情 回复 发表于 2014-10-19 14:30
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

爱莫能助

已领礼包: 15个

财富等级: 恭喜发财
发表于 2014-10-19 14:30:49 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
/db_自贡黄明儒_ 发表于 2014-10-18 21:15
0代表初次，初夜

明白了，谢谢黄老大
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

爱莫能助

已领礼包: 15个

财富等级: 恭喜发财
发表于 2014-10-19 14:31:54 | 显示全部楼层
dnbcgrass 发表于 2014-10-18 20:34
(ssname ent 0)→得到l选集中的第1个图元

感谢帮我解答
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yoyoho

已领礼包: 8975个

财富等级: 富甲天下
发表于 2014-10-20 14:53:35 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
感谢分享程序!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xvjiex

已领礼包: 1094个

财富等级: 财源广进
发表于 2021-7-14 00:26:31 | 显示全部楼层
感谢分享以左键判定删除与不删除
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Cafemeow

已领礼包: 22个

财富等级: 恭喜发财
发表于 2021-7-14 10:45:00 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
学习了，还能这么做
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-15 14:03 , Processed in 0.415988 second(s), 53 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表