诚求画矩形的小程序！

行空雕

Gu_xl 发表于 2013-1-9 13:07

2. (defun c:fx1(/)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq os (getvar "osmode"))
   
5.   (setq p_s (getpoint "\n输入矩形的一点:"))
   
6.   (setq p_e (getpoint "\n输入矩形的另一点:"))
   
7.   (setq w (getreal "\输入矩形的宽度:"))
   
8.   (setq ang (angle p_s p_e) P_L (distance p_s p_e))
   
9.   (setq p1(polar p_s  (+ ang (* pi 0.5)) (/ w 2)))
   
10.   (setq p2(polar p_s  (- ang (* pi 0.5)) (/ w 2)))
    
11.   (setq p3(polar p_e  (+ ang (* pi 0.5)) (/ w 2)))
    
12.   (setq p4(polar p_e  (- ang (* pi 0.5)) (/ w 2)))
    
13.   (setvar "osmode" 0)
    
14.   (command "pline" p1 p3 p4 p2 "c")
    
15.   (setvar "osmode" os)
    
16.   (print)
    
17.   )

(defun c:fx1(/)<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />   (setq p_s (getpoint "\n输入矩形的一点:"))<br />   (setq p_e (getpoint "\n输入矩形的另一点:"))<br />   (setq w (getreal "\输入矩形的宽度:"))<br />   (setq ang (angle p_s p_e) P_L (distance p_s p_e))<br />   (setq p1(polar p_s  (+ ang (* pi 0.5)) (/ w 2)))<br />   (setq p2(polar p_s  (- ang (* pi 0.5)) (/ w 2)))<br />   (setq p3(polar p_e  (+ ang (* pi 0.5)) (/ w 2)))<br />   (setq p4(polar p_e  (- ang (* pi 0.5)) (/ w 2)))<br />   (setvar "osmode" 0)<br />   (command "pline" p1 p3 p4 p2 "c")<br />   (setvar "osmode" os)<br />   (print)<br />   )

我是一个LISP初学者，楼上大大们代码写的太好了，不同的思路，很精彩，作为分享，上述代码是我写的，欢迎各种点评

ucuc2003

两位版主鼎力帮助，楼主新年好运气啊！我的求助帖发了n次，也没碰到这好事

编程小白

Gu_xl 发表于 2013-1-9 13:07

版主的程序好是很好，但此程序输入的是矩形的宽边的中点，能不能请版主扩展一下：生成的矩形是固定的宽度，而输入的是矩形的一条长边的两个点，并自动生成一行单行文字，放在此矩形的中间，该文字的一个变量是矩形的长度，另一变量是手动输入值。

蒹葭_Keirll

标记一个，以后学习

xiabin68

很好的学习资料

泉(Ango)

谢谢各位的帮助。谢谢。

xiabin68

Gu_xl 发表于 2013-1-9 13:07

G版你真牛啊，，，好简明的代码，，

USER2128

可惜在三维空间中应用时，未达到预期效果

长风（尚品）

Gu_xl 发表于 2013-1-9 13:07

如果能加个记忆上次输入宽度和指定长度就更完美了

zzc83

确实简单明了，留作学习