如何获取动态块中某一条直线的角度

adslwang

如何获取动态块中某一条直线的角度，各位路过大神可以指点一下嘛！

菜卷鱼

1. (defun c:sxx()
   
2. (setq en(car (Nentsel )))
   
3. (setq eo(vlax-ename->vla-object en))
   
4. (setq ang (vlax-get EO 'ANGLE))
   
5. (mapcar 'princ (list "\n角度为:" (angtos ang 1)))
   
6. (prin1)
   
7. )

(defun c:sxx()<br /> (setq en(car (Nentsel )))<br /> (setq eo(vlax-ename->vla-object en))<br /> (setq ang (vlax-get EO 'ANGLE))<br /> (mapcar 'princ (list "\n角度为:" (angtos ang 1)))<br /> (prin1)<br /> )

adslwang

      点我→   提供档案测试

感谢您的帮忙，可是点选线段之后仍没有办法取出正确单一线断的角度...
希望大神们出手一下，谢谢

adslwang

菜卷鱼 发表于 2014-3-19 12:54

感谢出手相助