知道所有边长自动生成图形高人给实现思路

start4444

需要判断是左转90°还是右转

htlaser

start4444 发表于 2019-4-25 10:36
需要判断是左转90°还是右转

需要判断是左转90°还是右转    （pi）

youyou3810

1. (defun c:tt ()
   
2.   (setq p1 (getpoint "画图起始位置"))
   
3.   (setq w (getdist "\n距离:"))
   
4.   (setq jd (getdist "\n角度:1水平右 2水平左 3直角右 4直角左"))
   
5. (if (=1 jd 1)  (setq jd 0))
   
6.   (if (=2 jd 2)  (setq jd 180))
   
7.   (if (=3 jd 3)  (setq jd 90))
   
8.   (if (=4 jd 4)  (setq jd -90))
   
9.   (setq ang (* (/ jd 180) 3.1415926))
   
10.   (setq p2 (polar p1 ang w))
    
11.   (command "line" p1 p2 "")
    
12.   (setq x 0)
    
13.   (while (and (setq px p2)
    
14.               (setq w (getdist "\n距离:"))
    
15.               (setq jd (getdist "\n角度:"))
    
16.               (setq jd (getdist "\n角度:1水平右 2水平左 3直角右 4直角左"))
    
17. (if (=1 jd 1)  (setq jd 0))
    
18.   (if (=2 jd 2)  (setq jd 180))
    
19.   (if (=3 jd 3)  (setq jd 90))
    
20.               (setq ang (* (/ jd 180) 3.1415926))
    
21.               (setq p2 (polar px ang w))
    
22.               (command "line" px p2 "")
    
23.          )
    
24.   )
    
25. )

(defun c:tt ()<br />   (setq p1 (getpoint "画图起始位置"))<br />   (setq w (getdist "\n距离:"))<br />   (setq jd (getdist "\n角度:1水平右 2水平左 3直角右 4直角左"))<br /> (if (=1 jd 1)  (setq jd 0))<br />   (if (=2 jd 2)  (setq jd 180))<br />   (if (=3 jd 3)  (setq jd 90))<br />   (if (=4 jd 4)  (setq jd -90))<br />   (setq ang (* (/ jd 180) 3.1415926))<br />   (setq p2 (polar p1 ang w))<br />   (command "line" p1 p2 "")<br />   (setq x 0)<br />   (while (and (setq px p2)<br />               (setq w (getdist "\n距离:"))<br />               (setq jd (getdist "\n角度:"))<br />               (setq jd (getdist "\n角度:1水平右 2水平左 3直角右 4直角左"))<br /> (if (=1 jd 1)  (setq jd 0))<br />   (if (=2 jd 2)  (setq jd 180))<br />   (if (=3 jd 3)  (setq jd 90))<br />               (setq ang (* (/ jd 180) 3.1415926))<br />               (setq p2 (polar px ang w))<br />               (command "line" px p2 "")<br />          )<br />   )<br /> )

代码测试好像有点不行，没有找到问题

start4444

搞不懂你要干嘛，长度要自己输、角度要自己输，方向要自己输。。。。那不就是直接用pline命令不就行了

pengfei2010

我咋没看懂呀