如何自动获取多个子表内的最大值或求差？【已解决】

a117034423

通过entget获得了一下数据，我想提取一下矩形的长宽用于定义
((-1 . <图元名: 7ffff605a40>) (0 . "LWPOLYLINE") (330 . <图元名: 7ffff6039f0>) (5 .
"25C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 500.0) (39 . 0.0) (10 1000.0
1000.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 3000.0 1000.0) (40 . 0.0)
(41 . 0.0) (42 . 0.0) (91 . 0) (10 3000.0 5000.0) (40 . 0.0) (41 . 0.0) (42 .
0.0) (91 . 0) (10 1000.0 5000.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210
0.0 0.0 1.0))
用VL函数求得了 矩形四点的坐标表
(setq mod1 (vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr
x))) (entget (car (entsel))))))
坐标表如下
((1000.0 1000.0) (3000.0 1000.0) (3000.0 5000.0) (1000.0 5000.0))
问题是，如何分别提取出表内X\Y坐标的最大值？
或者直接求出XY 坐标（最大值-最小值）的结果
暂时能想到的是 car cdr 但是如果不是矩形是多边形如何别求边长并定义变量

Lisphk

看你是怎么定义的长宽了

固定下顶点从左下开始，然后前两点长度是长，第二、第三点长度是宽

论坛有现成代码，去开源函数库看看

•   （XD::Polyline:ResetSTartPoint）重设POLYLINE的起始点
  0 个回复 - 457 次查看
  (defun XD::Polyline:ResetSTartPoint (ent pnt / e1 ss typ pl) (if (= (type ent) 'LIST) (progn (setq pl (xdrx_polyline_make ent)) (xdrx_setpropertyvalue pl "closed" t) ...
  2016-10-28 13:53 - Lispboy - 开源函数库
•   (XD::Polyline:ResetFirstVertex)重设LWPOLYLINE或点表的起始点
  0 个回复 - 493 次查看
  
  
  2016-7-27 17:10 - newer - 开源函数库
  
  

(XD::PNTS:MinY->MaxX)点表按Y最小，Y相等情况再按X最大排序

2 个回复 - 945 次查看

2013-10-23 12:39 - XDSoft - 开源函数库

a117034423

Lisphk 发表于 2020-11-26 18:33
看你是怎么定义的长宽了

固定下顶点从左下开始，然后前两点长度是长，第二、第三点长度是宽

代码在这里，大神，现在点计算还有点问题，但是我写的可能是太基础了，麻烦您指导啦

1. (defun c:dss ()
   
2.   (setvar "cmdecho" 0)
   
3.       (setq osm (getvar "osmode"))
   
4.       (setvar "osmode" 0)
   
5.   (princ "<选择要拾取参数的板：>")
   
6.   (setq mod1 (vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr x))) (entget (car (entsel))))))
   
7.   (setq w1 (abs (caar mod1))) ;求点1X坐标
   
8.   (setq w2 (abs (caadr mod1)))
   
9.   (setq w3 (abs (caaddr mod1)))
   
10.   (setq w4 (abs (caar (cdddr mod1))))
    
11.     (setq ww (abs (- (max w1 w2 w3 w4) (min  w1 w2 w3 w4)))) ;求板X向长度
    
12.   (setq l1 (abs (cadar mod1))) ;求点1Y坐标
    
13.   (setq l2 (abs (cadadr mod1)))
    
14.   (setq l3 (abs (cadr (caddr mod1))))
    
15.   (setq l4 (abs (cadr (cadddr mod1))))
    
16.     (setq ll (abs (- (max l1 l2 l3 l4) (min  l1 l2 l3 l4)))) ;求板Y向长度
    
17.   (setq str1 (strcat"板X向长度为：" "<" (rtos ww) ">"))
    
18.   (setq str2 (strcat"板Y向长度为：" "<" (rtos ll) ">"))
    
19.   (print str1)
    
20.   (print str2)
    
21.    (setvar "osmode" osm)
    
22.    (setvar "cmdecho" 1)
    
23.   )

(defun c:dss ()<br />   (setvar "cmdecho" 0)<br />       (setq osm (getvar "osmode"))<br />       (setvar "osmode" 0)<br />   (princ "<选择要拾取参数的板：>")<br />   (setq mod1 (vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr x))) (entget (car (entsel))))))<br />   (setq w1 (abs (caar mod1))) ;求点1X坐标<br />   (setq w2 (abs (caadr mod1)))<br />   (setq w3 (abs (caaddr mod1)))<br />   (setq w4 (abs (caar (cdddr mod1))))<br />     (setq ww (abs (- (max w1 w2 w3 w4) (min  w1 w2 w3 w4)))) ;求板X向长度<br />   (setq l1 (abs (cadar mod1))) ;求点1Y坐标<br />   (setq l2 (abs (cadadr mod1)))<br />   (setq l3 (abs (cadr (caddr mod1))))<br />   (setq l4 (abs (cadr (cadddr mod1))))<br />     (setq ll (abs (- (max l1 l2 l3 l4) (min  l1 l2 l3 l4)))) ;求板Y向长度<br />   (setq str1 (strcat"板X向长度为：" "<" (rtos ww) ">"))<br />   (setq str2 (strcat"板Y向长度为：" "<" (rtos ll) ">"))<br />   (print str1)<br />   (print str2)<br />    (setvar "osmode" osm)<br />    (setvar "cmdecho" 1)<br />   )

dnbcgrass

[code]<blockquote>

dnbcgrass

2. 
   
3. (setq mod1 (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (car (entsel)))))
   
4. (setq ptmin (apply 'mapcar (cons 'min mod1)))
   
5. (setq ptmax (apply 'mapcar (cons 'max mod1)))
   
6. (setq dxy (mapcar '- ptmax ptmin))
   
7. (setq str1 (strcat"板X向长度为：" "<" (rtos (car  dxy)) ">"))
   
8. (setq str2 (strcat"板Y向长度为：" "<" (rtos (cadr dxy)) ">"))

<br /> (setq mod1 (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (car (entsel)))))<br /> (setq ptmin (apply 'mapcar (cons 'min mod1)))<br /> (setq ptmax (apply 'mapcar (cons 'max mod1)))<br /> (setq dxy (mapcar '- ptmax ptmin))<br /> (setq str1 (strcat"板X向长度为：" "<" (rtos (car  dxy)) ">"))<br /> (setq str2 (strcat"板Y向长度为：" "<" (rtos (cadr dxy)) ">"))

aisong220

a117034423

dnbcgrass 发表于 2020-11-26 22:23

谢谢谢谢 这就测试