社区 › AutoLISP/Visual LISP 编程技术 › [函数]取得多义线顶点表的最短代码

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)))
)

查看完整版本: [函数]取得多义线顶点表的最短代码