[函数]取得多义线顶点表的最短代码

mkhsj928 · 发表于 2006-6-28 12:14:00

(defun get-pl-ptlst(plent / ptlst)
(setq ptlst (vla-remove-if '(lambda(x) (/= 10 (car x))) (entget plent))
(mapcar 'cdr ptlst)
)

革天明 · 发表于 2012-10-16 08:36:53

本帖最后由革天明于 2012-10-16 08:40 编辑

一个是括号不匹配，一个是没有vla-remove-if这个函数
;;[函数]取得多义线顶点表的最短代码 mkhsj928
;;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=52136
(defun get-pl-ptlst (plent / ptlst)
(vl-load-com)
(setq ptlst (vl-remove-if
'(lambda (x)
   (/= 10 (car x))
   )
(entget plent)
      )
)
(mapcar 'cdr ptlst)
)

casd · 发表于 2018-9-28 11:14:36

(defun get-pl-ptlst (plent / ptlst)
  (setq
ptlst (vl-remove-if '(lambda (x) (/= 10 (car x))) (entget plent))
  )
  (mapcar 'cdr ptlst)

)

纵横八方 · 发表于 2018-9-28 12:01:54

没币了刷激情楼主很牛逼

volutionshh · 发表于 2018-10-18 08:06:10

漂亮！诶嘿嗯好吧佛山的机会工地成本价

fangmin723 · 发表于 2018-10-18 09:18:40

本帖最后由 fangmin723 于 2018-10-18 11:58 编辑

(defun jpg_epts(ent)
(mapcar '(lambda(x) (cdr x)) (vl-remove-if-not '(lambda(x) (= (car x) 10)) (entget ent)))
)

已修改！

szmaicy · 发表于 2018-10-18 11:05:23

本帖最后由 szmaicy 于 2018-10-18 11:07 编辑

(defun jpg_epts(ent)
(vl-remove nil (mapcar '(lambda(x)(if (=(car x)10) (cdr x)))(entget e)))
)

fangmin723 · 发表于 2018-10-18 11:56:29

本帖最后由 fangmin723 于 2018-10-18 11:58 编辑

fangmin723 发表于 2018-10-18 09:18
(defun jpg_epts(ent)
(mapcar '(lambda(x) (cdr x)) (vl-remove-if-not '(lambda(x) (= (car x) 10)) ( ...

你们两个眼神贼精贼精的啊

@自贡黄明儒 @masterlong

masterlong · 发表于 2018-10-18 12:27:45

lambda还是没去掉不符合最短原则

pzweng · 发表于 2018-10-18 12:39:32

masterlong 发表于 2018-10-18 12:27
lambda还是没去掉不符合最短原则

(defun getptlst (en)
(mapcar 'cdr (vl-remove-if ''((x) (/= 10 (car x))) (entget en)))
)

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

[函数]取得多义线顶点表的最短代码

点评

点评