桥接程序求完善

aws

• (defun c:ff()
•   (command "undo" "be")
•   (setvar "cmdecho" 0)
•   (setq bz(getvar "osmode"))(setvar "osmode" 0)
•   (setq p1(getpoint "\n选择桥接起点："))
•   (setq p2(getpoint p1 "\n选择桥接终点："))
•   (setq p3(polar p1 (angle p2 p1) 0.01));---外扩点（为后面框选做准备）
•   (setq p4(polar p2 (angle p1 p2) 0.01));---外扩点（为后面框选做准备）
•   (setq p5(polar p1 (angle p1 p2) 0.01));---内缩点（为后面修剪做准备）
•   (setq p6(polar p2 (angle p2 p1) 0.01));---内缩点（为后面修剪做准备）
•   (setq jk(getdist "\n量取或输入桥接宽度：<5>"))(if (null jk)(setq jk 5))
•   (setq d(* jk 0.5))
•   (setq dd(* d 0.999));---内缩
•   (setq ddd(* d 1.001));---外扩
•   (setq r(+ (angle p1 p2) (* pi 0.5)))
•   (command "pline" (polar p1 r (- d)) (polar p2 r (- d)) (polar p2 r d) (polar p1 r d) "c")
•   (setq rec(entlast))
•   (command "trim" rec "" "f" (polar p5 r (- dd)) (polar p6 r (- dd)) (polar p6 r dd) (polar p5 r dd) (polar p5 r (- dd)) "" "")
•   (setq ss(ssget "wp" (list (polar p3 r (- ddd)) (polar p4 r (- ddd)) (polar p4 r ddd) (polar p3 r ddd))))
•   (command "erase" ss "")
•   (setvar "osmode" bz)
•   (command "undo" "e")
•   (setvar "cmdecho" 0)
•   (princ)
• )
  

cq4920

2. ;;平面开门洞
   
3. (defun c:ttr (/ os p1 p2 ss layername i n ptla obj ptl ent   )
   
4.         (setvar "cmdecho" 0)
   
5.   (setq os (getvar "osmode"))
   
6.         (setq p1 (getpoint"\n 指定双线外侧第一点"))
   
7.         (setq p2 (getpoint p1 "\n 指定双线另一侧的点"))
   
8.         (setq
   
9.                 ss (ssget "_f" (list p1 p2))
   
10.                 layername (cdr (assoc 8 (entget (ssname ss 0)))))
    
11.         (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))
    
12.         (setq ent (entlast))
    
13.         (setq i 0 n (sslength ss) ptla '())
    
14.         (repeat n
    
15.    (setq obj  (ssname ss i))
    
16.      (setq ptl  (HH:TwoEntsInters  ent obj 0))
    
17.                  (setq ptla (append ptla ptl))
    
18.    (setq i (1+ i))
    
19. )
    
20.   (setq ptla        (MC-pt ptla))
    
21.         (COMMAND "_.erase"  ENT "")
    
22.   (command "_.BOUNDARY" (mc:md (car ptla) (cadr ptla)) "")
    
23.         (mc:ggtc (last_ent ent) layername)
    
24.         (setvar "osmode" 0)         
    
25.         (vl-cmdf "trim"  "" "f"  p1  p2 "" "")
    
26.         (lj (ssget "x" (list (cons 0 "line,LWPOLYLINE,arc") (cons 8 layername))) )
    
27.         (command "._undo" "end")
    
28.   (setvar "osmode" os)
    
29.         (princ)
    
30. )
    

;;平面开门洞<br /> (defun c:ttr (/ os p1 p2 ss layername i n ptla obj ptl ent   )<br />         (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />         (setq p1 (getpoint"\n 指定双线外侧第一点"))<br />         (setq p2 (getpoint p1 "\n 指定双线另一侧的点"))<br />         (setq <br />                 ss (ssget "_f" (list p1 p2))<br />                 layername (cdr (assoc 8 (entget (ssname ss 0)))))<br />         (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))<br />         (setq ent (entlast))<br />         (setq i 0 n (sslength ss) ptla '())<br />         (repeat n<br />    (setq obj  (ssname ss i))<br />      (setq ptl  (HH:TwoEntsInters  ent obj 0))<br />                  (setq ptla (append ptla ptl))<br />    (setq i (1+ i))<br /> )<br />   (setq ptla        (MC-pt ptla))<br />         (COMMAND "_.erase"  ENT "")<br />   (command "_.BOUNDARY" (mc:md (car ptla) (cadr ptla)) "")<br />         (mc:ggtc (last_ent ent) layername)<br />         (setvar "osmode" 0)         <br />         (vl-cmdf "trim"  "" "f"  p1  p2 "" "")<br />         (lj (ssget "x" (list (cons 0 "line,LWPOLYLINE,arc") (cons 8 layername))) )<br />         (command "._undo" "end")<br />   (setvar "osmode" os)<br />         (princ)<br /> )<br />

如果是这样的问题那我其他的帖子可以看一看！！

cq4920

aws 发表于 2023-2-24 18:56
如果能获取到四个端点，加个判断，两两连接，是可以做到的。问题是，怎么获取这四个端点？

就是 你图中的状态是一开始就是如此，还是你将双线，用命令TR剪切后形成的，如果一开始如此，那就可以直接框选，如果一开始是双线，那么在你打断的时候 就已经得到了4个的坐标！

cq4920

aws 发表于 2023-2-24 18:11
现在就差最后一步了，就是把四个点，进行连线，但是没有头绪，有没有大佬，能提供思路

框选4个端点 并且得到每个端点与之对应的下一点，如果是直线就求另一点 如果是多义线，就求相邻点，然后计算这两点的在空间内的方向，按照方向相同分两组，分别连接

aws

现在就差最后一步了，就是把四个点，进行连线，但是没有头绪，有没有大佬，能提供思路

mahuan1279

aws 发表于 2023-2-24 18:11
现在就差最后一步了，就是把四个点，进行连线，但是没有头绪，有没有大佬，能提供思路

按什么规则连接？找出规则，就不是难事。

aws

mahuan1279 发表于 2023-2-24 18:53
按什么规则连接？找出规则，就不是难事。

这还不太好语言表达，就按照图片上的情况连接

aws

cq4920 发表于 2023-2-24 18:41
框选4个端点 并且得到每个端点与之对应的下一点，如果是直线就求另一点 如果是多义线，就求相邻点，然后 ...

如果能获取到四个端点，加个判断，两两连接，是可以做到的。问题是，怎么获取这四个端点？

aws

如图所示，我需要连接p1和p3，p2和p4，如果能获取到这四个点，分别计算他们的angle函数值。如果等于起点和终点的angle函数值，就进行连线。否则就不连线。

aws

cq4920 发表于 2023-2-24 19:04
就是 你图中的状态是一开始就是如此，还是你将双线，用命令TR剪切后形成的，如果一开始如此，那就可以直 ...

一开始是两个完整矩形，通过tr修剪后形成的缺口，那么我怎么调出来那四个坐标呢