统计圆的交集次数及填充

eachy

bbswen 发表于 2014-8-31 19:50
感谢信“eachy”的更新，代码简洁，功能明了，不知道“eachy”测试的和发布是否一个版本，
先说下我的电脑 ...

在 CAD 2014 上使用正常，在 2008 上有你说的情况存在，经测试的确是 xdrx_point_isinside 函数造成，取点在第三象限时会有内外判断反了情况，等 API 更新

bbswen

(assoc "area" (xdrx_curve_info x))

请问下，这里取出来的怎么都是科学计数法，cad设置问题还是？

想取出小数类型，该怎么做？

Lisphk

bbswen 发表于 2014-9-1 12:55
(assoc "area" (xdrx_curve_info x))

请问下，这里取出来的怎么都是科学计数法，cad设置问题还是？

试试 rtos 函数

bbswen

这几句不会写了，帮忙看下，
目的，
tjlsp中的表，进行统计，统计的结果给jglsp
表内1 所有1的和 表内2 所有2的和。
例如（1 “12”）（1 “14”） （3 “5”）
结果（1 “26”）（3 “5”）
这个意思

下面是我写的，帮忙看下，
(setq tjlsp '((1 "3168839.548") (1 "3168839.548") (2 "3899743.9225")(2 "3569743.9225")(3 "4399743.9225")))

(setq jglsp (mapcar
            '(lambda (x / ent)
               (setq ent 0)
               (if (or (= jglsp nil) ;;第一步，没有值时，直接给
                 (> (car x) (caar jglsp)));;;第二步，有值，比jglsp表多时，添加表，
                 (setq jglsp (cons x jglsp))

                 (progn                        ;;否则，因为已经排序，两值相等，现表与原表面积相加，给原表。，
                                               ;;;写到这写不下去了。

(setq ent (+ (atof (cadr x)) ent))
                   (subst (list (car x) ent) (assoc (car x) jglsp) jglsp )
                   )
                 )
             )
            tjlsp
          )
)

csharp

看看xd::list:groupbyindex

bbswen

统计写完了，折腾了半天，
            (setq jglsp '())
(mapcar
            '(lambda (x / ent)
               (setq ent 0)
               (if (or (= jglsp nil) ;;第一步，没有值时，直接给
                 (> (car x) (caar jglsp)));;;第二步，有值，比jglsp表多时，添加表，
                 (setq jglsp (cons x jglsp))

                 (progn                        ;;否则，因为已经排序，两值相等，现表与原表面积相加，给原表。，
                   (setq ent (+ (cadr x) (cadar jglsp)))
                   (setq jglsp (subst (list (car x) ent) (car jglsp) jglsp))
                   )
                 )
             )
            tjlsp
          )
不知道写的怎么样，呵呵，目的达到了。:lol

csharp

bbswen 发表于 2014-9-2 13:56
统计写完了，折腾了半天，
            (setq jglsp '())
(mapcar

XD::list:groupbyindex有源码，用于索引值的分类统计，看不懂时学会应用会节省很多时间

bbswen

csharp 发表于 2014-9-2 14:55
XD::list:groupbyindex有源码，用于索引值的分类统计，看不懂时学会应用会节省很多时间

遇到老问题，求帮助
编译时，怎么处理，难道要编译一下程序，再加载下xdrax？
可是我的电脑上加载不了，xdrax的插件，本想编译一下试下可不可以使用，
郁闷ing，
请问现在有解决的办法没有

shaodeng000

不太明白.....