网友*无形*拜托编写的程序
 

网友*无形*拜托编写的程序
www.dimcax.com
网友*无形*拜托编写的程序
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;;相关函数链接
;;/bbs/dispbbs.asp?boardid=3&id=72404&page=1
;;/bbs/dispbbs.asp?boardid=3&id=59013&replyid=&skin=1
( c:men1 ( angrest en1 pt1 edat pts pte ang en2 pt2 mir pt1@ pt2@ mpt)
(lt:error-init ( '("cmdecho" 0 "osmode" 0) 0 nil))
( angrest (ang) ( '(0 0) ( '(0 0) ang 1)))
( ( en1 (lt:entsel "\n选择直线: "
'((0 . "line"))
'("对象必须是直线。")
)
)
()
)
( 'set '(en1 pt1) en1)
( pt1 ( en1 pt1)
edat ( en1)
pts ( ( 10 edat))
pte ( ( 11 edat))
ang ( pts pte)
en2 ( "_f"
( ( pt1 ( ang ( pi 2)) 300)
( pt1 (- ang ( pi 2)) 300)
)
'((0 . "line"))
)
en2 ( ( ( en1 en2)))
pt2 ( ( en2))
en2 ( en2)
pt2 ( en2 pt2)
an2 ( pt2 pt1)
)
( ( ( pt1 pts) ( pt1 pte))
( ang ( pte pts))
)
( an@ ( ang ( pi 2)))
( ( an@ ( pi 2) 0.000001)
( an@ 0)
)
( an@ (angrest an@))
( ( an@ an2 0.000001)
( mir 1)
( mir -1)
)
( pt1@ ( pt1 ang 900)
pt2@ ( pt2 ang 900)
mpt ( '( (x y) ( ( x y) 2.)) pt1 pt2)
)
( "_.line" pt1 pt2 "")
( "_.line" pt1@ pt2@ "")
( "_.break" ( en1 pt1) pt1@)
( "_.break" ( en2 pt2) pt2@)
( ( ( "block" "m1")
( "m1.dwg")
)
( "_.insert" "m1" mpt "" mir ( ( ang 180) pi))
( "\n未发现块 m1 。")
)
(lt:error_restore)
)
图块m1.dwg
该文件为 autocad
d
非常感谢谢caoyin版主指点和帮助!
d
存在以下问题：
1。加入出错处理时无法执行
2。当 直线角度大于或等于270度且小于360度时，两条线上插入的块是同一方向的.
d
改程序实现何种功能？
d
插入一个图块
d
lljj在9-1-23 11:33:00的发言：
存在以下问题：
1。加入出错处理时无法执行
2。当 直线角度大于或等于270度且小于360度时，两条线上插入的块是同一方向的.
这个我发现了，我看看再回你