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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [编程申请]：狂刀这个程序，能不能把trim和e结合起来 ...
返回列表 发新帖
查看: 2415|回复: 12

[编程申请]：狂刀这个程序，能不能把trim和e结合起来

[复制链接]
zhaozwf
发表于 2008-11-20 08:21:50 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
(defun c:xx (/ cmde os ocs roop dis ss gr ga gb sel pt pt2 pts eg cmd)
  (princ "\n自由剪切－－－修改by狂刀.2005.3")
  (setq        cmde  (getvar "cmdecho")
        os   (getvar "osmode")
        roop T
        dis  (* 0.01 (getvar "viewsize"))
        cmd ".trim"
  )
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq ss (ssget "all"))
  (while roop
    (princ "\n shift+右键＝选边界 / 右键＝切换剪切延伸模式 / 左键＝选实体 / 空格;回车＝退出:")
    (setq gr (grread nil 4 2)
          ga (car gr)
          gb (cadr gr))
    (cond
      ((= ga 3)
       (princ "\n选剪切实体:")
       (cond
         ((setq sel (nentselp gb))(command cmd ss "" sel ""));;单选.
         (T (setq pts (getpts dis))
          (if (setq pts2(cdr pts))
            (progn (command cmd ss "")
              (mapcar '(lambda(x y)(command "f" x y "")) pts pts2)
              (command "")
            )
           )
          )
       )
      )
      ((member gr '((11 0)(2 32))) ;; "" or enter
        (setq roop nil))
      ((= 25 ga)(if (= cmd ".trim") ;;切换.
         (progn (princ "\n 模式: 延伸\n选实体:")(setq cmd ".extend"))
        (progn (princ "\n 模式: 剪切\n选实体:")(setq cmd ".trim"))
        )
      )
      ((member gr '((11 1000)))
       (princ "\n 重选边界< all > :")
       (or(setq ss (ssget))(setq ss  (ssget "all"))))
   )
  )
  (setvar "cmdecho" cmde)
  (setvar "osmode" os)
  (setq *error* oe)
  (princ)
)
(defun getpts (dis / gr pt pt0 pts)
   (setq ocs (getvar "CURSORSIZE"))
   (setvar "CURSORSIZE" 1)
   (while (= 5 (car (setq gr (grread t 4 0))))
     (setq pt (cadr gr))
     (if (not pt0)(setq pt0 pt pts (cons pt0 pts)))
     (if (> (distance pt pt0) dis)
       (progn
         (grdraw pt pt0 1 1)
         (setq pts (cons pt pts)
               pt0 pt)
       )
     )
   )
  (redraw)
  (setvar "CURSORSIZE" ocs)
  (reverse pts)
)
狂刀这个程序，用着很爽，能不能把trimt和e结合起来，不能trim就删除。感觉这样好多。
setq, 剪切, princ

相关帖子

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

使用道具 举报

陌生人
发表于 2008-11-23 14:39:57 | 显示全部楼层

Re: [编程申请]：狂刀这个程序，能不能把trim和e结合起来

最初由 zhaozwf 发布
[B](defun c:xx (/ cmde os ocs roop dis ss gr ga gb sel pt pt2 pts eg cmd)
  (princ "\n自由剪切－－－修改by狂刀.2005.3")
  (setq        cmde  (getvar "cmdecho")
        os   (getvar "osmode")
        roop T
        dis  (* 0.01... [/B]


  3.   [FONT=courier new]
  4. ;| xtr自由剪切－－－修改by狂刀.2005.3(081123)
  5. |;
  6. (defun c:xx (/ cmde os ocs roop dis ss gr ga gb sel pt pt2 pts eg cmd)
  7.   (princ "\n自由剪切－－－修改by狂刀.2005.3")
  8.   (setq        cmde (getvar "cmdecho")
  9.         os   (getvar "osmode")
  10.         roop T
  11.         dis  (* 0.01 (getvar "viewsize"))
  12.         cmd  ".trim"
  13.   )
  14.   (setvar "cmdecho" 0)
  15.   (setvar "osmode" 0)
  16.   (setq ss (ssget "all"))
  17.   (while roop
  18.     (princ
  19.       "\n shift+右键＝选边界 / 右键＝切换剪切延伸模式 / 左键＝选实体 / 空格;回车＝退出:"
  20.     )
  21.     (setq gr (grread nil 4 2)
  22.           ga (car gr)
  23.           gb (cadr gr)
  24.     )
  25.     (cond
  26.       ((= ga 3)
  27.        (princ "\n选剪切实体:")
  28.        (cond
  29.          ((setq sel (nentselp gb)) (command cmd ss "" sel ""))
  30.          ;;单选.
  31.          (T
  32.           (setq pts (getpts dis))
  33.           (if (setq pts2 (cdr pts))
  34.             (progn (command cmd ss "")
  35.                    (mapcar '(lambda (x y) (command "f" x y "")) pts pts2)
  36.                    (command "")
  37.                    (command ".erase" (ssget "cp" (cons (last pts) pts) nil) "")
  38.             )
  39.           )
  40.          )
  41.        )
  42.       )
  43.       ((member gr '((11 0) (2 32)))
  44.        ;; "" or enter
  45.        (setq roop nil)
  46.       )
  47.       ((or (= 25 ga)(= 11 ga))
  48.        (if (= cmd ".trim")
  49.          ;;切换.
  50.          (progn        (princ "\n 模式: 延伸\n选实体:")
  51.                 (setq cmd ".extend")
  52.          )
  53.          (progn (princ "\n 模式: 剪切\n选实体:") (setq cmd ".trim"))
  54.        )
  55.       )
  56.       ((member gr '((11 1000)))
  57.        (princ "\n 重选边界< all > :")
  58.        (or (setq ss (ssget)) (setq ss (ssget "all")))
  59.       )
  60.     )
  61.   )
  62.   (setvar "cmdecho" cmde)
  63.   (setvar "osmode" os)
  64.   (setq *error* oe)
  65.   (princ)
  66. )
  67. (defun getpts (dis / gr pt pt0 pts)
  68.   (setq ocs (getvar "CURSORSIZE"))
  69.   (setvar "CURSORSIZE" 1)
  70.   (while (= 5 (car (setq gr (grread t 4 0))))
  71.     (setq pt (cadr gr))
  72.     (if        (not pt0)
  73.       (setq pt0        pt
  74.             pts        (cons pt0 pts)
  75.       )
  76.     )
  77.     (if        (> (distance pt pt0) dis)
  78.       (progn
  79.         (grdraw pt pt0 1 1)
  80.         (setq pts (cons pt pts)
  81.               pt0 pt
  82.         )
  83.       )
  84.     )
  85.   )
  86.   (redraw)
  87.   (setvar "CURSORSIZE" ocs)
  88.   (reverse pts)
  89. )
  90. ;;狂刀这个程序，用着很爽，能不能把trimt和e结合起来，不能trim就删除。感觉这样好多。
  91.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zhaozwf
 楼主| 发表于 2008-11-28 15:25:06 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
陌生人，你好，当选择剪切时会出现“选剪切实体，:未知命令“XX3”。按 F1 查看帮助。”
但不影响使用，如果能把这点瑕疵去掉就好了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2008-11-29 23:05:33 | 显示全部楼层

Re: Re: [编程申请]：狂刀这个程序，能不能把trim和e结合起来

最初由 陌生人 发布
[B][QUOTE]最初由 zhaozwf 发布
[B](defun c:xx (/ cmde os ocs roop dis ss gr ga gb sel pt pt2 pts eg cmd)
  (princ "\n自由剪切－－－修改by狂刀.2005.3")
  (setq        cmde  (getvar "cmdecho")
        os   (ge... [/B]



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

使用道具 举报

zhaozwf
 楼主| 发表于 2008-11-30 15:53:57 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
另外还有一点，右键＋shift选边界这个功能咋没，希望还是加上为好，呵呵
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

雨箭风刀
发表于 2008-11-30 22:21:04 | 显示全部楼层

Re: Re: Re: [编程申请]：狂刀这个程序，能不能把trim和e结合起来

最初由 aeo 发布
[B][QUOTE]最初由 陌生人 发布
[B][QUOTE]最初由 zhaozwf 发布
[B](defun c:xx (/ cmde os ocs roop dis ss gr ga gb sel pt pt2 pts eg cmd)
  (princ "\n自由剪切－－－修改by狂刀.2005.3")
  (set... [/B]


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

使用道具 举报

bikeboy

已领礼包: 6个

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

使用道具 举报

zhaozwf
 楼主| 发表于 2008-12-5 13:44:35 | 显示全部楼层
狂刀有空把上面的程序修改修改吧，把trim和e结合起来，呵呵，
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDnpu349

已领礼包: 55个

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

使用道具 举报

梦断江南
发表于 2008-12-12 18:18:19 | 显示全部楼层
试试看这个。右键延伸/剪切切换键，空格退出

  3.   [FONT=courier new]

  5. ;| xtr自由剪切－－－修改by狂刀.2005.3(081212)
  6. |;
  7. (defun c:xx (/ cmde os ocs roop dis ss gr ga gb sel pt pt2 pts eg cmd)
  8.   (princ "\n自由剪切－－－修改by狂刀.2005.3")
  9.   (setq        cmde (getvar "cmdecho")
  10.         os   (getvar "osmode")
  11.         roop T
  12.         dis  (* 0.01 (getvar "viewsize"))
  13.         cmd  ".trim"
  14.   )
  15.   (setvar "cmdecho" 0)
  16.   (setvar "osmode" 0)
  17.   (setq ss (ssget "all"))
  18.   (while roop
  19.     (princ
  20.       "\n shift+右键＝选边界 / 右键＝切换剪切延伸模式 / 左键＝选实体 / 空格;回车＝退出:"
  21.     )
  22.     (setq gr (grread nil 4 2)
  23.           ga (car gr)
  24.           gb (cadr gr)
  25.     )
  26.     (cond
  27.       ((= ga 3)
  28.        (princ "\n选剪切实体:")
  29.        (cond
  30.          ((setq sel (nentselp gb)) (command cmd ss "" sel ""))
  31.          ;;单选.
  32.          (T
  33.           (setq pts (getpts dis))
  34.           (if (setq pts2 (cdr pts))
  35.             (progn (command cmd ss "")
  36.                    (mapcar '(lambda (x y) (command "f" x y "")) pts pts2)
  37.                    (command "")
  38.               (if (= cmd ".trim")
  39.                    (command ".erase" (ssget "cp" (cons (last pts) pts) nil) "")
  40.                 )
  41.             )
  42.           )
  43.          )
  44.        )
  45.       )
  46.       ((member gr '((11 0) (2 32)))
  47.        ;; "" or enter
  48.        (setq roop nil)
  49.       )
  50.       ((or (= 25 ga)(= 11 ga))
  51.        (if (= cmd ".trim")
  52.          ;;切换.
  53.          (progn        (princ "\n 模式: 延伸\n选实体:")
  54.                 (setq cmd ".extend")
  55.          )
  56.          (progn (princ "\n 模式: 剪切\n选实体:") (setq cmd ".trim"))
  57.        )
  58.       )
  59.       ((member gr '((11 1000)))
  60.        (princ "\n 重选边界< all > :")
  61.        (or (setq ss (ssget)) (setq ss (ssget "all")))
  62.       )
  63.     )
  64.   )
  65.   (setvar "cmdecho" cmde)
  66.   (setvar "osmode" os)
  67.   (setq *error* oe)
  68.   (princ)
  69. )
  70. (defun getpts (dis / gr pt pt0 pts)
  71.   (setq ocs (getvar "CURSORSIZE"))
  72.   (setvar "CURSORSIZE" 1)
  73.   (while (= 5 (car (setq gr (grread t 4 0))))
  74.     (setq pt (cadr gr))
  75.     (if        (not pt0)
  76.       (setq pt0        pt
  77.             pts        (cons pt0 pts)
  78.       )
  79.     )
  80.     (if        (> (distance pt pt0) dis)
  81.       (progn
  82.         (grdraw pt pt0 1 1)
  83.         (setq pts (cons pt pts)
  84.               pt0 pt
  85.         )
  86.       )
  87.     )
  88.   )
  89.   (redraw)
  90.   (setvar "CURSORSIZE" ocs)
  91.   (reverse pts)
  92. )
  93. ;;支持trim，extend切换，支持trim模式下栏选范围内实体删除。2008.12.12


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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-23 06:57 , Processed in 0.829506 second(s), 55 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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