如何得到一个块的角度？？

cxzr8 · 发表于 2004-3-1 14:05:00

我查了dxf组码，不太熟，没有找到。
请赐教，设已得到了当前块的图元名为 ent ,想得到它的角度该如何写？
另外好像LISP中的角度都是弧度制，如是则请一并告知怎么将其转为角度，以便我调用命令（如insert）中使用？？

citykunan · 发表于 2004-3-1 14:20:00

(defun c:angle (/ ent hd jd)
   (setq ent (entget (car (entsel))))
   (setq hd (cdr (assoc 50    ent)))
   (setq jd (/ (* hd 180) pi))
)
jd就是你要的。

cxzr8 · 发表于 2004-3-1 14:27:00

请谢师兄这么快就给予热心的指点！