求一个以一个图层上的所有线为边界的延伸命令

wxa123wl · 发表于 2013-11-20 00:07:30

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

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

×

例如我以轴线为边界，把周围的墙线都延伸到轴线位子，把多余的墙线修剪掉

wxa123wl · 发表于 2013-11-20 00:10:12

是要整个平面图都这样，我自己也弄了一下，弄了半天没弄出来(defun C:efe (/  d1 d2 d3)
  (setvar "cmdecho" 0)
   (setq d1 (entsel))
(setq d2 (entget (car d1)))
(setq d3 (ssget "x" (list (cons 0 "dote"))))
(command "EXTEND" "d3")
  (princ)
)

其实我的思路是像先那轴线的选择集获得，再延伸

newer · 发表于 2013-11-20 00:25:11

wxa123wl 发表于 2013-11-20 00:10
是要整个平面图都这样，我自己也弄了一下，弄了半天没弄出来(defun C:efe (/ d1 d2 d3)
(setvar "cmde ...

结果图啥样？

wxa123wl · 发表于 2013-11-21 01:40:35

我想应该是先找出线段定点坐标然后，然后再在个范围内的搜索，到红色线的距离，当小于一定值才延伸（我的思路是：延伸边界感觉是红色线才好，是吧？我也不是很懂），还有的超出了红线，，修剪掉（我的思路是：要以红色线为为边界，打断蓝色线，然后删除小于一个范围的短小线段），

st788796 · 发表于 2013-11-21 07:53:35

wxa123wl 发表于 2013-11-21 01:40
我想应该是先找出线段定点坐标然后，然后再在个范围内的搜索，到红色线的距离，当小于一定值才延伸（我的思 ...

API应用中有个移动延伸修剪可供参考

wxa123wl · 发表于 2013-11-21 13:45:19

我一直没有弄懂API怎么用，我用的是lsp，vlx。axr，fas

st788796 · 发表于 2013-11-21 13:49:23

本帖最后由 st788796 于 2013-11-21 13:51 编辑

wxa123wl 发表于 2013-11-21 13:45
我一直没有弄懂API怎么用，我用的是lsp，vlx。axr，fas

XDRXAPI就是一个ARX，里面定义了一些函数，加载后就像alisp函数或像你自己定义的函数一样使用
而且这些函数大都是底层的，效率更高也更方便

wxa123wl · 发表于 2013-11-21 20:27:40

亲们，先把图层变成块或者组的话，可以实现我题目的哪个效果，可是蓝线会延伸到很远的轴线上去，不是很理想还得修剪很多！

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

[求助] 求一个以一个图层上的所有线为边界的延伸命令

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

点评

点评

点评