请教个角度标注的问题

zhibeisha

我想用下面这些程序标注两条不相交的直线时，为什么标注出来的是补角

(setq dp0  (list 365.0 224.0)
        dp5  (list 341.136 273.553)
        dp6  (list 350.689 253.718)  
        dp7  (list 350.003 308.713)
)
(setq P5 (inters dp6 dp7 dp0 dp5 nil))
(setq ang (/ (+ (angle dp5 dp0) (angle  dp5 dp6)) 2))
(command "dimangular" (list ob4 P5) (list ob5 P5) (polar dp5 pi 4))

自贡黄明儒

在cad下，标注角度与文字放置点有关。也许程序也是这个道理

zhibeisha

我换了好多次尺寸点位置，好像都不行

xyp1964

代码不全无法测试

xyp1964

2. (setq dp0 '(365.0 224.0)
   
3.       dp5 '(341.136 273.553)
   
4.       dp6 '(350.689 253.718)
   
5.       dp7 '(350.003 308.713)
   
6.       P5  (inters dp6 dp7 dp0 dp5 nil)
   
7. )
   
8. (command "line" "non" dp6 "non" dp7 "")
   
9. (setq ob4 (entlast))
   
10. (command "line" "non" dp0 "non" dp5 "")
    
11. (setq ob5 (entlast)
    
12.       e1  (list ob4 P5)
    
13.       e2  (list ob5 P5)
    
14. )
    
15. (command "dimangular" e1 e2 (polar dp5 pi 4))
    
16. (command "dimangular" e1 e2 (polar dp5 0 4))

(setq dp0 '(365.0 224.0)<br />       dp5 '(341.136 273.553)<br />       dp6 '(350.689 253.718)<br />       dp7 '(350.003 308.713)<br />       P5  (inters dp6 dp7 dp0 dp5 nil)<br /> )<br /> (command "line" "non" dp6 "non" dp7 "")<br /> (setq ob4 (entlast))<br /> (command "line" "non" dp0 "non" dp5 "")<br /> (setq ob5 (entlast)<br />       e1  (list ob4 P5)<br />       e2  (list ob5 P5)<br /> )<br /> (command "dimangular" e1 e2 (polar dp5 pi 4))<br /> (command "dimangular" e1 e2 (polar dp5 0 4))

zhibeisha

xyp1964 发表于 2014-7-7 19:16

我想把标注位置距离大点，把最后两句换成
(command "dimangular" e1 e2 (polar dp5 pi 12))
(command "dimangular" e1 e2 (polar dp5 0 12))
标注效果怎么成这样了

zhibeisha

改了之后是这样的

原先是这样的