topic Re: Script Issue in Visual LISP, AutoLISP and General Customization Forum

Script Issue

Anonymous — Thu, 28 Jul 2016 16:37:52 GMT

I am trying to write a Script to join lines and offset them but when I am typing "join" "enter" "all" "enter" is working in command bar but Script is not working when I am running the Script. I wrote with Notepad like Exp. below :

select

all

join

all

"all" is not working in AutoCAD with Script I wrote with Notepad but is working in another CAD program like Micro survey 2016. Can you please tell me why ?

Re: Script Issue

john.vellek — Thu, 28 Jul 2016 16:49:45 GMT

Hi @Anonymous,

Welcome to the Autodesk Community!

Can you give me the exact script (SCR) that you are trying to run? Or, is this a diesel script assigned to a button or key?

I tried your steps at the command line and yes they work fine. I then used the Action Recorder to do the same thing and it seemed to work fine as well.

Re: Script Issue

Anonymous — Thu, 28 Jul 2016 16:55:44 GMT

-LAYER
SET
HOUSE

-LAYER
FREEZE
*

PEDIT
all
y
join
fil
la
house

OFFSET
0.45
l
35981.125,5426.236
35981.125408,5426.236179,0.000000

CHANGE
l

properties
la
overhang

-LAYER
THAW
*
lt
hiddenx2

properties
lt
hiddenx2

EXPLODE
fil
la
house

EXPLODE
fil
la
overhang

_STOPSCRIPT

Re: Script Issue

Anonymous — Thu, 28 Jul 2016 17:00:45 GMT

I am using this Script in Microsurvey 2016 to draw overhang and is working very well but I have tried to use that with AutoCAD 2017 unfortunately didn't work. The problem is selecting option when we are typing "all" is going to say *Invalid selection*.

Re: Script Issue

gdefilo — Thu, 28 Jul 2016 17:11:23 GMT

Hi asarafrazi,

welcome to this Community!

Tell us: what are you trying to do?

Do you know that the "join" command works only with objects with an endpoint in common?

If you try to run the join command on a selection of "all" objects, could not work at all if there's no line (or arc, or polyline...) with an endpoint in common with another line (or arc, or polyline...).

You can obviously try.

I would do like this:

_join;all;;

the semicolon works like an <enter>, so remember not to put an enter at the end of the line.

Hope this helps,

Giancarlo

Re: Script Issue

john.vellek — Thu, 28 Jul 2016 17:02:26 GMT

Hi @Anonymous,

I will take a look to see if I can find a work around. It might be as simple as a Zoom Extents before doing that....I will update my post with my findings.

Re: Script Issue

Anonymous — Thu, 28 Jul 2016 17:08:28 GMT

Hi John, Thank you so much for your help.

This is better Exp.: "all" at the end is not working

-LAYER
SET
HOUSE

-LAYER
FREEZE
*

pedit
all
y
join
all

offset
0.45
all

Re: Script Issue

gdefilo — Thu, 28 Jul 2016 17:16:11 GMT

Of course I answered before you posted your script.

I thought you were working on the "join" command.

I'm glad I could help, anyway.

Now the issue is you can't offset all objects, isn't it?

Well, in AutoCad you can't. Only one object at a time. You have to tell the application which side of the object you want the offset to be put.

Hope this helps,

Giancarlo

Re: Script Issue

Anonymous — Thu, 28 Jul 2016 17:32:26 GMT

g.defilo, Thank you for your reply, The problem is if I want to type in command bar like : Select;all;; then offset; 0.45; 35981.125408,5426.236179; is working but when have tried to type in notepad for script didn't work. I don't know why ?!

Re: Script Issue

john.vellek — Thu, 28 Jul 2016 18:28:37 GMT

Hi @Anonymous,

(SSGET "L") will give you the last element but when you use it with Offset in a script it needs manual input of the side to offset to.

So I used Action Recorder in AutoCAD 2017 to record the steps. It works ok for me but of course does not have any error checking that a LISP routine would include if well written.

The trickiest part is of course the Offset command in the macro. While recording it I used:

Offset

0.45

(SSGET "L")

Then a pick point for the offset side

You can put this macro in your Actions Recording File Location and try to run on your system.

Re: Script for AutoCAD 2017 to join lines and offset them !!!

dmfrazier — Thu, 28 Jul 2016 18:44:10 GMT

I can't answer why it's not working in 2017 - it works fine in 2013 - but I can offer an alternative: instead of the 2nd "All", try "P" for previous.

Re: Script for AutoCAD 2017 to join lines and offset them !!!

Anonymous — Thu, 28 Jul 2016 20:06:02 GMT

Hi, I did with "p" "last" "all" but didn't work...

Re: Script Issue

Anonymous — Thu, 28 Jul 2016 20:07:51 GMT

Thank you so much for your help but didn't work 😞 for me .

Re: Script Issue

gdefilo — Thu, 28 Jul 2016 21:26:19 GMT

Well,

we were here:

-LAYER
SET
HOUSE

-LAYER
FREEZE
*

pedit
all
y
join
(ssget "_X")

offset
0.45
all

The ssget expression should select everything in the drawing.

But still I don't get what to do with the offset sequence. There is a way to male it work but it will only for the first line (or polyline) selected.

Better than a script, build a button macro. All the spaces that represent the <enter> function can be substituted with a semicolon.

So, the whole sequence could be:

-LAYER;SET;HOUSE;FREEZE;*;;PEDIT;ALL;Y;JOIN;(ssget "_X");;;OFFSET;0.45;\35981.125,5426.236;

You notice the backslash after the offset distance? That means that the command must wait for a selection, so you can pick a line or a polyline.

Then it will go on, but it will do only the first offset automatically.

Hope this helps,

Giancarlo

Re: Script Issue

Anonymous — Wed, 03 Aug 2016 14:37:12 GMT

Thank you so much guys. Finally with your help I could write the script I want to use :

-LAYER
SET
HOUSE

-LAYER
FREEZE
*

pedit
all
y
join
(ssget "_X")

offset
0.45
(SSGET "L")
35981.125,5426.236

-layer
thaw
*

explode
(SSGET "L")