lglovelhm 发表于 2005-12-9 09:24:00

[求助]两直线间角度

<P>我想一次输入两条成一定角度的直线，不知怎么输入命令。</P>
<P>还请诸位帮忙。谢谢！</P>

CADghost 发表于 2005-12-9 11:36:00

本帖最后由 作者 于 2005-12-9 12:55:01 编辑 <br /><br /> <P>;在CAD中好像不太好实现，要是程序倒是简单得很。试试下面的</P>
<P>(defun c:double-line ()</P>
<P>(setvar "osmode" 0)</P>
<P>(setq L1 (getdist "\n第一条直线的长度:"))</P>
<P>(setq L2 (getdist "\n第二条直线的长度:"))</P>
<P>(setq ang (getreal "\n相交角度:"))<BR>&nbsp; <BR>(setq ang (* pi (/ ang 180)))</P>
<P>(setq p (getpoint "\n插入点:"))</P>
<P>(setq p1 (polar p 0 L1))</P>
<P>(setq p2 (polar p ang L2))</P>
<P>(command "_.pline" p1 "h" "0" "0" p p2 "")</P>
<P>(princ)</P>
<P>)</P>

若晨 发表于 2005-12-10 16:04:00

学习楼上的

9831LAOYIN 发表于 2005-12-10 19:15:00

呵呵,非得一次画两天吗?清华同方软件可以,CAD没试过,可是你COPY后在旋转也就几秒钟的时间啊.

lglovelhm 发表于 2005-12-11 09:15:00

多谢了，学习中。
页: [1]
查看完整版本: [求助]两直线间角度