zhibeisha 发表于 2014-7-7 16:35:28

请教个角度标注的问题

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

(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) (angledp5 dp6)) 2))
(command "dimangular" (list ob4 P5) (list ob5 P5) (polar dp5 pi 4))

自贡黄明儒 发表于 2014-7-7 16:39:14

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

zhibeisha 发表于 2014-7-7 17:01:16

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

xyp1964 发表于 2014-7-7 18:13:38

代码不全无法测试

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

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

zhibeisha 发表于 2014-7-8 10:17:20

xyp1964 发表于 2014-7-7 19:16 static/image/common/back.gif


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

zhibeisha 发表于 2014-7-8 10:20:47

改了之后是这样的

原先是这样的

页: [1]
查看完整版本: 请教个角度标注的问题