求助求助！！！

st788796

每一行内再分组的函数(没有测试)

1. (defun _prossrow (lst / wid ll)
   
2.     (setq wid 2.5) ;_ 车位宽度
   
3.     (setq lst (mapcar '(lambda (x)
   
4.                          (setq e (cadr x))
   
5.                          (list (xdrx_getpropertyvalue e "Position") e)
   
6.                        )
   
7.                       lst
   
8.               )
   
9.           ll  (list (list (car lst)))
   
10.           lst (cdr lst)
    
11.     )
    
12.     (while lst
    
13.       (if (equal (distance (caar lst) (caar ll)) wid 1e-2)
    
14.         (setq ll (cons (cons (car lst) (car ll)) (cdr ll)))
    
15.         (setq ll (cons (list (car lst)) ll))
    
16.       )
    
17.       (setq lst (cdr lst))
    
18.     )
    
19.     ll
    
20.   )

(defun _prossrow (lst / wid ll)<br />     (setq wid 2.5) ;_ 车位宽度<br />     (setq lst (mapcar '(lambda (x)<br />                          (setq e (cadr x))<br />                          (list (xdrx_getpropertyvalue e "Position") e)<br />                        )<br />                       lst<br />               )<br />           ll  (list (list (car lst)))<br />           lst (cdr lst)<br />     )<br />     (while lst<br />       (if (equal (distance (caar lst) (caar ll)) wid 1e-2)<br />         (setq ll (cons (cons (car lst) (car ll)) (cdr ll)))<br />         (setq ll (cons (list (car lst)) ll))<br />       )<br />       (setq lst (cdr lst))<br />     )<br />     ll<br />   )

19622928

q3_2006 发表于 2014-2-16 10:53
command  改成VL-CMDF

经测试！没用，还是只能运行三次！只有自己重做一个相同功能的！

st788796

19622928 发表于 2014-2-16 17:51
经测试！没用，还是只能运行三次！只有自己重做一个相同功能的！

或许加个延迟就可以，让 CAD 等一等

19622928

st788796 发表于 2014-2-16 18:16
或许加个延迟就可以，让 CAD 等一等

怎么加，什么函数？大师可以详细讲教下么！

q3_2006

st788796 发表于 2014-2-16 17:25
剩下的就是再嵌套两个 Mapcar 处理临近的组
还有就是优化, 每组内只有一个或者两个的时候要 ...

矩阵那段看不懂...返回值都是nil.....不清楚什么情况,大师给点注解呗....{:soso_e110:}

st788796

19622928 发表于 2014-2-16 19:37
怎么加，什么函数？大师可以详细讲教下么！

做个计数，每三次delay 1 秒时间试试

st788796

q3_2006 发表于 2014-2-16 19:59
矩阵那段看不懂...返回值都是nil.....不清楚什么情况,大师给点注解呗....

另开个帖子吧

19622928

st788796 发表于 2014-2-16 20:55
做个计数，每三次delay 1 秒时间试试

经测试，还是不行，依然会弹出原错误！果断放弃！自己写个代码来代替！依然感谢大师指点！

q3_2006

st788796 发表于 2014-2-16 20:56
另开个帖子吧

嘿嘿...G版已经回复解决问题了....抽空研究下代码,希望能搞懂trans...谢谢大师指点,矩阵....还是完全不懂....{:soso_e110:}

st788796

q3_2006 发表于 2014-2-17 12:39
嘿嘿...G版已经回复解决问题了....抽空研究下代码,希望能搞懂trans...谢谢大师指点,矩阵....还是完全不懂 ...

呵呵，把剩下的基本完成，不过奇数部分等分和楼主的意思不一样
http://bbs.xdcad.net/thread-672658-1-1.html

434939575

我也碰到过这样的问题。不记得什么情况了！