发个批量插图/图纸后台处理程序[2013.2.5]

为何生 · 发表于 2013-2-26 19:54

哇哈哈，终于可以发帖了。
详见附件。

xiaxiang · 发表于 2013-2-27 09:11

本帖最后由 xiaxiang 于 2013-2-27 09:19 编辑

为何生发表于 2013-2-26 19:54
哇哈哈，终于可以发帖了。
详见附件。

请问图纸中的如下图所示的是神马东东？
是编组吗，用group命令无法分解啊！

估计是这个东西闹的
这样吧，你去掉处理零长度线段的代码，在755行

(and(wcmatch(strcase(vla-get-objectname o))"*LINE")(equal(vlax-curve-getdistatparam o(vlax-curve-getendparam o))0.0 1e-6))

复制代码

将其改为

复制代码

即可

为何生 · 发表于 2013-2-27 17:29

完美运行！
那一个是无名组，Group命令中看不到的吧。

xiaxiang · 发表于 2013-2-27 19:45

为何生发表于 2013-2-27 17:29
完美运行！
那一个是无名组，Group命令中看不到的吧。

哦，是无名编组啊，这里面有零长度线段但又无法删除，所以报错，去掉这个功能就好了。。。

669423907 · 发表于 2013-3-31 16:40

谢谢XX版主

ylzhaosjz · 发表于 2013-4-1 17:12

本帖最后由 ylzhaosjz 于 2013-4-1 17:13 编辑

楼主显示如下出错信息————“请选择插入点,请注意插入点为图纸的左下角<右键只处理图纸，不插入>:
E:\2013\铸造车间\2基础平面图.dwg 参数值错误: AcDbCurve 1579741424”

xiaxiang · 发表于 2013-4-1 19:14

ylzhaosjz 发表于 2013-4-1 17:12
楼主显示如下出错信息————“请选择插入点,请注意插入点为图纸的左下角:
E:\2013\铸造车间\2基础平面图 ...

试试12#的解决方案，应该说的一件事

smartstar · 发表于 2013-4-2 06:39

长长见识！

ylzhaosjz · 发表于 2013-4-2 10:00

xiaxiang 发表于 2013-4-1 19:14
试试12#的解决方案，应该说的一件事

试过了,不行.

xiaxiang · 发表于 2013-4-2 11:19

ylzhaosjz 发表于 2013-4-2 10:00
试过了,不行.

我照12#的方案将代码修改了一下，用你的图纸测试通过,你可以再试一下

账号		自动登录	找回密码
密码			注册