If you have installed Express Tools and command _EXTRIM:
^C^Ccircle nea,int \0.5;_extrim _select _l $M=$(getvar,lastpoint);
Registered forum members do not see this ad.
Hi Group,
I am new to this group and seeking some help.
I have written a macro to create a circle of 2mm nearest and or at intersection of existing lines or polylines, and trim all entities inside that circle.
^c^ccircle nea,int \0.5;trim @0.5<0;;@0.5<180;;erase w @0.707<225;@1.42<45;;
This macro although works to a degree, has some issues of trimming more than one line at a time and more curiously it only works when zoomed in quite close.
I now feel my only option is to learn AutoLisp to solve this, but so far have failed. Can anyone help me with this.
Best Regards
Simon Miller
Cube3 - Creative Product Design
If you have installed Express Tools and command _EXTRIM:
^C^Ccircle nea,int \0.5;_extrim _select _l $M=$(getvar,lastpoint);
This works but you still have to be close in (ASMI's works zoomed out, cool)...
^c^ccircle;int;\0.5;trim;l;;c;@-0.2,-0.2;@0.4,0.4;;erase;w;@1,1;@-2,-2;;
(I'm assuming you want to erase the circle at the end of it?)
edit/ ok try...
^c^ccircle;int;\0.5;zoom;o;l;;trim;l;;c;@-0.2,-0.2;@0.4,0.4;;erase;w;@1,1;@-2,-2;;zoom;p;
edit/ naaa... needs more work.
Last edited by Hedgehog; 11th Sep 2007 at 02:54 pm.


Try it. Your need Express Tools
Code:^C^C_circle;_nea,_int;\0.5;(setq cc (entlast));_extrim;_L;@;_erase;!cc;;
Sorry guys but we do not have Express Tools
Simon
Done it...
^c^ccircle;int;\0.5;(setq cc (entlast));zoom;o;l;;trim;l;;c;@-0.2,-0.2;@0.4,0.4;;erase;!cc;;zoom;p;
Thanks for the setq idea there VVA![]()
Your using 2006, I'm sure you have express tools. You just have to go back to your installation disk and install it. It does not auto install.
No Express needed for my version![]()
Thanks a lot guys. Hedgehog, that last one works a treat and all ive added is the nearest object snap.
Thanks again.
Regards
Simon Miller
Cube3
Registered forum members do not see this ad.
I am using it to generate a DXF file for a laser profiler to follow. I need the 1mm gaps in the lines so that after the profile has been cut the part remains in the sheet and does not fall out when removed from the machine. I will dig out the install CD and look for Express tools. Thanks for the info though
Bookmarks