请求编lisp程序,实现cad文件中的裁剪功能!?
 

请求编lisp程序,实现cad文件中的裁剪功能!?
www.dimcax.com
请求编lisp程序,实现cad文件中的裁剪功能!?
请使用winrar软件打开rar压缩文件。
d
帮人顶上去........
d
是要这个吗？
好好学习cad，天天向上搞设计。
错误: 参数太多!!!请高手解决！谢谢！
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186( c:tt ( s0 s1 pt entl lx pt0 pt0_old pt1 pt1_old)
( "\n★★超级修剪★★")
( cmdecho_old
( "cmdecho")
)
( "cmdecho" 0)
( ( ( edge_jl "") ( edge_jl nil))
( edge_jl 5.0)
)
(
( "\n当前设置:投影="
( ( "projmode") '("不投影" "当前ucs" "当前视图"))
"，边="
( ( "edgemode") '("不延伸" "延伸"))
"，外延距离="
( edge_jl 2 ( "luprec"))
)
)
( "\n选择剪切边...")
( s0 ())
( ( s0 nil)
( "\n★未选择边界，即将退出。")
(
( s1 nil)
( ( ( s1 nil)
( nil
( ( 4 "p e d u")
( pt
(
"\n选择要修剪的对象，或 [投影(p)/边(e)/外延距离(d)/放弃(u)]:"
)
)
)
)
)
(
(( pt "p") ;分支一：投影选项设置
(
( 4)
(
xx (
(
"\n输入投影选项 [无(0)/ucs(1)/视图(2)] <"
( ( "projmode"))
">:"
)
)
)
( ( ( xx 0) ( xx 1) ( xx 2))
( "projmode" xx)
)
)
)
(( pt "e") ;分支二：边延伸选项设置
(
( 4)
( xx (
(
"\n输入隐含边延伸模式 [不延伸(0)/延伸(1)] <"
( ( "edgemode"))
">:"
)
)
)
( ( ( xx 0) ( xx 1))
( "edgemode" xx)
)
)
)
(( pt "d") ;分支三：外延距离选项设置
(
( 4)
( xx (
(
"\n输入外延的距离 <"
( edge_jl
2
( "luprec")
)
">:"
)
)
)
( ( xx 0)
( edge_jl xx)
)
)
)
(( pt "u") ;分支四：撤销上一步操作
( "_.undo" 1)
)
(( pt) ;分支五：对选中的对象进行修剪操作
( ( pt)
(
( s1 ( ( ( pt) 0) pt))
( entl ( ( s1) '("*"))
lx (dxf_let entl 0)
)
( ;对各种对象类型进行操作。
(( lx "line")
(
( "_.undo" "be")
( pt0_old (dxf_let entl 10)
pt1_old (dxf_let entl 11)
)
( "_trim" s0 "" s1 "")
( entl ( ( s1) '("*")))
( pt0 (dxf_let entl 10)
pt1 (dxf_let entl 11)
)
( ( ( pt0 pt0_old)
( pt1 pt1_old)
)
( "\n★对象未与边相交。")
( ( ( ( pt0 pt0_old))
;检查起点
(dxf_set
entl
10
( pt0
( pt0 pt0_old)
edge_jl
)
)
( ( ( pt1 pt1_old))
;检查终点
(dxf_set
entl
11
( pt1
( pt1
pt1_old
)
edge_jl
)
)
)
)
( "_.undo" "e")
)
)
)
)
(( lx "arc")
( ( "\n★对象类型为\""
lx
"\"，暂不能处理。"
)
)
)
(
(
( "\n★对象类型\""
lx
"\"，拒绝操作。"
)
)
)
)
)
( "\n★未选择到对象。")
)
) ;结束 分支五 ) ;结束 cond 结束分支 ( s1 nil)
) ;结束 while
)
) ;结束 if ( "cmdecho" cmdecho_old) ( "\n★正常结束。谢谢使用。")
()
) ;结束 defun;;;定义函数，用于提取属性。
( dxf_let (ent n)
( ( n ent)
( ( n ent))
nil
)
) ;结束 defun;;;定义函数，用于修改属性。
( dxf_set (ent n nr)
( ( n ent)
(
( ent ( ( n nr) ( n ent) ent)
)
( ent)
)
nil
) ;结束 if
) ;结束 defun( "\n\n★超级修剪。键入命令\"tt\"执行。")
()
)
d
我修改了一下，有关的代码段，还需要添加，只是一个框架而已，希望大家不全。修改后的代码如下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
;; modefied by 小李子 木子cad
( c:supertrim ( s0 s1 pt entl lx pt0 pt0_old pt1 pt1_old)
;;定义函数，用于提取属性。
( dxf_let (ent n)
( ( n ent)
( ( n ent))
nil
)
) ;结束 defun;;;定义函数，用于修改属性。
( dxf_set (ent n nr)
( ( n ent)
(
( ent ( ( n nr) ( n ent) ent)
)
( ent)
)
nil
) ;结束 if
) ;结束 defun
( "\n★★超级修剪★★")
( cmdecho_old ( "cmdecho"))
( "cmdecho" 0)
( ( ( edge_jl "") ( edge_jl nil))
( edge_jl 5.0)
)
(
( "\n当前设置:投影="
( ( "projmode") '("不投影" "当前ucs" "当前视图"))
"，边="
( ( "edgemode") '("不延伸" "延伸"))
"，外延距离="
( edge_jl 2 ( "luprec"))
)
)
( "\n选择剪切边...")
( s0 ())
( ( s0 nil)
( "\n★未选择边界，即将退出。")
(
( s1 nil)
( ( ( s1 nil)
( nil
( ( 4 "p e d u")
( pt
(
"\n选择要修剪的对象，或 [投影(p)/边(e)/外延距离(d)/放弃(u)]:"
)
)
)
)
)
(
(( pt "p") ;分支一：投影选项设置
(
( 4)
(
xx (
(
"\n输入投影选项 [无(0)/ucs(1)/视图(2)] <"
( ( "projmode"))
">:"
)
)
)
( ( ( xx 0) ( xx 1) ( xx 2))
( "projmode" xx)
)
)
)
(( pt "e") ;分支二：边延伸选项设置
(
( 4)
( xx (
(
"\n输入隐含边延伸模式 [不延伸(0)/延伸(1)] <"
( ( "edgemode"))
">:"
)
)
)
( ( ( xx 0) ( xx 1))
( "edgemode" xx)
)
)
)
(( pt "d") ;分支三：外延距离选项设置
(
( 4)
( xx (
(
"\n输入外延的距离 <"
( edge_jl
2
( "luprec")
)
">:"
)
)
)
( ( xx 0)
( edge_jl xx)
)
)
)
(( pt "u") ;分支四：撤销上一步操作
( "_.undo" 1)
)
(( pt) ;分支五：对选中的对象进行修剪操作
( ( pt)
(
( s1 ( ( ( pt) 0) pt))
( entl ( ( s1) '("*"))
lx (dxf_let entl 0)
)
( ;对各种对象类型进行操作。
(( lx "line")
(
( "_.undo" "be")
( pt0_old (dxf_let entl 10)
pt1_old (dxf_let entl 11)
)
( "_trim" s0 "" s1 "")
( entl ( ( s1) '("*")))
( pt0 (dxf_let entl 10)
pt1 (dxf_let entl 11)
)
( ( ( pt0 pt0_old)
( pt1 pt1_old)
)
( "\n★对象未与边相交。")
( ( ( ( pt0 pt0_old))
;检查起点
(dxf_set
entl
10
( pt0
( pt0 pt0_old)
edge_jl
)
)
( ( ( pt1 pt1_old))
;检查终点
(dxf_set
entl
11
( pt1
( pt1
pt1_old
)
edge_jl
)
)
)
)
( "_.undo" "e")
)
)
)
)
(( lx "arc")
( ( "\n★对象类型为\""
lx
"\"，暂不能处理。"
)
)
)
(
(
( "\n★对象类型\""
lx
"\"，拒绝操作。"
)
)
)
)
)
( "\n★未选择到对象。")
)
) ;结束 分支五
) ;结束 cond 结束分支
( s1 nil)
) ;结束 while
)
) ;结束 if
( "cmdecho" cmdecho_old)
( "\n★正常结束。谢谢使用。")
()
) ;结束 defun
(princ "\n\n★超级修剪。键入命令\"tt\"执行。")
()
d
帮人顶上去........