daiguafan 发表于 2012-3-19 18:20:42

求助个思路，就是直线没相交就延伸到那个位置，如果相交就剪切掉


求助个思路
如图

要变成


就是延伸和剪切同时进行


http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 daiguafan的微博

流动的清泉 发表于 2017-11-15 22:38:09

我想找一个 标准的用 剪切和延伸的命令，怎么都没有找到，因为两个线可能不共面，替换变量没有什么意义

coverne 发表于 2017-12-4 20:11:26

学习下22 23 26的

daiguafan 发表于 2012-3-19 18:23:47

哪位大侠给个思路啊

VBALISPER 发表于 2012-3-19 20:41:02

做两次循环,第一次剪切掉超出的.第二次延伸内部的.

daiguafan 发表于 2012-3-19 20:42:47

VBALISPER 发表于 2012-3-19 20:41 static/image/common/back.gif
做两次循环,第一次剪切掉超出的.第二次延伸内部的.

这个我想过，如何判断的问题啊，如何判断是该延伸还是该剪切啊

VBALISPER 发表于 2012-3-19 21:12:46

不判断,第一次把所有的线剪切,出错忽略.第二次把所有的线延伸.出错忽略

ZZXXQQ 发表于 2012-3-19 21:46:00

根据楼上思路写的程序。只是对线条一半在内一半在外的处理有时有误。如果第一点画在外面就有正确结果
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "LINE")))) (progn
(setq i 0)
(repeat (sslength ss)
   (setq en (ssname ss i)
         ent (entget en)
         pt1 (cdr(assoc 10 ent))
         pt2 (cdr(assoc 11 ent)))
   (command ".TRIM" "" (list en pt1) (list en pt2) "")
   (setq ent (entget en)
         pt1 (cdr(assoc 10 ent))
         pt2 (cdr(assoc 11 ent)))
   (command ".EXTEND" "" (list en pt1) (list en pt2) "")
   (setq i (1+ i))
)
))
(setvar "CMDECHO" 1)
(princ)
)

lidaxiu 发表于 2012-3-19 21:52:03

封闭框单独放在一个图层上是不是问题就简单些了呢！

daiguafan 发表于 2012-3-19 21:57:57

lidaxiu 发表于 2012-3-19 21:52 static/image/common/back.gif
封闭框单独放在一个图层上是不是问题就简单些了呢！

可以单独放置一个图层

daiguafan 发表于 2012-3-19 22:00:24

ZZXXQQ 发表于 2012-3-19 21:46 static/image/common/back.gif
根据楼上思路写的程序。只是对线条一半在内一半在外的处理有时有误。如果第一点画在外面就有正确结果
(def ...

已经非常感谢了，不错，不过，确实，会出错。

daiguafan 发表于 2012-3-19 22:07:47

ZZXXQQ 发表于 2012-3-19 21:46 static/image/common/back.gif
根据楼上思路写的程序。只是对线条一半在内一半在外的处理有时有误。如果第一点画在外面就有正确结果
(def ...

没有考虑到一端剪切一端延伸的情况，所以还是要判断？
页: [1] 2 3
查看完整版本: 求助个思路，就是直线没相交就延伸到那个位置，如果相交就剪切掉