一个旋转图元底边至水平。不能批量，望朋友赐教！

edata

19行 (if (and (= (cdr(assoc 8 en)) "layer1" ) ;图层限制=layer1
(if (and ;(= (cdr(assoc 8 en)) "layer1" ) ;图层限制=layer1
39行 (command "_.ROTATE" ss2 "" pt12-cen (- angint    ) "");
(command "_.ROTATE" ss2 "" pt12-cen (- angint    ) );

lucas_3333

edata 发表于 2014-6-19 16:12
19行 (if (and (= (cdr(assoc 8 en)) "layer1" ) ;图层限制=layer1
(if (and ;(= (cdr(assoc 8 en)) "lay ...

E大，是替换这两行吗？　换了，仍然玩不转

香田里浪人

lucas_3333 发表于 2014-6-19 16:51
E大，是替换这两行吗？　换了，仍然玩不转

是替换这两行即可。

lucas_3333

香田里浪人 发表于 2014-6-20 02:21
是替换这两行即可。

我拿楼主的源图来测试，不行啊　图形没有旋转
*测试环境ＣＡＤ２０１０

1. 点选图元
   
2. Select objects: Specify opposite corner: 3 found
   
3. Select objects:  ; error: bad argument type: 2D/3D point: 0

复制代码

edata

lucas_3333 发表于 2014-6-20 09:24
我拿楼主的源图来测试，不行啊　图形没有旋转
*测试环境ＣＡＤ２０１０

不确定是不是
(vl-load-com)

lucas_3333

edata 发表于 2014-6-20 09:42
不确定是不是
(vl-load-com)

E大，如果是缺少(vl-load-com)也不应该是报这个错

刚刚，添加了(vl-load-com)测试，结果还是一样

edata

Ctrl+shift+R 查看错误跟踪 Error Trace

lucas_3333

edata 发表于 2014-6-20 11:08
Ctrl+shift+R 查看错误跟踪 Error Trace

Ｅ大，我用ＣＡＤ０７测试，工作正常，２０１０的不行，

在２０１０下
LOG Error trace
...............
<1> :ERROR-BREAK
[2] (ANGLE (3603.81 3955.59) 0)
[3] (REPEAT ...)
[4] (C:TT)
<5> :CALLBACK-ENTRY
<6> :ARQ-SUBR-CALLBACK
...............

edata

lucas_3333 发表于 2014-6-20 14:26
Ｅ大，我用ＣＡＤ０７测试，工作正常，２０１０的不行，

在２０１０下

2010(entget(car(entsel)))多段线
对比07(entget(car(entsel)))应该是entget得到的组码表不一样。。
本身该程序存在取巧方式，固定了第一点值的位置entget表不一样的时候得到的点值不正确。
因此该程序仅仅适用于低版本。。。
算法需要重新设计。

lucas_3333

edata 发表于 2014-6-20 15:44
2010(entget(car(entsel)))多段线
对比07(entget(car(entsel)))应该是entget得到的组码表不一样。。
本 ...

谢谢E大，这个例程的作用也不是很大，只支持多段线，像这种我一般用旋转－－参照旋转的方式，只是好奇啦，好啦，不折腾了