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 ) );
edata 发表于 2014-6-19 16:12 static/image/common/back.gif
19行 (if (and (= (cdr(assoc 8 en)) "layer1" ) ;图层限制=layer1
(if (and ;(= (cdr(assoc 8 en)) "lay ...
E大，是替换这两行吗？ 换了，仍然玩不转
lucas_3333 发表于 2014-6-19 16:51 static/image/common/back.gif
E大，是替换这两行吗？ 换了，仍然玩不转
是替换这两行即可。
本帖最后由 lucas_3333 于 2014-6-20 09:26 编辑
香田里浪人 发表于 2014-6-20 02:21 static/image/common/back.gif
是替换这两行即可。
我拿楼主的源图来测试，不行啊 图形没有旋转
*测试环境ＣＡＤ２０１０点选图元
Select objects: Specify opposite corner: 3 found
Select objects:; error: bad argument type: 2D/3D point: 0
lucas_3333 发表于 2014-6-20 09:24 static/image/common/back.gif
我拿楼主的源图来测试，不行啊 图形没有旋转
*测试环境ＣＡＤ２０１０
不确定是不是
(vl-load-com)
edata 发表于 2014-6-20 09:42 static/image/common/back.gif
不确定是不是
(vl-load-com)
E大，如果是缺少(vl-load-com)也不应该是报这个错
刚刚，添加了(vl-load-com)测试，结果还是一样
Ctrl+shift+R 查看错误跟踪 Error Trace
本帖最后由 lucas_3333 于 2014-6-20 14:33 编辑
edata 发表于 2014-6-20 11:08 static/image/common/back.gif
Ctrl+shift+R 查看错误跟踪 Error Trace
Ｅ大，我用ＣＡＤ０７测试，工作正常，２０１０的不行，
在２０１０下
LOG Error trace
...............
<1> :ERROR-BREAK
(ANGLE (3603.81 3955.59) 0)
(REPEAT ...)
(C:TT)
<5> :CALLBACK-ENTRY
<6> :ARQ-SUBR-CALLBACK
...............
lucas_3333 发表于 2014-6-20 14:26 static/image/common/back.gif
Ｅ大，我用ＣＡＤ０７测试，工作正常，２０１０的不行，
在２０１０下
2010(entget(car(entsel)))多段线
对比07(entget(car(entsel)))应该是entget得到的组码表不一样。。
本身该程序存在取巧方式，固定了第一点值的位置entget表不一样的时候得到的点值不正确。
因此该程序仅仅适用于低版本。。。
算法需要重新设计。
edata 发表于 2014-6-20 15:44 static/image/common/back.gif
2010(entget(car(entsel)))多段线
对比07(entget(car(entsel)))应该是entget得到的组码表不一样。。
本 ...
谢谢E大，这个例程的作用也不是很大，只支持多段线，像这种我一般用旋转－－参照旋转的方式，只是好奇啦，好啦，不折腾了