水吉空 发表于 2017-12-16 14:54:18

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

本帖最后由 水吉空 于 2017-12-17 16:55 编辑

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



xinxirong 发表于 2017-12-16 14:54:19

压箱底的也拿出来了，很多人学了几年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))
          )
   
   )
)

水吉空 发表于 2017-12-17 18:11:34

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

ntwison 发表于 2017-12-17 20:34:39

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

xyp1964 发表于 2017-12-17 21:55:05

(trans pt 0 1)

vectra 发表于 2017-12-18 18:31:22

主要是题目读不懂啊

xinxirong 发表于 2017-12-19 09:45:16

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

水吉空 发表于 2017-12-19 11:29:00

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


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

水吉空 发表于 2017-12-19 11:29:36

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

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

水吉空 发表于 2017-12-19 11:29:59

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

谢谢院长！
页: [1] 2 3
查看完整版本: 悬赏35个明经币，求大神出手Trans函数小实例，在三视图中画矩形！