帮忙看哪里出错了

newbuser

求各位高手指点，关于Y坐标比大小的问题

2. (setq a '(3 4 0))
   
3. (setq b '(1 2 0))
   
4. (apply 'max (mapcar '(lambda (x) (cadr x)) (list a b)))
   
5. 返回 4
   
6. (mapcar '(lambda (x) (max (cadr x))) (list a b))
   
7. 返回 (4 2)
   
8. 我想返回 '(3 4 0)

(setq a '(3 4 0))<br /> (setq b '(1 2 0))<br /> (apply 'max (mapcar '(lambda (x) (cadr x)) (list a b)))<br /> 返回 4<br /> (mapcar '(lambda (x) (max (cadr x))) (list a b))<br /> 返回 (4 2)<br /> 我想返回 '(3 4 0)

抓破头都搞不到一种简单的方法来实现，希望高手指点迷津。

自贡黄明儒

(mapcar '(lambda (x y) (max x y)) a b)

Andyhon

若
(setq b '(5 2 0))
or
(setq b '(5 4 0))

===> ???

newbuser

Andyhon 发表于 2014-12-3 11:29
若
(setq b '(5 2 0))
or

我的目的很简单，就是想判断并获取竖直直线的上部顶点坐标，暂时不会出现Y值相等的类似情况。简化思路还请安迪长老赐教啊。

Andyhon

是许多点取Y值大者;亦或是单纯的坚直线取高点!?

newbuser

Andyhon 发表于 2014-12-3 15:01
是许多点取Y值大者;亦或是单纯的坚直线取高点!?

单纯的一条直线而已。类似的用循环处理。

1. (entmake        (list '(0 . "TEXT")
   
2.                       (cons 1 str-len)
   
3.                       '(10 1000 1000 0)
   
4.                       h1
   
5.                       (cons 72 2)
   
6.                       (cons 50 ang)
   
7.                 )
   
8.        )

复制代码

那么问题又来了，怎么这个生成的文字插入点为0呢？无论是变量，还是定量插入点都为0.

Andyhon

文字得多费心些
ex.

(entmake
'((0 . "TEXT")
  (10 9 6 0.0)
  (40 . 3.0)
  (1 . "Test")
  (50 . 0.0)
))

(entget (entlast)) ====>
((-1 . <Entity name: 7ef7d228>) (0 . "TEXT") (330 . <Entity name: 7ef79cb8>) (5 . "51C")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText")
(10 9.0 6.0 0.0) (40 . 3.0) (1 . "Test")
(50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD")
(71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0)
(100 . "AcDbText") (73 . 0)
)

newbuser

Andyhon 发表于 2014-12-3 15:19
文字得多费心些
ex.

多谢安迪长老的耐心解答和提醒。

Andyhon

Command: (car (vl-sort (list a b) '(lambda (u v) (> (cadr u) (cadr v)))))
(3 4 0)

newbuser

Andyhon 发表于 2014-12-3 19:51
Command: (car (vl-sort (list a b) '(lambda (u v) (> (cadr u) (cadr v)))))
(3 4 0)

遍历论坛终于被安迪长老填补了这个算法的窟窿。多谢了，长老先僧。