[征集]：“十字形墙角”编辑程序

xyp1964

征集（加币）：
由4条线（LINE）组成的“十字形墙角”，如何利用程序将中间的4条多余线去掉？
见下图：

狂刀

右边第二种好像没这个必要吧？

它山之石

　　这种程序俺见到过很多了。晓东工具箱里就有这种程序。算法是得到四条线的交点。然后在交点处打断，再把四个交点范围内的短线删除。这是个比较好的编程思路。俺也曾经利用TRIM写过一个。但在处理斜线时会出错。因为用的不多，也就一直没有动过它。抛石引玉吧。

[php]
;   =========================================
;   |          梁墙交点自动裁剪软件         |
;   |           Update: 99.07.13            |
;   =========================================


(defun *error*(st)
  (if (and (/= st "Function cancelled")
           (/= st "quit / exit abort")
      )
      (princ (strcat "Error: " st))
  )
  (setq *error* old_err)
  (princ)
)

(defun c:trr ( / old_err  os a pt pt1 pt2 pt3 pt4 ptt1 ptt2 dis2 cmd_old ang)

   (princ (strcat"\n***梁墙交点自动裁剪软件V1.0  葛磊***"))
   (princ (strcat"\n      [共享软件，版权所有]"))
   (princ)
   (setq old_err *error*)
   (setq cmd_old (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setq os (getvar "OSMODE"))
   (setvar "OSMODE" 0)
   (setq pt (getpoint "\n点取裁剪中心并拖动鼠标确定裁剪范围"))
  (command "layer" "m" "fuzhu" "c" "r" "fuzhu" "" "")
  (command "circle" pt pause "")
  (setq a (entget (entlast)))
  (setq dis2 (cdr (assoc 40 a)))
  (command "erase" "l" "")  
      (setq pt1 (polar pt 0 dis2 ))
      (setq pt2 (polar pt (/ pi 2) dis2))
      (setq pt3 (polar pt pi dis2))
      (setq pt4 (polar pt (* pi 1.5) dis2))
      (setq ptt1 (polar pt1 (/ pi 2) dis2))
      (setq ptt2 (polar pt4  pi dis2))
     (command "trim" "c" ptt1 ptt2 "" "f" pt2 pt4 "" "f" pt1 pt3 "" "")
   (setvar "cmdecho" cmd_old)
   (setvar "OSMODE" os)
   (princ (strcat"\n***梁墙交点自动裁剪软件V1.0  葛磊***"))
   (princ (strcat"\n      [共享软件，版权所有]"))
   (princ)
)
[/php]

xyp1964

楼上程序基本可用，圆圈大了会出错。

狂刀

理论上支持所有曲线，不过还没有全面测试：)
附件为ｖｌｘ文件
命令：ｔｒｗｌ
功能：修剪两点框选范围内的墙线，剪除相交部分

程序思路，和３楼提到的基本一样

狂刀

演示

它山之石

1、是一个有点另类的梁墙交线修剪程序。可以TRIM也可以FILLET。附图中的见种情况都可以修剪好。
2、只支持直线（LINE），弧（ARC）等不支持。
3、只支持以下两个图层的实体。“梁__主梁”、“墙__砖墙”。
4、图中实体较多时，速度稍慢。
5、命令为JXXJ，交线修剪的拼音声母。
6、使用时将显示的圆圈全部套住要修剪的节点区，见附图。
7、程序创意源于03G101－1的配套软件，俺做了点更符合俺要求的修改。源软件还可以全图寻找交点自动修剪。

它山之石

程序为VLX文件，R14不适用。

狂刀

哈，它兄总算出绝招了．好！．．．．

怎么没人顶了？？？

狂刀

没有人顶？
自己来个演示吧．．．．：（

eachy

再加点难度，可以一次处理多个交叉口吗？不是一个个选。

狂刀

哪里该剪切哪里不该剪切，如何界定？
大家有何主意？不妨说说．

它山之石

最初由 eachy 发布
[B]再加点难度，可以一次处理多个交叉口吗？不是一个个选。 [/B]

　　自动全图寻找交点修剪的功能俺在前面已经提到过了。可以实现的。
　　一般情况下，梁、墙线中间都有轴线。得到轴线的交点就可以了。当没有轴线时，可以通过构造两根线的中线作为辅助线来求交点。
　　因为梁墙的宽度一般不会很宽，所以可以设定一个合理的圆圈来套住要修剪的节点。当然有些特殊情况也会出错。比如梁特别宽时或者是角部。就可能会出现狂刀所说的如何界定的问题。

amengsq

理论上支持所有曲线的，你可以在试试。

huiling6868

狂刀你的程序很好用,但每次打开CAD和图多出现你的签名看了不爽,你能否把它去掉.