(求助)请教一下各位大神，有没有插件可以直接实现以下图片的效果

999999

麻烦路过的大神，能不能帮帮小弟实现以下图片的功能：
输入命令>选择对象>确认     这个功能的表达，不知道怎么去表达，就是类似，生成外轮廓与内轮廓，又感觉像是选中的图形交点修剪

夏生生

未做任何系统变量的处理，自己处理一下，完成状态为region，要lwpolyline的话，自己写一下后续，很简单，用炸开，pedit命令就行。

999999

夏生生 发表于 2021-12-19 04:28
未做任何系统变量的处理，自己处理一下，完成状态为region，要lwpolyline的话，自己写一下后续，很简单 ...

大神，请问这个目前需要框选两次能实现这种效果，是否可以实现框选一次就实现呢

tigcat

这个类似建筑结构中的梁线剪裁

999999

这个是根据最佳答案的大神的代码改了一下，一开始支持高版本，需要框选两次，用在07上没有用，会有错误提示，我把command -s  后面的-s删除了，就可以用了，而且还变成了框选一次就可以生成最终效果了，谢谢1楼大神的代码，我感觉找到了新天地，我还不知道是什么原理呢，哈哈，莫名奇妙的根据07版本的提示，删了一下，就更好了

999999

tigcat 发表于 2021-12-19 09:33
这个类似建筑结构中的梁线剪裁

行业不一样，但是很多小功能，还是一样的

tigcat

999999 发表于 2021-12-19 09:58
行业不一样，但是很多小功能，还是一样的

;不知道作者是谁,贴出交流下

1. (defun c:cut_new (/   ss  ns     i      pset   oldos  en
   
2.       ed   p1  p2     plist  intSET pi1    pi2
   
3.       eni   intseti       j      pjlist pj1    pj2
   
4.       enj   intp  dis12  midpoint       intlist
   
5.       midSET np  midlb  midrt
   
6.      )
   
7.   (command "undo" "group")
   
8.   (if (= fixdist_1 nil)
   
9.     (setq fixdist_1 400)
   
10.   )
    
11.   (princ "\n请输入控制间距，即平面图中最大梁宽) <")
    
12.   (princ fixdist_1)
    
13.   (princ ">:")
    
14.   (setq fixdist (getint))
    
15.   (if (= fixdist nil)
    
16.     (setq fixdist fixdist_1)
    
17.   )
    
18.   (setq fixdist_1 fixdist)
    
19.   (setq ss (ssget (list (cons 0 "LINE"))))
    
20. 
    
21.   (setq ns (sslength ss))
    
22.   (setq i 0)
    
23.   (setq pset nil)
    
24.   (setq oldos (getvar "osmode"))
    
25.   (setvar "osmode" 0)
    
26.   (setvar "cmdecho" 0)
    
27. 
    
28.           ;得到线的端点集
    
29.   (while (< i ns)
    
30.     (progn
    
31.       (setq en (ssname ss i))
    
32.       (setq ed (entget en))
    
33.       (setq p1 (cdr (assoc 10 ed)))
    
34.       (setq p2 (cdr (assoc 11 ed)))
    
35.       (setq plist (list p1 p2 en))
    
36.       (setq pset (cons plist pset))
    
37.       (setq i (1+ i))
    
38.     )
    
39.   )
    
40. 
    
41.           ;得到线的交点
    
42.   (setq intSET nil)
    
43.   (setq i 0)
    
44.   (while (< i ns)
    
45.     (progn
    
46.       (setq plist (nth i pset))
    
47.       (setq pi1  (nth 0 plist)
    
48.       pi2  (nth 1 plist)
    
49.       eni  (nth 2 plist)
    
50.       )
    
51.       (setq intseti nil)
    
52.       (setq j 0)
    
53.       (while (< j ns)
    
54.   (progn
    
55.     (if (= i j)
    
56.       (setq j (1+ j))
    
57.       (progn
    
58.         (setq pjlist (nth j pset))
    
59.         (setq pj1  (nth 0 pjlist)
    
60.         pj2  (nth 1 pjlist)
    
61.         enj  (nth 2 pjlist)
    
62.         )
    
63.         (if (setq intp (inters pi1 pi2 pj1 pj2))
    
64.           ;如果有交点，则存入交点集
    
65.     (progn
    
66.       (setq intlist (list intp enj))
    
67.       (setq intseti (cons intlist intseti))
    
68. ;;;              (princ intseti)
    
69. ;;;              (princ "\n")
    
70.     )
    
71.         )
    
72.         (setq j (1+ j))
    
73.       )
    
74.     )
    
75.   )
    
76.       )
    
77.           ;排序
    
78.       (setq
    
79.   intseti  (vl-sort
    
80.       intseti
    
81.       (function (lambda (e1 e2)
    
82.             (or (< (car (car e1)) (car (car e2)))
    
83.           (< (cadr (car e1)) (cadr (car e2)))
    
84.             )
    
85.           )
    
86.       )
    
87.     )
    
88.       )
    
89.       (setq intseti (cons eni intseti))
    
90.       (setq intSET (cons intseti intSET))
    
91. ;;;     (princ intSET)
    
92. ;;;     (princ "\n")
    
93.       (setq i (1+ i))
    
94.     )          ;结束progn
    
95.   )          ;结束while i<ns
    
96. 
    
97.           ;求距离小于限值的线段的中点集
    
98.   (setq  i 0
    
99.   midSET nil
    
100.   )
     
101.   (while (< i ns)
     
102.     (progn
     
103.       (setq intseti (nth i intSET))
     
104.       (setq j  1
     
105.       np  (length intseti)
     
106.       eni  (car intseti)
     
107.       )
     
108.       (setq pj1 (car (nth j intseti)))
     
109.       (setq j 2)
     
110.       (while (< j np)
     
111.   (progn
     
112.     (setq pj2 (car (nth j intseti)))
     
113.     (setq dis12 (distance pj1 pj2))
     
114.     (if (< dis12 fixdist)
     
115.       (progn
     
116.         (setq midpoint (mid pj1 pj2))
     
117. ;;;       (setq midSET (cons midpoint midSET))
     
118. ;;;       (princ "\nThe midpoint is :\n")
     
119. ;;;       (princ midpoint)
     
120.         (setq midlb (list  (- (nth 0 midpoint) (/ dis12 10.0))
     
121.         (- (nth 1 midpoint) (/ dis12 10.0))
     
122.         (nth 2 midpoint)
     
123.         )
     
124.         midrt (list  (+ (nth 0 midpoint) (/ dis12 10.0))
     
125.         (+ (nth 1 midpoint) (/ dis12 10.0))
     
126.         (nth 2 midpoint)
     
127.         )
     
128.         )
     
129.         (command "break" (ssget "c" midlb midrt) pj1 pj2)
     
130.       )
     
131.     )
     
132.     (setq pj1 pj2)
     
133.     (setq j (1+ j))
     
134.   )
     
135.       )
     
136.       (setq i (1+ i))
     
137.     )
     
138.   )
     
139. 
     
140. ;;; (princ "\nThe result is:\n")
     
141. ;;; (princ intSET)
     
142. ;;; (princ "\n")
     
143.   (setvar "osmode" oldos)
     
144.   (command "undo" "end")
     
145.   (princ)
     
146. ;;;  (setq i 0)
     
147. ;;;  (while
     
148. )
     
149. ;;; (setq fn "e:\\temp\\test.txt")
     
150. ;;; (setq f (open fn "a"))
     
151. ;;; (princ p1 f)
     
152. ;;; (princ "\n" f)
     
153. ;;; (princ p2
     
154. 
     
155. (defun mid (p1 p2 / x y)
     
156.   (setq  x (/ (+ (nth 0 p1) (nth 0 p2)) 2)
     
157.   y (/ (+ (nth 1 p1) (nth 1 p2)) 2)
     
158.   )
     
159.   (list x y (nth 2 p1))
     
160. )

(defun c:cut_new (/   ss  ns     i      pset   oldos  en<br />       ed   p1  p2     plist  intSET pi1    pi2<br />       eni   intseti       j      pjlist pj1    pj2<br />       enj   intp  dis12  midpoint       intlist<br />       midSET np  midlb  midrt<br />      )<br />   (command "undo" "group")<br />   (if (= fixdist_1 nil)<br />     (setq fixdist_1 400)<br />   )<br />   (princ "\n请输入控制间距，即平面图中最大梁宽) <")<br />   (princ fixdist_1)<br />   (princ ">:")<br />   (setq fixdist (getint))<br />   (if (= fixdist nil)<br />     (setq fixdist fixdist_1)<br />   )<br />   (setq fixdist_1 fixdist)<br />   (setq ss (ssget (list (cons 0 "LINE"))))<br /> <br />   (setq ns (sslength ss))<br />   (setq i 0)<br />   (setq pset nil)<br />   (setq oldos (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br /> <br />           ;得到线的端点集<br />   (while (< i ns)<br />     (progn<br />       (setq en (ssname ss i))<br />       (setq ed (entget en))<br />       (setq p1 (cdr (assoc 10 ed)))<br />       (setq p2 (cdr (assoc 11 ed)))<br />       (setq plist (list p1 p2 en))<br />       (setq pset (cons plist pset))<br />       (setq i (1+ i))<br />     )<br />   )<br /> <br />           ;得到线的交点<br />   (setq intSET nil)<br />   (setq i 0)<br />   (while (< i ns)<br />     (progn<br />       (setq plist (nth i pset))<br />       (setq pi1  (nth 0 plist)<br />       pi2  (nth 1 plist)<br />       eni  (nth 2 plist)<br />       )<br />       (setq intseti nil)<br />       (setq j 0)<br />       (while (< j ns)<br />   (progn<br />     (if (= i j)<br />       (setq j (1+ j))<br />       (progn<br />         (setq pjlist (nth j pset))<br />         (setq pj1  (nth 0 pjlist)<br />         pj2  (nth 1 pjlist)<br />         enj  (nth 2 pjlist)<br />         )<br />         (if (setq intp (inters pi1 pi2 pj1 pj2))<br />           ;如果有交点，则存入交点集<br />     (progn<br />       (setq intlist (list intp enj))<br />       (setq intseti (cons intlist intseti))<br /> ;;;              (princ intseti)<br /> ;;;              (princ "\n")<br />     )<br />         )<br />         (setq j (1+ j))<br />       )<br />     )<br />   )<br />       )<br />           ;排序<br />       (setq<br />   intseti  (vl-sort<br />       intseti<br />       (function (lambda (e1 e2)<br />             (or (< (car (car e1)) (car (car e2)))<br />           (< (cadr (car e1)) (cadr (car e2)))<br />             )<br />           )<br />       )<br />     )<br />       )<br />       (setq intseti (cons eni intseti))<br />       (setq intSET (cons intseti intSET))<br /> ;;;     (princ intSET)<br /> ;;;     (princ "\n")<br />       (setq i (1+ i))<br />     )          ;结束progn<br />   )          ;结束while i<ns<br /> <br />           ;求距离小于限值的线段的中点集<br />   (setq  i 0<br />   midSET nil<br />   )<br />   (while (< i ns)<br />     (progn<br />       (setq intseti (nth i intSET))<br />       (setq j  1<br />       np  (length intseti)<br />       eni  (car intseti)<br />       )<br />       (setq pj1 (car (nth j intseti)))<br />       (setq j 2)<br />       (while (< j np)<br />   (progn<br />     (setq pj2 (car (nth j intseti)))<br />     (setq dis12 (distance pj1 pj2))<br />     (if (< dis12 fixdist)<br />       (progn<br />         (setq midpoint (mid pj1 pj2))<br /> ;;;       (setq midSET (cons midpoint midSET))<br /> ;;;       (princ "\nThe midpoint is :\n")<br /> ;;;       (princ midpoint)<br />         (setq midlb (list  (- (nth 0 midpoint) (/ dis12 10.0))<br />         (- (nth 1 midpoint) (/ dis12 10.0))<br />         (nth 2 midpoint)<br />         )<br />         midrt (list  (+ (nth 0 midpoint) (/ dis12 10.0))<br />         (+ (nth 1 midpoint) (/ dis12 10.0))<br />         (nth 2 midpoint)<br />         )<br />         )<br />         (command "break" (ssget "c" midlb midrt) pj1 pj2)<br />       )<br />     )<br />     (setq pj1 pj2)<br />     (setq j (1+ j))<br />   )<br />       )<br />       (setq i (1+ i))<br />     )<br />   )<br /> <br /> ;;; (princ "\nThe result is:\n")<br /> ;;; (princ intSET)<br /> ;;; (princ "\n")<br />   (setvar "osmode" oldos)<br />   (command "undo" "end")<br />   (princ)<br /> ;;;  (setq i 0)<br /> ;;;  (while <br /> )<br /> ;;; (setq fn "e:\\temp\\test.txt")<br /> ;;; (setq f (open fn "a"))<br /> ;;; (princ p1 f)<br /> ;;; (princ "\n" f)<br /> ;;; (princ p2<br /> <br /> (defun mid (p1 p2 / x y)<br />   (setq  x (/ (+ (nth 0 p1) (nth 0 p2)) 2)<br />   y (/ (+ (nth 1 p1) (nth 1 p2)) 2)<br />   )<br />   (list x y (nth 2 p1))<br /> )

999999

tigcat 发表于 2021-12-19 10:09
;不知道作者是谁,贴出交流下

感谢大神，请问大神能贴一个这个代码的功能作用上来吗？刚刚试了一下，不知道怎么用，，真的很惭愧

pizi158545086

999999 发表于 2021-12-19 09:57
这个是根据最佳答案的大神的代码改了一下，一开始支持高版本，需要框选两次，用在07上没有用，会有错误提示 ...

可以帮忙增加全部连接成多段线代码吗  谢谢

tigcat

999999 发表于 2021-12-19 10:20
感谢大神，请问大神能贴一个这个代码的功能作用上来吗？刚刚试了一下，不知道怎 ...

这个就是把相交的梁线打开,应该是只支持直线;然后是如果有缺口应该不能补全缺口.原作者是<AutoLISP在建筑结构设计中的应用>一书的作者刘立平老师.