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

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

求助个思路
如图

要变成

就是延伸和剪切同时进行

该贴已经同步到 daiguafan的微博

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

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

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

学习下22 23 26的

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

哪位大侠给个思路啊

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

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

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

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

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

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

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

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

根据楼上思路写的程序。只是对线条一半在内一半在外的处理有时有误。如果第一点画在外面就有正确结果
(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

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

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

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

可以单独放置一个图层

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

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

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

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

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

没有考虑到一端剪切一端延伸的情况，所以还是要判断？

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源