求助！！！！大家帮忙看看！！！谢谢！！

merak · 发表于 2003-11-15 16:42:00

(defun c:angdim ( / )
  (setvar "cmdecho" 0)
  (setq p1 (getpoint "\n请输入起点:"))
  (setq p2 (getpoint p1 "\n请输入角点:"))
  (command "pline" p1 p2 )
  (setq ss1 (entlast))
  (setq p3 (getpoint p2 "\n请输入端点:"))
  (command p3 "")
  (setq ss2 (entlast))
  (setq ang1 (angle p2 p1))
  (setq ang2 (angle p2 p3))
  (if (> ang1 pi)
(setq ang1 (- ang1 (* 2 pi)))
  )
  (if (> ang2 pi)
(setq ang2 (- ang2 (* 2 pi)))
  )

  (setq p4 (polar p2 (/ (+ ang1 ang2) 2.0) (/ (distance p1 p2) 1.5)))
  (command "dim1" "ang" (list ss1 p1) (list ss2 p3) p4 "" "")
  (setvar "cmdecho" 1)
  (princ)
)

BDYCAD · 发表于 2003-11-15 17:19:00

(defun c:angdim ( / )
  (setvar "cmdecho" 0)
(setq p1 (getpoint "\n请输入起点:"))
  (setq p2 (getpoint p1 "\n请输入角点:"))
  (command "pline" p1 p2 )
  (setq ss1 (entlast))
  (setq p3 (getpoint p2 "\n请输入端点:"))
  (command p3 "")
  (setq ss2 (entlast))
  (setq ang1 (angle p2 p1))
  (setq ang2 (angle p2 p3))
  (if (> ang1 pi)
(setq ang1 (- ang1 (* 2 pi)))
  )
  (if (> ang2 pi)
(setq ang2 (- ang2 (* 2 pi)))
  )

  (setq p4 (polar p2 (/ (+ ang1 ang2) 2.0) (/ (distance p1 p2) 1.5)))
  (command "dim1" "ang"  p1  p3 p4 "" "")
  (setvar "cmdecho" 1)
  (princ)
)

lwbczmluhzd.jpg

meflying · 发表于 2003-11-16 11:46:00

你的两个(entlast)是同一个对象，没有必要中间也来一次。
你可以将PLINE改为LINE即可。也可以像BDYCAD那样直接用点（此时可以将两个(entlast)去掉）

求助！！！！大家帮忙看看！！！谢谢！！

发表回复

精选推荐