[求助]两直线间角度

lglovelhm

我想一次输入两条成一定角度的直线，不知怎么输入命令。

还请诸位帮忙。谢谢！

CADghost

;在CAD中好像不太好实现，要是程序倒是简单得很。试试下面的

(defun c:double-line ()

(setvar "osmode" 0)

(setq L1 (getdist "\n第一条直线的长度:"))

(setq L2 (getdist "\n第二条直线的长度:"))

(setq ang (getreal "\n相交角度:"))
 
(setq ang (* pi (/ ang 180)))

(setq p (getpoint "\n插入点:"))

(setq p1 (polar p 0 L1))

(setq p2 (polar p ang L2))

(command "_.pline" p1 "h" "0" "0" p p2 "")

(princ)

)

若晨

学习楼上的

9831LAOYIN

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

lglovelhm

多谢了，学习中。