henwuqing 发表于 2008-8-21 18:18:00

[求助]使用lisp如何获取一条直线的角度

如题,,,,,,,,

nameld001 发表于 2008-8-21 20:14:00

本帖最后由 作者 于 2008-8-21 20:15:40 编辑 <br /><br /> <p>直线没有角度</p>

asen 发表于 2008-8-21 20:21:00

<p>两点可构成角度啊</p>

xiaoliang200 发表于 2008-8-21 20:24:00

(DEFUN C:WXDQ()<br/>&nbsp; (vl-load-com)<br/>&nbsp; (SETQ a (entget(car(entsel "选择文字:")))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; b (car(entsel "选择基准线:")))<br/>&nbsp; (setq obj (vlax-Ename-&gt;Vla-Object b))<br/>&nbsp; (setq b (vla-get-Angle obj))<br/>&nbsp; (SETQ NEWa (SUBST (cons 50 b) (ASSOC 50 a) a))<br/>&nbsp; (ENTMOD NEWa )<br/>&nbsp; (princ))<br/>这是文字与直线对齐的代码，你看一下其中的 (setq obj (vlax-Ename-&gt;Vla-Object b))<br/>&nbsp; (setq b (vla-get-Angle obj))<br/>

zml84 发表于 2008-8-21 20:29:00

<p>(setq ss (entsel "\n点取一直线段:"))</p><p>(setq enl (entget (car ss)))</p><p>(setq pt10 (cdr (assoc 10 enl))</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pt11 (cdr (assoc 11 enl))</p><p>)</p><p>;;角度</p><p>(setq ang (angle pt10 pt11))</p>

xyp1964 发表于 2008-8-22 00:08:00

(vla-<font size="3"><font color="#ffffff"><font style="BACKGROUND-COLOR: #316ac5;">get-Angle</font></font>
                </font>Object)

henwuqing 发表于 2008-8-22 09:56:00

谢谢各位了，
页: [1]
查看完整版本: [求助]使用lisp如何获取一条直线的角度