[求助]高效绘制矩形程序
 

[求助]高效绘制矩形程序
www.dimcax.com
[求助]高效绘制矩形程序怎样用lisp程序快速在每个都闭合的、长度为1294.0的多段线右下点为右下点处画一个长20，宽110的矩形？
如附件所示：
（闭合多段线的顶点和位置并不相同，但是长、宽都一样，总长都是1294cm）
先谢了！
请使用winrar软件打开rar压缩文件。
d
试试看：
以下内容需要帖子数达到5才可以浏览
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
;方框右下角加20x10的矩形 明经 zzxxecho" 0)
( "\n选择方框 :")
( ( ss ( '((0 . "lwpolyline") (70 . 1)))) (
( i 0)
( ( ss)
( ent ((ssname ss i))
i ( i)
ptl ()
j 0)
( ( ((assoc 90 ent)) 4) (
( ( ent)
( ( ((setq pp ( j ent))) 10)
( ptl ( ptl ((cdr pp))))
)
( j ( j))
)
( pt ( ( (caar ptl) (caadr ptl) (caaddr ptl) ((last ptl)))
( (cadar ptl) (cadadr ptl) ((nth 2 ptl)) ((last ptl))))
pt1 ( ( pt ( pi 2) 10) pi 20))
( ".rectang" pt pt1)
))
)
))
()
)
踅摸
d
xuexixuexi
d
谢谢版主！谢谢zzxxqq,效率很高，但是，美中不足的是，不能全选过滤，必须得一个一个点击1294方框，要是能过滤图纸中长度为1294的方框就好了！谢谢啊！
d
将z版的程序稍作修改
以下内容需要帖子数达到5才可以浏览
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;方框右下角加20x10的矩形 明经 zzxxecho" 0)
( "\n选择方框 :")
( ( ss ( '((0 . "lwpolyline") (70 . 1)))) (
( i 0)
( ( ss)
( ent ( ss i) i ( i))
( ( (getlen ent) 1294 0.00001)(
( ent ( ent)
ptl ()
j 0)
( ( ((assoc 90 ent)) 4) (
( ( ent)
( ( ((setq pp ( j ent))) 10)
( ptl ( ptl ((cdr pp))))
)
( j ( j))
)
( pt ( ( (caar ptl) (caadr ptl) (caaddr ptl) ((last ptl)))
( (cadar ptl) (cadadr ptl) ((nth 2 ptl)) ((last ptl))))
pt1 ( ( pt ( pi 2) 10) pi 20))
( ".rectang" "_non" pt "_non" pt1)
))))
)
))
()
)
d
谢谢caoyin版主，这个效率就很高了，谢谢！
好好学习ing！