俩个函数合在一起，求帮助

fkyourmather · 发表于 2013-5-20 11:51:05

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

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

×

(setq la '("CENTER" "DIM" "COOL" "CORE")选取图层表内的线
   ss (ssget (list '(0 . "LINE") (cons 8 (apply 'strcat (mapcar '(lambda (x) (strcat x ",")) la)))))
)
这个统计长度
defun c:cLen (/)
  (vl-load-com)
  (vl-catch-all-apply
(function
   (lambda (/ e el lay ss ssl i len)
(while
(and
   (progn
   (princ
  "\n点选特征曲线[回车退出] ...."
   )
   T
   )
   (setq e (ssget ":S" '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
)
(setq el  (entget (ssname e 0))
lay (assoc 8 el)
)
(princ "\n统计范围.....")
(if (setq
ss (ssget (list lay '(0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
      )
   (progn
      (setq ssl (sslength ss)
   i  -1
   len 0.
      )
      (repeat ssl
(setq e (ssname ss (setq i (1+ i)))
      len (+ len
      (vlax-curve-getdistatparam
e
(vlax-curve-getendparam e)
      )
   )
)
      )
      (princ (strcat "Totle Length = " (vl-princ-to-string len))
      )
   )
)
)
   )
)
  )
  (princ)
)
请问如何降俩个合并在一起，求帮助谢谢

Free-Lancer · 发表于 2013-5-20 11:57:33

(defun c:cLen (/)
(vl-load-com)
(vl-catch-all-apply
(function
(lambda (/ ss ssl i len)
(princ "\n统计范围.....")
(while
(setq
ss (ssget '((0 . "line") '(8 . "CENTER,DIM,COOL,CORE")))
)
(setq ssl (sslength ss)
i -1
len 0.
)
(repeat ssl
(setq e (ssname ss (setq i (1+ i)))
len (+ len
(vlax-curve-getdistatparam
e
(vlax-curve-getendparam e)
)
)
)
)
(princ (strcat "Totle Length = " (vl-princ-to-string len)))
)
)
)
)
(princ)
)

fkyourmather · 发表于 2013-5-20 12:03:18

Free-Lancer 发表于 2013-5-20 11:57

非常感谢有一个函数不明白请帮忙解释下(cons 8 (apply 'strcat (mapcar '(lambda (x) (strcat x ","))
然后我感觉是否可以这样写 (cons 8 (apply 'strcat (mapcar '(lambda (x) (strcat x ",")) = (cons 8 “,")

Free-Lancer · 发表于 2013-5-20 12:05:02

这样用多此一举来自: Android客户端

fkyourmather · 发表于 2013-5-20 12:07:54

Free-Lancer 发表于 2013-5-20 12:05
这样用多此一举

什么意思没有明白？

Lispboy · 发表于 2013-5-20 12:18:50

fkyourmather 发表于 2013-5-20 12:03
非常感谢有一个函数不明白请帮忙解释下(cons 8 (apply 'strcat (mapcar '(lambda (x) (strcat x ","))
...

你得弄明白 apply 和 mapcar 的含义，再决定怎么做

1、apply 是把一个函数添加到一个数据表的头，然后对这个表求值

因为LISP规定表的第一个元素是函数， CDR 是函数的参数，当你的参数数据可能要通过一系列操作才得到后，就是你先计算参数是什么，然后去给一个函数去求值。

比如参数是  '(3 4 5 6 "abc")

那么 (apply 'func '(3 4 5 6 "abc")) 就相当于 (func 3 4 5 6 "abc")

2、mapcar 是提取参数表中的每一个元素做参数，传递给处理的函数，其实是个循环结构，可以用循环结构改写。

比如：def='((1 2)(3 4))
         (mapcar '(lambda(x)(append (cons 1 x) def)) abc)
相当于：
      (setq i 0)
         (repeat (length abc)
            (setq a (nth i abc))
            (setq def (append (cons 1 a) def))
            (setq i (1+ i))
         )
所以，你看看你的问题是否需要那样改写。

fkyourmather · 发表于 2013-5-20 12:33:58

Free-Lancer 发表于 2013-5-20 11:57

TEST 出现点问题了

命令: CLEN
统计范围.....
没有反映

Free-Lancer · 发表于 2013-5-20 12:54:04

8 前面多了 '来自: Android客户端

fkyourmather · 发表于 2013-5-20 12:55:13

Lispboy 发表于 2013-5-20 12:18
你得弄明白 apply 和 mapcar 的含义，再决定怎么做

1、apply 是把一个函数添加到一个数据表的头，然 ...

(mapcar '(lambda(x)(append (cons 1 x) def)) abc)
这句话等于什么我明白mapcar的意思但是整体的就不明白了

Lispboy · 发表于 2013-5-20 13:00:52

fkyourmather 发表于 2013-5-20 12:55
(mapcar '(lambda(x)(append (cons 1 x) def)) abc)
这句话等于什么我明白mapcar的意思但是整体的就不 ...

整体等于什么不在下面用 REPEAT循环给你写了嘛，就等于那个REPEAT过程。

Free-Lancer · 发表于 2013-5-20 13:01:56

通俗讲对abc内每个元素用 lambda 内语句进行一系列处理后，用返回值替换原值来自: Android客户端

fkyourmather · 发表于 2013-5-20 13:31:17

Lispboy 发表于 2013-5-20 12:18
你得弄明白 apply 和 mapcar 的含义，再决定怎么做

1、apply 是把一个函数添加到一个数据表的头，然 ...

当i=0的时候 def= （？）这样我就明白了

fkyourmather · 发表于 2013-5-20 13:40:48

Free-Lancer 发表于 2013-5-20 13:01
通俗讲对abc内每个元素用 lambda 内语句进行一系列处理后，用返回值替换原值

当i=0的时候 def= （？）这样我就明白了

QiaoCheng · 发表于 2013-5-20 14:27:45

vl-catch-all-apply function lambda等对新手很难看的懂
我来个比较好看懂得{:soso_e113:}

(defun c:tt (/ curve tlen ss n i)
(vl-load-com)
(setq i 0)
(princ (strcat "\n请选择线"))
(if (setq ss (ssget (list '(-4 . "<OR") '(8 . "DIM,CORE,COOL,CENTER") '(-4 . "OR>") '(-4 . "<OR") '(0 . "LINE") '(-4 . "OR>"))))
(progn
(setq n 0)
(repeat (sslength ss)
(setq curve (vlax-ename->vla-object (ssname ss n)))
(setq tlen (vlax-curve-getDistAtParam curve (vlax-curve-getEndParam curve)))
(setq i (+ i tlen))
(setq n (1+ n))
)
(print (strcat "总长度: " (rtos i 2 4)))
)
)
(princ)
)

Free-Lancer · 发表于 2013-5-20 15:22:49

QiaoCheng 发表于 2013-5-20 14:27
vl-catch-all-apply function lambda等对新手很难看的懂
我来个比较好看懂得

过滤表中去掉 -4 部分

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

[求助] 俩个函数合在一起，求帮助

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

点评

评分