判断多段线是否有圆弧

ScmTools

判断多段线是否有圆弧(凸度=0)

游客，本帖隐藏的内容需要积分高于 100 才可浏览，您当前积分为 0

kwok

支持一下，回复，学习

cuyongping

学习学习！

Free-Lancer

Lisp 版[pcode=lisp,true](defun chkplarc        (el)
  (not
    (zerop
      (apply '+
             (mapcar 'cdr
                     (vl-remove-if-not '(lambda (x) (= (car x) 42)) el)
             )
      )
    )
  )
)[/pcode]

sachindkini

dear sir,


reply

wangdaobin

非常多谢了！！！！！

yoyoho

感谢分享学习了!

Lisphk

Free-Lancer 发表于 2013-5-9 10:10
Lisp 版(defun chkplarc        (el)
  (not
    (zerop

程序最好把 在哪个顶点开始有圆弧，并且圆弧的信息给得到，最好了。

Free-Lancer

Lisphk 发表于 2013-5-26 12:31
程序最好把 在哪个顶点开始有圆弧，并且圆弧的信息给得到，最好了。

[pcode=lisp,true](defun plarcinfo (el / i lst bl)
  (setq i -1)
  (if (setq
lst (vl-remove
       nil
       (mapcar
  (function
    (lambda (y)
      (setq i (1+ i))
      (if (zerop y)
        nil
        i
      )
    )
  )
  (setq bl
         (mapcar
    'cdr
    (vl-remove-if-not '(lambda (x) (= (car x) 42)) el)
         )
  )
       )
     )
      )
    (mapcar 'cons
     lst
     (mapcar '(lambda (x y)
         (setq e (cdr (assoc -1 el)))
         (list (vlax-curve-getpointatparam e x)
        y
        (vlax-curve-getpointatparam e (1+ x))
         )
       )
      lst
      (vl-remove 0. bl)
     )
    )
  )
)[/pcode]

GTJ116600

判断多段线是否有圆弧，并且得到多段线的圆弧相关信息

q3_2006

还不能看哦，关注！

ScmTools

q3_2006 发表于 2013-6-16 13:14
还不能看哦，关注！

在论坛多发帖，很快你就可以看到代码了

Lispboy

XDRX_API提供了一个函数  xdrx_polyline_HasBulges

Free-Lancer

加深下印象

1. (defun hasbugle (el)
   
2.   (vl-some '(lambda (x) (not (zerop x)))
   
3.     (mapcar 'cdr
   
4.      (vl-remove-if-not el '(lambda (x) (= (car x) 42)))
   
5.     )
   
6.   )
   
7. )
   
8. (defun hasbugle (el)
   
9.   (vl-every 'zerop
   
10.      (mapcar 'cdr
    
11.       (vl-remove-if-not el '(lambda (x) (= (car x) 42)))
    
12.      )
    
13.   )
    
14. )

(defun hasbugle (el)<br />   (vl-some '(lambda (x) (not (zerop x)))<br />     (mapcar 'cdr<br />      (vl-remove-if-not el '(lambda (x) (= (car x) 42)))<br />     )<br />   )<br /> )<br /> (defun hasbugle (el)<br />   (vl-every 'zerop<br />      (mapcar 'cdr<br />       (vl-remove-if-not el '(lambda (x) (= (car x) 42)))<br />      )<br />   )<br /> )

ayl1004

Free-Lancer 发表于 2013-5-9 10:10
Lisp 版(defun chkplarc        (el)
  (not
    (zerop

这好象不对吧，凸度应该有正负的
应该直接用 and