悬赏35个明经币，求大神出手Trans函数小实例，在三视图中画矩形！

水吉空

悬赏35个明经币，求大神出手Trans函数小实例，在三视图中画矩形！就是说程序可以在三视图中同一个位置画一个矩形。主要是坐标系的转换问题。要求：在世界坐标系getpoint两个点画一个矩形，然后手动转到右视图或者其他视图，运行程序getpoint两个点，在该视图画一个矩形!!!

xinxirong

压箱底的也拿出来了，很多人学了几年lisp都没搞懂的坐标系统，通过这个例子应该能知道怎样应用trans函数了吧。简单来说人机关互的就是UCS坐标，vla和entmake entget等函数的是wcs坐标。但二维的多段线除外，二维多段线应该看成是一个块，有法向量。
(defun c:rec1( / )
  (command "ucs" "w")
  (setq dxf210 (getvar 'VIEWDIR))
  (setq pt1 (getpoint)
        pt2 (getcorner pt1)
       
        pt1 (trans pt1 dxf210 0)
        pt2 (trans pt2 dxf210 0)
       
        pt1 (list (car pt1) (cadr pt1));去掉z坐标值
        pt2 (list (car pt2) (cadr pt2));去掉z坐标值
        ptList (list
                pt1
                (list (car pt1) (cadr pt2))
                pt2
                (list (car pt2) (cadr pt1))
                pt1
                )
        )
  (entmakex
   (append  (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length ptList)))
            (mapcar '(lambda ( x )
               (cons 10 x))
                    ptList
                    )
            (list (cons 210 dxf210))
            )
   
   )
  )

水吉空

顶一下，顶一下，顶一下，顶一下，

ntwison

大神可以出手了，好多钱啊

xyp1964

(trans pt 0 1)

vectra

主要是题目读不懂啊

xinxirong

虽然看不懂题目的意思，为了35币，试一下吧：
(defun c:rec1( / )
  (command "ucs" "v")
  (command "rectangle")
  )
切换到任何三维视图后，输入 rec1就可以画长方形。

水吉空

xinxirong 发表于 2017-12-19 09:45
虽然看不懂题目的意思，为了35币，试一下吧：
(defun c:rec1( / )
  (command "ucs" "v")

谢谢大神，主要是想看看trans怎么在转换坐标的。。trans函数的应用这样子。

水吉空

vectra 发表于 2017-12-18 18:31
主要是题目读不懂啊

谢谢大神，主要是想看看trans怎么在转换坐标的。。trans函数的应用这样子。用别的例子也可以。。要用到trans函数。

水吉空

xyp1964 发表于 2017-12-17 21:55
(trans pt 0 1)

谢谢院长！