[求助] 角度自动标注

ahhfthdl

自动标注两条直线的夹角
(defun c:bz()
  (setvar "dimadec" 2)
  (setq p1 (getpoint "\n 输入第一点:"))
  (setq p2 (getpoint "\n 输入第二点:"))
  (setq p3 (getpoint "\n 输入第三点:"))
  (command "line" p1 p2 "")
  (command "line" p2 p3 "")   **********请高手把以下几行命令填上,谢谢

  (princ)
)

ahhfthdl

加上(command "dimangular" p2 p1 p3)可用,请给位高手指正.

killer9806

(defun c:bz()
  (setvar "dimadec" 2)
  (setq p1 (getpoint "\n 输入第一点:"))
  (setq p2 (getpoint "\n 输入第二点:"))
  (setq p3 (getpoint "\n 输入第三点:"))
  (command "line" p1 p2 "")
  (setq ent1 (entlast))
  (command "line" p2 p3 "")
  (setq ent2 (entlast))
  (setq ang (/ (+ (angle p2 p1) (angle p2 p3)) 2))
  (setq p4 (polar p2 ang 5))
  (command "osmode" 0)
  (command "dimangular" (list ent1 p2) (list ent2 p2) p4)
  (princ)
)

ahhfthdl

好象不怎么灵光啊

AMTONNY

楼主的思路不够好，有高手能做到如下效果吗？框选两条线，自动算出两线的夹角，并自动标出小于90度的角，且循环选择标注下一个角《需再选对象》，此功能可否实现？

AMTONNY

怎么没人跟贴呀？

xiaoquansb

这个思路不错，有无人有时间搞