提取点坐标

waityou5683

    请问我想提取图中的点坐标，但是一个个点这样用鼠标操作太麻烦了，是不是可以用图元来一次提取点啊。  但是提取点必须是按照图中顺序一列一列这样从左至右从下向上提取，提取完一列提取下一列这样。或者有其他更好的方法啊

Block

x_s_s_1 发表于 2015-7-10 20:42
只选择纵线

(defun deldup        (ptLst alw / pt1)
    (cond ((<= (length ptLst) 1) ptLst)
          (t
           (setq pt1 (car ptLst))
           (cons pt1
                 (vl-remove-if
                   '(lambda (x) (equal pt1 x alw))
                   (deldup (cdr ptLst) alw)
                 )
           )
          )
    )
  )

上面deldup函数内部怎么调用自己？

satan421

Block 发表于 2020-8-12 17:48
上面deldup函数内部怎么调用自己？

递归。计算阶乘的例子：
(defun fact (n / )
  (if (= n 0)
    1
    (* n (fact (1- n)))
  )
)

Block

satan421 发表于 2020-8-13 11:47
递归。计算阶乘的例子：
(defun fact (n / )
  (if (= n 0)

很神奇...也不会死循环啊

fan_zh

上cad图，在cad中问题说明白些，这样有利别人帮你解决问题

x_s_s_1

只选择纵线

2. (vl-load-com)
   
3. (defun c:tt (/ ss lst lst1 m n x y f)
   
4.   (defun x_ssn (ss / n lst)
   
5.     (repeat (setq N (sslength ss))
   
6.       (setq LST (cons (ssname SS (setq N (1- N))) LST))
   
7.     )
   
8.   )
   
9.   (defun deldup        (ptLst alw / pt1)
   
10.     (cond ((<= (length ptLst) 1) ptLst)
    
11.           (t
    
12.            (setq pt1 (car ptLst))
    
13.            (cons pt1
    
14.                  (vl-remove-if
    
15.                    '(lambda (x) (equal pt1 x alw))
    
16.                    (deldup (cdr ptLst) alw)
    
17.                  )
    
18.            )
    
19.           )
    
20.     )
    
21.   )
    
22.   (defun get_dxf (en num /) (cdr (assoc num (entget en))))
    
23.   (setq f (open (getfiled "坐标输出为：" "d:/" "txt" 1) "w"))
    
24.   (prompt "\n仅选择纵向线：")
    
25.   (setq        ss  (ssget)
    
26.         lst (x_ssn ss)
    
27.         lst (vl-sort
    
28.               lst
    
29.               '(lambda (x y) (< (car (get_dxf x 10)) (car (get_dxf y 10))))
    
30.             )
    
31.   )
    
32.   (foreach n lst
    
33.     (setq ss (ssget "f" (list (get_dxf n 10) (get_dxf n 11))))
    
34.     (setq lst1 (x_ssn ss))
    
35.     (setq lst1 (deldup (vl-remove nil
    
36.                                   (mapcar '(lambda (x)
    
37.                                              (vlax-invoke
    
38.                                                (vlax-ename->vla-object n)
    
39.                                                'IntersectWith
    
40.                                                (vlax-ename->vla-object x)
    
41.                                                acExtendNone
    
42.                                              )
    
43.                                            )
    
44.                                           lst1
    
45.                                   )
    
46.                        )
    
47.                        1e-6
    
48.                )
    
49.           lst1 (vl-sort lst1 '(lambda (x y) (< (cadr x) (cadr y))))
    
50.     )
    
51.     (foreach m lst1
    
52.       (write-line
    
53.         (strcat (rtos (car m) 2 3) "," (rtos (cadr m) 2 3))
    
54.         f
    
55.       )
    
56.     )
    
57.     (write-line "下一个" f)
    
58.   )
    
59.   (close f)
    
60.   (princ)
    
61. )
    

(vl-load-com)<br /> (defun c:tt (/ ss lst lst1 m n x y f)<br />   (defun x_ssn (ss / n lst)<br />     (repeat (setq N (sslength ss))<br />       (setq LST (cons (ssname SS (setq N (1- N))) LST))<br />     )<br />   )<br />   (defun deldup        (ptLst alw / pt1)<br />     (cond ((<= (length ptLst) 1) ptLst)<br />           (t<br />            (setq pt1 (car ptLst))<br />            (cons pt1<br />                  (vl-remove-if<br />                    '(lambda (x) (equal pt1 x alw))<br />                    (deldup (cdr ptLst) alw)<br />                  )<br />            )<br />           )<br />     )<br />   )<br />   (defun get_dxf (en num /) (cdr (assoc num (entget en))))<br />   (setq f (open (getfiled "坐标输出为：" "d:/" "txt" 1) "w"))<br />   (prompt "\n仅选择纵向线：")<br />   (setq        ss  (ssget)<br />         lst (x_ssn ss)<br />         lst (vl-sort<br />               lst<br />               '(lambda (x y) (< (car (get_dxf x 10)) (car (get_dxf y 10))))<br />             )<br />   )<br />   (foreach n lst<br />     (setq ss (ssget "f" (list (get_dxf n 10) (get_dxf n 11))))<br />     (setq lst1 (x_ssn ss))<br />     (setq lst1 (deldup (vl-remove nil<br />                                   (mapcar '(lambda (x)<br />                                              (vlax-invoke<br />                                                (vlax-ename->vla-object n)<br />                                                'IntersectWith<br />                                                (vlax-ename->vla-object x)<br />                                                acExtendNone<br />                                              )<br />                                            )<br />                                           lst1<br />                                   )<br />                        )<br />                        1e-6<br />                )<br />           lst1 (vl-sort lst1 '(lambda (x y) (< (cadr x) (cadr y))))<br />     )<br />     (foreach m lst1<br />       (write-line<br />         (strcat (rtos (car m) 2 3) "," (rtos (cadr m) 2 3))<br />         f<br />       )<br />     )<br />     (write-line "下一个" f)<br />   )<br />   (close f)<br />   (princ)<br /> )<br />

waityou5683

x_s_s_1 发表于 2015-7-10 20:42
只选择纵线

是的，就是按竖向线方向提取所有的交点，比如第一列共计13个点提取完提取第二列一次类推这种，直到最后一列提取完毕。。因为不止这一个剖面，还有其他的剖面，所以坐标最好统一，比如像图中那样左下角为坐标原点。。这样每个剖面的基本坐标是一致的，最终提取结束就可以所有剖面的点进行连接了。。

waityou5683

x_s_s_1 发表于 2015-7-10 20:42
只选择纵线

原来是你啊，非常感谢！！你这个是世界坐标是吧

x_s_s_1

waityou5683 发表于 2015-7-13 16:59
原来是你啊，非常感谢！！你这个是世界坐标是吧

是世界坐标系

x_s_s_1

你的问题就是这么提的，均以左下角？

暗夜贵族

获得交点，按x轴排序吗？

xyccf

x_s_s_1 发表于 2015-7-10 20:42
只选择纵线

你好，请问源码中对选择集按照x坐标排列的部分在哪儿啊，我是小白，请多多指教

x_s_s_1

vl-sort那里