择相同曲线的源码

荒野孤行

功能：挑选相同曲线，通过长度及面积判断。
图片效果如下：


我设计的工具箱插件地址→点击进入

香田里浪人

山寨能否改为不需要e派工具箱？

zmzk

这个程序美中不足：

2. (defun c:xt ()
   
3.   (setvar "blipmode" 0)
   
4.   (setvar "pickfirst" 1)
   
5.   (setvar "expert" 0)  ;禁止显示提示“准备重生成 -- 继续进行?”和“是否确实要关闭当前图层?”
   
6.   (setvar "GRIPOBJLIMIT" 50) ;抑制当初始选择集包含的对象超过特定的数量时夹点的显示
   
7.   (setvar "osmode" 15359)
   
8.   (setvar "qaflags" 0)  
   
9.   (setvar "attmode" 2)
   
10.   (setvar "attreq" 1)
    
11.   (setvar "cmdecho" 0)
    
12. ;以上的参数不知道是哪一个会影响到pselect的命令的有效性，有兴趣的可以试一下。

(defun c:xt ()<br />   (setvar "blipmode" 0)<br />   (setvar "pickfirst" 1)<br />   (setvar "expert" 0)  ;禁止显示提示“准备重生成 -- 继续进行?”和“是否确实要关闭当前图层?”<br />   (setvar "GRIPOBJLIMIT" 50) ;抑制当初始选择集包含的对象超过特定的数量时夹点的显示<br />   (setvar "osmode" 15359)<br />   (setvar "qaflags" 0)  <br />   (setvar "attmode" 2)<br />   (setvar "attreq" 1)<br />   (setvar "cmdecho" 0) <br /> ;以上的参数不知道是哪一个会影响到pselect的命令的有效性，有兴趣的可以试一下。

我想最后将所有相同的线  亮显   选中  状态，就像楼主的gif动图那样，可是不行呢？

纵横八方

面积 和周长相同 的 有很多种情况 好吧  ，解方程 无数个解

cnks

有点意思，支持一下！

xyp1964

;; 山寨一个

2. ;; 选择相同曲线  需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
3. (defun c:tt ()
   
4.   (if (and (setq s1 (car (entsel "\n选择: ")))
   
5.            (xyp-etype s1 "*LINE,ARC,CIRCLE,ELLIPSE")
   
6.       )
   
7.     (progn
   
8.       (redraw s1 3)
   
9.       (setq i        -1
   
10.             ss1 (ssadd)
    
11.             l0        (xyp-CurveLength s1)
    
12.             a0        (xyp-get "area" s1)
    
13.       )
    
14.       (princ "\n选择范围: ")
    
15.       (if (setq ss (ssget (list (cons 0 (xyp-DXF 0 s1)))))
    
16.         (while (setq s1 (ssname ss (setq i (1+ i))))
    
17.           (if (and (= (xyp-CurveLength s1) l0)
    
18.                    (= (xyp-get "area" s1) a0)
    
19.               )
    
20.             (setq ss1 (ssadd s1 ss1))
    
21.           )
    
22.         )
    
23.       )
    
24.     )
    
25.   )
    
26.   (if ss1
    
27.     (sssetfirst ss1 ss1)
    
28.   )
    
29.   (princ)
    
30. )

;; 选择相同曲线  需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> (defun c:tt ()<br />   (if (and (setq s1 (car (entsel "\n选择: ")))<br />            (xyp-etype s1 "*LINE,ARC,CIRCLE,ELLIPSE")<br />       )<br />     (progn<br />       (redraw s1 3)<br />       (setq i        -1<br />             ss1 (ssadd)<br />             l0        (xyp-CurveLength s1)<br />             a0        (xyp-get "area" s1)<br />       )<br />       (princ "\n选择范围: ")<br />       (if (setq ss (ssget (list (cons 0 (xyp-DXF 0 s1)))))<br />         (while (setq s1 (ssname ss (setq i (1+ i))))<br />           (if (and (= (xyp-CurveLength s1) l0)<br />                    (= (xyp-get "area" s1) a0)<br />               )<br />             (setq ss1 (ssadd s1 ss1))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (if ss1<br />     (sssetfirst ss1 ss1)<br />   )<br />   (princ)<br /> )

hao3ren

香田里浪人 发表于 2014-2-8 09:48
山寨能否改为不需要e派工具箱？

呵呵，问院长要函数

szmaicy

上图两个多义线面积和周长都相同

荒野孤行

香田里浪人 发表于 2014-2-8 09:48
山寨能否改为不需要e派工具箱？

我的不需要，直接用就可以了。一个眀经币而已，很好赚的。

香田里浪人

荒野孤行 发表于 2014-2-8 19:15
我的不需要，直接用就可以了。一个眀经币而已，很好赚的。

下载用过，与1964的山寨版相比，还是有些差别。

jxwangjx

支持一下啦

小菜123

源码下来看了一下，算法有问题，测试表明确实不严谨，只针对特定图有点用