本帖最后由 tryhi 于 2015-11-27 20:49 编辑
网友答:
edgemode你的这个变量改成了1，也就是允许延长线剪切及延长，把这个变量加入程序就好了。网友答: 我用AI修改了一下，栏选线改成连续直线并亮显，改成连续直线主要防止误剪。网友答: 抢沙发呀 这都被放出源码来 大力支持啊 顶起
网友答:
支持支持~~~~网友答:
支持支持~~~~网友答: 这个论坛貌似有的， 以前下载过， 还是要感谢楼主分享！
测试了下，能修剪，但是看不到红色的线！ 没有下载附件， 是用的楼主张贴的代码， 与附件有什么不同吗？网友答: 赞源码，给力网友答:
附件跟源码没有任何不同，附件只是求土豪打赏，好像有人反映CAD2008没有红线，测试2006正常网友答: 2012测试 也没有红线网友答: 遗憾的就是遇块删除！其他都很好！网友答: 给力。。。。。。。。。。赞
- (defun c:trxx(/ *error* dd echox osmode p0 p1 ss);超级修剪
- (setq osmode (getvar "osmode")echox (getvar "cmdecho"));记录两个原始系统变量
- (setvar "osmode" 0);关闭捕捉
- (setvar "cmdecho" 0)
- (defun *ERROR* (MSG)
- (if osmode
- (progn
- (setvar "osmode" osmode)
- (setvar "CMDECHO" echox)
- (command"undo" "end")
- )
- )
- )
- (while (setq p0 (getpoint "\n开始: "));开始点
- (command"undo" "be");撤销命令开始
- (setq dd (* 0.01 (getvar "viewsize")));设置随意线长度
- (while (= 5 (car (setq p1 (grread t 4 0))));捕捉鼠标移动
- (setq p1 (cadr p1));鼠标位置
- (if (>= (distance p0 p1) dd);移动超过长度才继续
- (progn
- (grdraw p0 p1 1);屏幕显示矢量线
- (command "trim" "" "f" p0 p1 "" "");修剪
- (if (setq ss (ssget "f" (list p0 p1)));获取先交又没有修剪的
- (command "erase" ss "");删除
- )
- (setq p0 p1);设置p为后一点
- )
- )
- )
- (command"undo" "end");撤销命令结束
- (redraw)
- )
- (setvar "osmode" osmode);恢复捕捉
- (setvar "CMDECHO" echox)
- (princ)
- )
bai2000 发表于 2015-11-28 17:32
楼主再看看，好多线修建不净，有的只打断了缺口
edgemode你的这个变量改成了1，也就是允许延长线剪切及延长，把这个变量加入程序就好了。网友答: 我用AI修改了一下，栏选线改成连续直线并亮显，改成连续直线主要防止误剪。网友答: 抢沙发呀 这都被放出源码来 大力支持啊 顶起
网友答:
支持支持~~~~网友答:
支持支持~~~~网友答: 这个论坛貌似有的， 以前下载过， 还是要感谢楼主分享！
测试了下，能修剪，但是看不到红色的线！ 没有下载附件， 是用的楼主张贴的代码， 与附件有什么不同吗？网友答: 赞源码，给力网友答:
jltx123456 发表于 2015-11-27 22:41
这个论坛貌似有的， 以前下载过， 还是要感谢楼主分享！
测试了下，能修剪，但是看不到红色的线！ 没有下载 ...
附件跟源码没有任何不同，附件只是求土豪打赏，好像有人反映CAD2008没有红线，测试2006正常网友答: 2012测试 也没有红线网友答: 遗憾的就是遇块删除！其他都很好！网友答: 给力。。。。。。。。。。赞