[求助]：在ucs下entmake线段方向的问题?

NET-JOB

下面的程序，不管是在wcs还是在ucs下，Make-LIN线段都是和wcs对齐，我想要的效果是
1.不管是wcs还是ucs下，Make-LIN线段都和十字光标方向一致
2.不管是wcs还是ucs下，Make-LIN线段都和当前视窗方向一致（横平竖直）
应该如何修改？

(defun shiziLIN ()
  (while (not (setq PT0 (getpoint "\n指定放样基点："))))
  (while (not (setq PT1 (getpoint "\n指定矩形第一点："))))
  (while (not (setq PT3 (getcorner PT1 "\n>>指定对角点："))))
  
  (setq PT0_X (car PT0)) ;_X轴点
  (setq PT0_Y (cadr PT0)) ;_Y轴点
  (setq PT1_X (car PT1))
  (setq PT1_Y (cadr PT1))
  (setq PT3_X (car PT3))
  (setq PT3_Y (cadr PT3))

  (Make-LIN (list PT1_X PT0_Y) (list PT3_X PT0_Y) LA 116) ;_ 水平线
  (Make-LIN (list PT0_X PT1_Y) (list PT0_X PT3_Y) LA 116) ;_ 垂直线
)

(defun Make-LIN (PT1 PT2 LAY COLOR / EN000)
  (setq        EN000 (list
                (cons 0 "LINE")
                (cons 8 LAY)
                (cons 10 PT1)
                (cons 11 PT2)
              ) ;_ 结束list
  ) ;_ 结束setq
  (if (/= -1 COLOR)
    (setq EN000 (append EN000 (list (cons 62 COLOR))))
  ) ;_ 结束if
  (if (= NIL (entmake EN000))
    (princ "\n创建 LINE 失败。")
  ) ;_ 结束if
) ;_ 结束defun

xyp1964

[php](defun c:tt ()
  (defun Make-LIN (p1 p2 LAY COLOR)
    (entmake (list (cons 0 "LINE")
                   (if lay
                     (cons 8 LAY)
                   )
                   (cons 10 p1)
                   (cons 11 p2)
                   (if COLOR
                     (cons 62 COLOR)
                   )
             )
    )
  )
  (while (not (setq p1 (getpoint "\n指定放样基点: "))))
  (while (not (setq p2 (getpoint "\n指定矩形第一点: "))))
  (while (not (setq p3 (getcorner p2 "\n>>指定对角点: "))))
  (setq        x1 (car p1)
        y1 (cadr p1)
        x2 (car p2)
        y2 (cadr p2)
        x3 (car p3)
        y3 (cadr p3)
  )
  (Make-LIN (list x2 y1) (list x3 y1) "LA" 116)
  (Make-LIN (list x1 y2) (list x1 y3) "LA" 116)
  (princ)
)[/php]

NET-JOB

斑竹
怎么就格式化了代码啊，效果还和原来的一样。。

xyp1964

效果：

NET-JOB

看来是我表达有问题，直接上附件，在下面压缩包里面的三种情况下，我要画出的线条分别 1.和屏幕垂直 2.和光标垂直，这两种效果，程序该怎么改？

550066

高手怎么都不见了?

zml84

trans  坐标转换一下即可。