请教，下面的程序如何让宽度不随长度变化？

lxdz443

以下的程序中，现在是宽度随长度变化，需要的是宽度不随长度变化，该怎么修改程序？
源程序：
(Defun C:QLINE        (/ p1 p2 qd a)
  (setvar "cmdecho" 0)
  (command "LAYER" "m" "$QLine" "C" 4 "" "")
  (initget 1)
  (setq p1 (getpoint "\n点取桥绘制的第一点: "))
  (initget 1)
  (setq p2 (getpoint p1 "\n点取桥绘制的第二点: "))
  (setq        qd (getdist "\n桥宽 m<6>: ")
        qd (if qd
             qd
             6
             )
        sc (getvar "userr1")
        )
  (setvar "plinewid" 0)
  (setq d (distance p1 p2))
  (command "PLINE"
           (polar p1 (+ (setq a (angle p1 p2)) (* 0.75 pi)) (* 0.2 d))
           P1
           P2
           (polar p2 (+ a (* 0.25 pi)) (* 0.2 d))
           ""
           "Move"
           (entlast)
           ""
           p1
           (polar p1
                  (+ a (* 0.5 pi))
                  (+ (* 0.707 0.2 d) (* 0.5 qd sc))
                  )
           "MIRROR"
           (entlast)
           ""
           p1
           p2
           "n"
           )
  (setvar "plinewid" 0)
  (setvar "clayer" "0")
  (princ)
  )

ZZXXQQ

2. (defun C:QLINE (/ p1 p2 qd a)
   
3.   (setvar "cmdecho" 0)
   
4.   (command "LAYER" "m" "$$QLine" "C" 4 "" "")
   
5.   (initget 1)
   
6.   (setq p1 (getpoint "\n点取桥绘制的第一点: "))
   
7.   (initget 1)
   
8.   (setq p2 (getpoint p1 "\n点取桥绘制的第二点: "))
   
9.   (setq qd (getdist "\n桥宽 m<6>: ")
   
10.         qd (if qd qd 6)
    
11.         sc (getvar "userr1"))
    
12.   (setvar "plinewid" 0)
    
13.   (setq d (distance p1 p2))
    
14.   (command "PLINE"
    
15.            (polar p1 (+ (setq a (angle p1 p2)) (* 0.75 pi)) (* 0.2 d))
    
16.            P1
    
17.            P2
    
18.            (polar p2 (+ a (* 0.25 pi)) (* 0.2 d))
    
19.            ""
    
20.            "Move"
    
21.            (entlast)
    
22.            ""
    
23.            p1
    
24.            (polar p1 (+ a (* 0.5 pi)) qd)
    
25.            "MIRROR"
    
26.            (entlast)
    
27.            ""
    
28.            p1
    
29.            p2
    
30.            "n"
    
31.            )
    
32.   (setvar "plinewid" 0)
    
33.   (setvar "clayer" "0")
    
34.   (princ)
    
35. )

(defun C:QLINE (/ p1 p2 qd a)<br />   (setvar "cmdecho" 0)<br />   (command "LAYER" "m" "$$QLine" "C" 4 "" "")<br />   (initget 1)<br />   (setq p1 (getpoint "\n点取桥绘制的第一点: "))<br />   (initget 1)<br />   (setq p2 (getpoint p1 "\n点取桥绘制的第二点: "))<br />   (setq qd (getdist "\n桥宽 m<6>: ")<br />         qd (if qd qd 6)<br />         sc (getvar "userr1"))<br />   (setvar "plinewid" 0)<br />   (setq d (distance p1 p2))<br />   (command "PLINE"<br />            (polar p1 (+ (setq a (angle p1 p2)) (* 0.75 pi)) (* 0.2 d))<br />            P1<br />            P2<br />            (polar p2 (+ a (* 0.25 pi)) (* 0.2 d))<br />            ""<br />            "Move"<br />            (entlast)<br />            ""<br />            p1<br />            (polar p1 (+ a (* 0.5 pi)) qd)<br />            "MIRROR"<br />            (entlast)<br />            ""<br />            p1<br />            p2<br />            "n"<br />            )<br />   (setvar "plinewid" 0)<br />   (setvar "clayer" "0")<br />   (princ)<br /> )

lxdz443

谢谢ZZXXQQ，使用ZZXXQQ修改后的程序发现，两边的斜线有点长，比较难看，现给修改成固定的了。
程序如下：
(defun C:QLINE (/ p1 p2 qd a)
  (setvar "cmdecho" 0)
  (command "LAYER" "m" "$$QLine" "C" 4 "" "")
  (initget 1)
  (setq p1 (getpoint "\n点取桥绘制的第一点: "))
  (initget 1)
  (setq p2 (getpoint p1 "\n点取桥绘制的第二点: "))
  (setq qd (getdist "\n桥宽 m<6>: ")
        qd (if qd qd 6)
        sc (getvar "userr1"))
  (setvar "plinewid" 0)
  (setq d (distance p1 p2))
  (command "PLINE"
           (polar p1 (+ (setq a (angle p1 p2)) (* 0.75 pi)) 3)
           P1
           P2
           (polar p2 (+ a (* 0.25 pi)) 3)
           ""
           "Move"
           (entlast)
           ""
           p1
           (polar p1 (+ a (* 0.5 pi)) qd)
           "MIRROR"
           (entlast)
           ""
           p1
           p2
           "n"
           )
  (setvar "plinewid" 0)
  (setvar "clayer" "0")
  (princ)
)