找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: lijiao

[原创]:别开生面的TRIM

[复制链接]
 楼主| 发表于 2005-3-7 09:10:47 | 显示全部楼层
最初由 linuxme 发布
[B]狂刀大侠把这个程序的功能加强了好多
但同时操作也变复杂了
不如原程序操作起来连贯顺手
象我这样的懒人还是倾向于使用楼主的程序的
希望楼主在工作之暇修正一些小bug,这样就完美了 [/B]

因为在修剪的时候,一般情况下还没有做其它标注,所以我没有考虑过滤文本、尺寸、图块以及各种符号等,如果你要加入这部分功能,可以在ERASE部分的SSGET中,加入你想要的过滤器即可,因为每个人使用的软件不一样,需要过滤的东西也不相同,我不好一刀切,你可以自己加入,如有困难,大家都能帮你。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-3-7 13:14:31 | 显示全部楼层
最初由 狂刀 发布
[B]程序借鉴了lijiao和aeo的方法思路
步骤上,选择剪切边实体我觉得还是必要的
默认的方式是点中曲线剪切曲线,点于空位按鼠标跟踪,如果你不需要其它的选取方式,完全可以不看提示。
trim和extend是一样的,extend?.. [/B]


你的程序还有一个小bug,就是在剪切尺寸的时候只能用线切而不能用点切。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-3-7 14:24:19 | 显示全部楼层
这个功能很实用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-3-7 20:31:48 | 显示全部楼层
45楼:修改为与一楼操作步骤相似,减少了提示,下面是修改的trim,我认为这要操作比较简洁。

(defun c:xtr (/ cmd os roop dis un ss gr ga gb sel pt pt2 pts eg)
  (setq    cmd  (getvar "cmdecho")
    os   (getvar "osmode")
    roop T
    dis  (* 0.01 (getvar "viewsize"))
    un   0
  )
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (princ "\n 选择剪切边< all >")
  (setq ss (ssget))
  (while roop
    (setq gr (grread nil 4 2)
      ga (car gr)
      gb (cadr gr))
    (cond
      ((= ga 3)
       (cond
     ((setq sel (nentselp gb))(command ".trim") (if ss (command ss))(command "")(command sel ""))
     (T (setq pts (getpts dis))
      (if (setq pts2(cdr pts))
        (progn (command ".trim") (if ss (command ss))(command "")
          (mapcar '(lambda(x y)(command "f" x y "")) pts pts2)
          (command "")
        )
       )
      )
       )(setq un (1+ un))
      )
      ((= ga 25) (setq roop nil));_鼠标右键回车
   )
  )
  (setvar "cmdecho" cmd)
  (setvar "osmode" os)
  (princ)
)
;; (getpts) = 取得grread跟踪点表,dis为控制精度的距离.
(defun getpts (dis / gr pt pt0 pts)
   (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)
  (reverse pts)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-3-8 07:16:41 | 显示全部楼层
试了一下,楼上的程序在我的2004中不能用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-3-16 10:49:21 | 显示全部楼层
我不会编程,但我认为这个程序,没多少实用性,本来CAD用TR命令回车二下还方便点,也没必要先要选择对象.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-3-16 23:42:21 | 显示全部楼层
楼上的没有领会这个程序的亮点,亮点不在于选择边界(这个部分的操作和trim是一样的),而在于选择要剪切的实体(模拟sketch的效果)。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

发表于 2005-3-17 08:59:34 | 显示全部楼层
看到一个好的东西,非常有用,我每月改图时经常要进行大量的剪切工作,
高手就是高
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-3-17 23:51:21 | 显示全部楼层
非常喜欢这个程序,很有个性,也很方便。有个问题不知算不算是bug,就是点着鼠标乱绕几圈,有时会出现一长串同样的错误提示,但程序并未终止,当然这也没什么,真正画图时倒不会闲得没事乱绕的,所以还是非常感谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 2005-3-22 19:23:05 | 显示全部楼层
确实还可以哦。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-4-1 12:10:30 | 显示全部楼层
各位老大,为何不打包呢?这样我不会用啊!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-4-24 08:46:28 | 显示全部楼层
不错,比较好用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-4-30 13:20:59 | 显示全部楼层
楼主的东西不错,好用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-4-30 17:35:52 | 显示全部楼层
非常棒,楼主高明.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-29 18:52 , Processed in 0.335492 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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