如何用apply、function、lambda、mapcar函数代替repeat处理选择集？

yx5277 · 发表于 2013-5-28 21:24:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

下面一段代码为处理选择集的一段代码，采用了常规的repeat循环来遍历选择，请教如何用apply、function、lambda、mapcar函数代替repeat来遍历处理选择集？

(if (/= (sslength ssrtl) 0) ;处理选择集
(progn
(setq n 0)
(repeat (sslength ssrtl)
(setq gr-en (ssname ssrtl n)
gr-ent (entget gr-en)
p1-old (cdr (assoc 10 gr-ent))
p2-old (cdr (assoc 11 gr-ent))
p1-n (trans (polar (trans p1-old gr-en 1) (angle gr-pt0 gr-pt) (distance gr-pt0 gr-pt)) 1 0);沿鼠标点方向移动
p2-n (trans (polar (trans p2-old gr-en 1) (angle gr-pt0 gr-pt) (distance gr-pt0 gr-pt)) 1 0);沿鼠标点方向移动
gr-ent (subst (cons 10 p1-n)(assoc 10 gr-ent) gr-ent)
gr-ent (subst (cons 11 p2-n)(assoc 11 gr-ent) gr-ent)
)
(entmod gr-ent)
(setq n (1+ n))
);repeat
)
);if

newer · 发表于 2013-5-28 21:44:58

本帖最后由 newer 于 2013-5-28 21:46 编辑

下午刚发过帖子啊。
http://bbs.xdcad.net/forum.php?m ... 425&pid=3459026

再贴过来吧，做参考。

推荐你先把选择集给转成实体表，然后就可以用那些MAPCAR函数了。

(defun ss2entl (ss / el i len)
(if (= 'PICKSET (type ss))
(progn
(setq i -1
len (sslength ss)
)
(repeat len
(setq el (cons (ssname ss (setq i (1+ i))) el))
)
)
)
el
)

得到选集实体名表后

下面代码生成表中一个实体和在这个实体之后的所有实体的表，避免了同样表两次嵌套循环重复计算

(defun entPair(el)
(mapcar '(lambda(x)(cons x (cdr (member x el)))) el)
)

拿实体位置当实体，就是表 (1 2 3 4 5) ---> ((1 2 3 4 5)(2 3 4 5)(3 4 5)(4 5)(5))

然后你在对上面生成的表用mapcar 算面域。

不知道我表达清楚没，别用嵌套的选择集，别重复计算，多用mapcar,别用WHILE

楼主按这个思路测试下，看看时间。
通过上面的改造表，你把N*N的算法编程了N级的了，而且都是用ACAD的MAPCAR ,CDR这些高效率的处理表的函数。

newer · 发表于 2013-5-28 21:51:50

不是在MAPCAR里面处理选择集，而是先把选择集变成实体名的表，后续用MAPCAR 处理实体表。

newer · 发表于 2013-5-28 21:54:58

这个帖子，LISTBOY的代码，没用一个REPEAT什么的，最后把交点求出来了，你参考下：

http://bbs.xdcad.net/thread-668402-1-1.html

yx5277 · 发表于 2013-5-28 22:30:31

那个帖子写得很好，但针对选择集改如何处理？你的思路挺好的，谢谢:)

newer · 发表于 2013-5-28 22:52:52

yx5277 发表于 2013-5-28 22:30
那个帖子写得很好，但针对选择集改如何处理？你的思路挺好的，谢谢

就是把选择集里面的实体，先放一个表里面。然后以后就变着法的用MAPCAR等处理这个表了。

yx5277 · 发表于 2013-5-28 23:05:12

变着法的用MAPCAR等处理这个表？对于顶楼的代码该如何处理？
另外
(defun entPair(el) (mapcar '(lambda(x)(cons x (cdr (member x el)))) el))
这个函数该什么时候用到？

wowan1314 · 发表于 2013-5-28 23:12:49

mapcar只能处理表结构的参数！一楼要处理的是选择集不是表，这个还得靠循环函数！你把选择集弄成表后！以后的操作就可以mapcar了

newer · 发表于 2013-5-28 23:17:42

yx5277 发表于 2013-5-28 23:05
变着法的用MAPCAR等处理这个表？对于顶楼的代码该如何处理？
另外
(defun entPair(el) (mapcar '(lambda( ...

二楼不是给你一个函数了吗，把选择集转换成实体名构成的表

(defun ss2entl (ss / el i len)
(if (= 'PICKSET (type ss))
(progn
(setq i -1
len (sslength ss)
)
(repeat len
(setq el (cons (ssname ss (setq i (1+ i))) el))
)
)
)
el
)

newer · 发表于 2013-5-28 23:22:03

本帖最后由 newer 于 2013-5-28 23:36 编辑

yx5277 发表于 2013-5-28 23:05
变着法的用MAPCAR等处理这个表？对于顶楼的代码该如何处理？
另外
(defun entPair(el) (mapcar '(lambda( ...

entPair 那是一个应用的例子，需要两层实体循环处理的时候，比如，你的选择集，都是曲线类实体，你想求他们每个实体的所有的交点：

你需要第一层选择集提出一个实体，和第二层循环里面的每个实体求交点，然后第一层第二个实体和第二层所有实体（除去实体1的，因为实体1和实体2的在第一层上面处理过了）在求交点。。。。。

两层循环的地方，用到的，当然可以不必求交点，也可以求别的。

(setq i 0)
(while (setq e (ssname ss i))
(setq i (1+ i))
(setq j i)
(while (setq e1 (ssname ss j))
(setq j (1+ j))
;;e1 e2 进行处理的代码
)
)

用下面的替换：

(defun entPair(el)
(mapcar '(lambda(x)(cons x (cdr (member x el)))) el)
)

就是表 (e1 e2 e3 e4 e5) ---> ((e1 e2 e3 e4 e5)(e2 e3 e4 e5)(e3 e4 e5)(e4 e5)(e5))
原先的选择集两层处理是N*N的，变成上面的表就少很多了，关键是没循环语句，没条件判断，用MAPCAR处理更要快很多。

Free-Lancer · 发表于 2013-5-28 23:42:28

很久以前写的函数，大家测试下还有没有改进空间[pcode=lisp,true];;求直线选择集交点, 不过滤重复点
(defun ln:inters (ss / sl i e pl p intp intps)
  (setq sl (sslength ss)
i  -1
  )
  (repeat sl
(setq e  (ssname ss (setq i (1+ i)))
pl (cons (list (vlax-curve-getstartpoint e)
(vlax-curve-getendpoint e)
   )
   pl
   )
)
  )
  (while pl
(setq p (car pl))
(foreach x (cdr pl)
   (if (setq intp (inters (car p) (cadr p) (car x) (cadr x)))
(setq intps (cons intp intps))
   )
)
(setq pl (cdr pl))
  )
  intps
)[/pcode]
另外一个
[pcode=lisp,true]
;;选择集交点，过滤重复点
(defun SS:inters (ss / ssl pts aobj1 aobj2 n1 n2 ipts a n nn pts1 pt1)
  (setq n1  0
ssl (sslength ss)
  )
  (while (< n1 (1- ssl))
(setq aobj1 (ssname ss n1)
aobj1 (vlax-ename->vla-object aobj1)
n2 (1+ n1)
)
(while (< n2 ssl)
   (setq aobj2 (ssname ss n2)
   aobj2 (vlax-ename->vla-object aobj2)
   ipts  (vla-intersectwith
   aobj1
   aobj2
   0
)
   ipts  (vlax-variant-value ipts)
   )
   (if (> (vlax-safearray-get-u-bound ipts 1) 0)
(progn
(setq ipts
(vlax-safearray->list ipts)
)
(while (> (length ipts) 0)
   (setq pt1 (list (car ipts)
   (cadr ipts)
   (caddr ipts)
      )
   )
   (if pts
   (setq
  pts (cons
      pt1
      (apply 'append
      (mapcar '(lambda (x)
   (if (not (equal x pt1 0.001))
   (list x)
   )
      )
      pts
      )
      )
   )
   )
   (setq pts (list pt1))
   )
   (setq ipts (cdddr ipts))
)
)
   )
   (setq n2 (1+ n2))
)
(setq n1 (1+ n1))
  )
  pts
)[/pcode]

yx5277 · 发表于 2013-5-29 08:54:29

newer 发表于 2013-5-28 22:52
就是把选择集里面的实体，先放一个表里面。然后以后就变着法的用MAPCAR等处理这个表了。

"把选择集里面的实体，先放一个表里面"，这里用到了一个repeat，后面再用MAPCAR来处理，就可以不用repeat了，相当于将一个长的复杂的repeat分解为一个简单的repeat和后面的mapcar?

newer · 发表于 2013-5-29 14:02:05

yx5277 发表于 2013-5-29 08:54
"把选择集里面的实体，先放一个表里面"，这里用到了一个repeat，后面再用MAPCAR来处理，就可以不用repeat ...

对地，因为这个REPEAT里面用的是最短的代码得到选择集的实体数据，把其他在循环里面做的很多代码都拿到后面的MAPCAR处理了。

dyjwyqz5221 · 发表于 2018-4-3 16:23:52

很想学习学习，可是感觉有点难，慢慢理解理解也许就明白了，谢谢各位高手。

dyjwyqz5221 · 发表于 2021-5-22 17:01:23

newer 发表于 2013-5-28 21:44
下午刚发过帖子啊。
http://bbs.xdcad.net/forum.php?mod=redirect&goto=findpost&ptid=668425&pid=345902 ...

代码为什么这么麻烦呢？
这样的效果是相同的。
(mapcar
'(lambda(x)
(member x lst)
)
lst
)

账号		自动登录	找回密码
密码			立即注册

[研讨] 如何用apply、function、lambda、mapcar函数代替repeat处理选择集？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评