多段线标注问题

发福的小瘦子

(defun c:pdim (/ plSet pLlst vLst oldOsn cAng cDis cPt)
  (princ "\n<<< Select LwPolyline for dimensioning >>> ")
  (if (setq plSet (ssget '((0 . "LWPOLYLINE"))))
    (progn
      (setq pLlst (vl-remove-if
                    'listp
                    (mapcar 'cadr (ssnamex plSet))
                  )
      )
      (setvar "OSMODE" 0)
      (setvar "CMDECHO" 0)
      (foreach pl pLlst
        (setq vLst   (mapcar 'cdr
                             (vl-remove-if-not
                               '(lambda (x) (= 10 (car x)))
                               (entget pl)
                             )
                     )
              oldOsn (getvar "OSMODE")
        )                                ; end setq
        (while (< 1 (length vLst))
          (setq        cAng (angle (car vLst) (cadr vLst))
                cDis (/ (distance (car vLst) (cadr vLst)) 2)
                cPt  (polar (polar (car vLst) cAng cDis)
                            (+ cAng (/ pi 2))
                            (* 2 (getvar "DIMTXT"))
                     )
          )                                ; end setq
          (command "_.dimaligned" (car vLst) (cadr vLst) cPt)
          (setq vLst (cdr vLst))
        )                                ; end while
      )                                        ; end foreach
      (setvar "OSMODE" oldOsn)
      (setvar "CMDECHO" 1)
    )                                        ; end progn
  )                                        ; end if
  (princ)
)                                        ; end of c:pdim








这里的'(lambda (x) (= 10 (car x)))是什么意思
还有foreach函数是怎么用的

marting

1. (vl-remove-if-not '(lambda (x)
   
2.                      (= 10 (car x))
   
3.                    ) (entget pl)
   
4. )
   
5. 
   

(vl-remove-if-not '(lambda (x)<br />                      (= 10 (car x))<br />                    ) (entget pl)<br /> )<br /> <br />

这是完整的一个括号，
1、(entget pl) 是个数据表，把表中的 每个元素（子表）做lambda的参数，就是 x 是数据表中的每个元素，
2、判断 子表 的CAR 是否是10，如果不是，删除vl-remove-if-not

结果就是只保留祖玛是10的子表。

下面代码，你自己输入执行，选择LWPOLYLINE，

1. (vl-remove-if-not '(lambda (x)
   
2.                      (= 10 (car x))
   
3.                    ) (entget (car entsel))
   
4. )

(vl-remove-if-not '(lambda (x)<br />                      (= 10 (car x))<br />                    ) (entget (car entsel))<br /> )

看看结果是什么。

yangjian001

多段线标注问题