[求助]:关于标注问题

davinlee

参考看看

(defun C:dim_dia (/ ENT ent_data pt_cen r ang1 ang2 pt_st pt_end)
  (setq ENT (entsel))
  (setq ent_data (entget (car ent)))
  (setq pt_cen (cdr (assoc 10 ent_data))
           r           (cdr (assoc 40 ent_data))
           ang1    (cdr (assoc 50 ent_data))
           ang2    (cdr (assoc 51 ent_data))
  )
  (setq pt_st    (polar pt_cen ang2 r)
           pt_end (polar pt_cen ang1 r)
  )
  (command "_.arc"
           "c"
           pt_cen
           pt_st
           pt_end
  )
  (command "_.change" (entlast) "" "p" "c" 1 "")
  (command "dimdiameter" (list (entlast) (cadr ENT)) PAUSE)
  (princ)
)

userzhl

为什么要这么麻烦呢，旋转一下坐标不就行了吗？