全部的币都拿出来了！求实现自动TRIM功能！

革天明

请各位将我这个问题解决一下，我在明经交易里悬赏的也是这个问题，由于那个威客还有点问题，钱已扣却没有将任务发布成功，我已和明总站内信了，他正在解决，

Andyhon

目前代码已经能实现图中上面的功能了..分界槽处两根红线之间...

划红线之时收集全数的 x 值 (x1 x2 x3 .... xn)

带入 36# 函式 (fj eePL xxset)

革天明

Andyhon 发表于 2012-4-28 10:19
目前代码已经能实现图中上面的功能了..分界槽处两根红线之间...

划红线之时收集全数的 x 值 (x1 x2 x3 . ...

能将LSP发出来吗，我现在也在写代码，上面这个单独的代码我知道如何用，就是不知道其它的地方，我试试自己能不能写出来吧

革天明

这句我已经写在画线后面了，
(fj nb-entsel
(distance (mpt nb-3p-p1 nb-3p-p2) (mpt nb-3p-p2 nb-3p-p3))
)
X值就是(distance (mpt nb-3p-p1 nb-3p-p2) (mpt nb-3p-p2 nb-3p-p3))
每出现一个分界槽，此X值都会更新一次，但目前只能做到画一个槽的两条线后就停止了，同时还没有将此处的分界槽线截断

Andyhon

目前代码已经能实现...
--------------------------
不是己有代码了吗?
能划红线就能取得 x 值 , 不是吗?

36# 只是后续处理而已

革天明

Andyhon 发表于 2012-4-28 10:58
目前代码已经能实现...
--------------------------
不是己有代码了吗?

我在43#中已经将其赋值了，结果却不正确，你可以下载一个代码和样例dwg，完整的测试一下，其中(distance (mpt nb-3p-p1 nb-3p-p2) (mpt nb-3p-p2 nb-3p-p3))
就是两根红线间的水平距离。39#有代码和样例图

langjs

试试这个,仅适用于2006

Andyhon

36# 只是后续处理而已

假设红线己绘出

后段调试部份
红线选集中取出 x 值

只作了如上的调试

革天明

langjs 发表于 2012-4-28 11:17
试试这个,仅适用于2006

红色是我加上去的，红色部分有一个分界槽没有剪开

Andyhon

调试与结果

Command: (setq xxset (mapcar 'car (get '10 (mapcar 'entget (sslist (ssget))))))

Select objects: Specify opposite corner: 18 found

Select objects:
(2734.42 2735.92 2742.75 2745.25 2752.03 2753.53 2760.3 2761.8 2767.66 2768.61
2774.33 2775.83 2781.73 2784.23 2790.94 2793.94 2802.37 2804.87)

Command: (setq eepl (car (entsel)))

Select object: <Entity name: 7ef99d60>

Command: (fj eepl xxset)
boundary
Specify internal point or [Advanced options]: Selecting everything...
Selecting everything visible...
Analyzing the selected data...

Analyzing internal islands...

Specify internal point or [Advanced options]:
Analyzing internal islands...

Specify internal point or [Advanced options]:
Analyzing internal islands...

Specify internal point or [Advanced options]:
Analyzing internal islands...

Specify internal point or [Advanced options]:
Analyzing internal islands...

Specify internal point or [Advanced options]:
Analyzing internal islands...

Specify internal point or [Advanced options]:
Analyzing internal islands...

Specify internal point or [Advanced options]:
Analyzing internal islands...

Specify internal point or [Advanced options]:
Analyzing internal islands...

Specify internal point or [Advanced options]:
Analyzing internal islands...

Specify internal point or [Advanced options]:
BOUNDARY created 10 polylines
Command: erase
Select objects:   19 found

Select objects:
Command: nil

================================
您是如何调试的?