输出多段线各段x、y方向增量

kxdm1984@163.co

请问大神们，我要输出一条多段线各段x、y方向的增量，但是要求x方向增量必须是正值，就是说x方向增量如果是负的就取绝对值，正的还是取正的，但y方向正的就是正的负的就是负的，lisp程序该怎么写啊

ll_j

借牢固版主（G版）的代码改一下给你：

2. 
   
3. (setq lst (mapcar
   
4.             '(lambda (x)
   
5.                (cons (abs (car x)) (cdr x))
   
6.              )
   
7.             ((lambda (l)
   
8.                (mapcar
   
9.                  (function
   
10.                    (lambda
    
11.                      (a b)
    
12.                       (mapcar '- b a)
    
13.                    )
    
14.                  )
    
15.                  l
    
16.                  (cdr l)
    
17.                )
    
18.              )
    
19.               (mapcar
    
20.                 'cdr
    
21.                 (vl-remove-if-not
    
22.                   (function
    
23.                     (lambda (x) (= 10 (car x)))
    
24.                   )
    
25.                   (entget (car (entsel "\n选择多段线:")))
    
26.                 )
    
27.               )
    
28.             )
    
29.           )
    
30. )

<br /> (setq lst (mapcar<br />             '(lambda (x)<br />                (cons (abs (car x)) (cdr x))<br />              )<br />             ((lambda (l)<br />                (mapcar<br />                  (function<br />                    (lambda<br />                      (a b)<br />                       (mapcar '- b a)<br />                    )<br />                  )<br />                  l<br />                  (cdr l)<br />                )<br />              )<br />               (mapcar<br />                 'cdr<br />                 (vl-remove-if-not<br />                   (function<br />                     (lambda (x) (= 10 (car x)))<br />                   )<br />                   (entget (car (entsel "\n选择多段线:")))<br />                 )<br />               )<br />             )<br />           )<br /> )

laibinwu

ll_j 发表于 2013-6-8 16:33
借牢固版主（G版）的代码改一下给你：

学习了，看了好久才看懂。:L

laibinwu

ll_j 发表于 2013-6-8 16:33
借牢固版主（G版）的代码改一下给你：

1. ;;;返回多段线的每段直线距离
   
2. (setq lst ((lambda (l)
   
3.              (mapcar 'distance
   
4.                      l
   
5.                      (cdr l)
   
6.              )
   
7.            )
   
8. ;;;获取选择对象（多线段）的各个顶点坐标
   
9.             (mapcar
   
10.               'cdr
    
11.               (vl-remove-if-not
    
12.                 (function
    
13.                   (lambda (x) (= 10 (car x)))
    
14.                 )
    
15.                 (entget (car (entsel "\n选择多段线:")))
    
16.               )
    
17.             )
    
18. ;;;获取选择对象（多线段）的各个顶点坐标
    
19.           )
    
20. )
    

;;;返回多段线的每段直线距离<br /> (setq lst ((lambda (l)<br />              (mapcar 'distance<br />                      l<br />                      (cdr l)<br />              )<br />            )<br /> ;;;获取选择对象（多线段）的各个顶点坐标<br />             (mapcar<br />               'cdr<br />               (vl-remove-if-not<br />                 (function<br />                   (lambda (x) (= 10 (car x)))<br />                 )<br />                 (entget (car (entsel "\n选择多段线:")))<br />               )<br />             )<br /> ;;;获取选择对象（多线段）的各个顶点坐标<br />           )<br /> )<br />

自己改动了一下，哈哈，实现别的功能，多谢源码;P

Free-Lancer

发上来分享啊来自: Android客户端

wowan1314

ll_j 发表于 2013-6-8 16:33
借牢固版主（G版）的代码改一下给你：

'(lambda(x)...)与(function (lambda(x)...))这两在效果上有何区别？

xtdwynij

真牛！好像在看天书一个样！

Free-Lancer

只知道，function 在调试时可以在lambda语句内设置断点，用' 的不能在(lambda ()    )内部语句设置断点，开始需要调试是用(function (lambda() …)，这样可以逐句调试来自: Android客户端

zxq0220

2. ;输出长度到文件 zxq0220 2013.6.9
   
3. (defun c:tt ()
   
4. (setq nm (if (= (type nm) 'STR) nm ""))
   
5. (if (and (setq nm (getfiled "选择保存文件名" nm "txt" 1))
   
6.              (setq ss (ssget '((0 . "LWPOLYLINE"))))) (progn
   
7.   (setq i -1)
   
8.   (repeat (sslength ss)
   
9.    (setq ent (entget(ssname ss (setq i (1+ i)))))
   
10.    (setq plst (list))
    
11.    (foreach x ent (if (= (car x) 10) (setq plst (cons (cdr x) plst))))
    
12.    (setq plst (reverse plst))
    
13.    (setq llst (mapcar
    
14.      '(lambda (a b) (list (abs(- (car b) (car a))) (- (cadr b) (cadr a))))
    
15.      plst (cdr plst)
    
16.     )
    
17.    )
    
18.    (setq fp (open nm (if (findfile nm) "a" "w")))
    
19.    (mapcar
    
20.    '(lambda (x)
    
21.    (princ "X=" fp) (princ (car x) fp)
    
22.    (princ "Y=" fp) (princ (cadr x) fp) (princ "\n" fp)
    
23.    )
    
24.    llst
    
25.   )
    
26.   (princ "\n" fp)
    
27.   (close fp)
    
28. )
    
29. ))
    
30. (princ)
    
31. )
    

;输出长度到文件 zxq0220 2013.6.9<br /> (defun c:tt ()<br /> (setq nm (if (= (type nm) 'STR) nm ""))<br /> (if (and (setq nm (getfiled "选择保存文件名" nm "txt" 1))<br />              (setq ss (ssget '((0 . "LWPOLYLINE"))))) (progn<br />   (setq i -1)<br />   (repeat (sslength ss)<br />    (setq ent (entget(ssname ss (setq i (1+ i)))))<br />    (setq plst (list))<br />    (foreach x ent (if (= (car x) 10) (setq plst (cons (cdr x) plst))))<br />    (setq plst (reverse plst))<br />    (setq llst (mapcar<br />      '(lambda (a b) (list (abs(- (car b) (car a))) (- (cadr b) (cadr a))))<br />      plst (cdr plst)<br />     )<br />    )<br />    (setq fp (open nm (if (findfile nm) "a" "w")))<br />    (mapcar<br />    '(lambda (x)<br />    (princ "X=" fp) (princ (car x) fp)<br />    (princ "Y=" fp) (princ (cadr x) fp) (princ "\n" fp)<br />    )<br />    llst<br />   )<br />   (princ "\n" fp)<br />   (close fp)<br /> )<br /> ))<br /> (princ)<br /> )<br />