如何才能实现我的箭头替换？请版主zzxx8888d主贴内容-------------------------------------------------------
 

如何才能实现我的箭头替换？请版主zzxx8888d主贴内容-------------------------------------------------------
如何才能实现我的箭头替换？请版主zzxx
<一次性替换已炸开的箭头>只能替换指定箭头块。已炸开的箭头是什么样的？请提供图样。
踅摸
d
请使用winrar软件打开rar压缩文件。
例子和原编译程序都在里面！谢谢大大啦！
d
因为右边的标注的箭头不是块，所以对于替换左边已经分解标注对象的箭头有些复杂
d
那做一个实心箭头的块还是比较容易的！主要是不知道如何实现把左边的炸开的箭头块替换掉！
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
30
31
32
33
34
35
36
37
38
39
40
;箭头块替换成实心箭头 明经 zzxxecho" 0)
( ".undo" "be")
( ( ss ( "x" '((0 . "insert") (2 . "arrow")))) (
( i 0)
( ( ss)
( en ( ss i)
i ( i)
ent ( en)
p3 ((assoc 10 ent))
ang ((assoc 50 ent))
ang ( ( ang pi 1e-4) 0 pi)
sca ((assoc 41 ent))
p1 ( ( p3 ang ( sca 1.25)) ( ( pi 2) ang) ( sca 0.21))
p2 ( p1 (- ang ( pi 2)) ( sca 0.41)))
( ".erase" en "")
(
(
'(0 . "solid")
'(100 . "acdbentity")
'(67 . 0)
( 8 ( "clayer"))
'(100 . "acdbtrace")
( 10 p1)
( 11 p2)
( 12 p3)
( 13 p3)
'(39 . 0.0)
'(210 0.0 0.0 1.0)
)
)
)
))
( ".undo" "e")
()
)
踅摸