lisp help to move then offset

[cadd4la]

Hi everyone,

I'm looking to get help getting this program to work. I'm looking for it to move an object by selecting the endpoint, then the endpoint of the destination point, and finally offsetting it by a given distance.

Here is my code so far.

(DEFUN C:ME1/2()(SETVAR "CMDECHO" 0)(setq sset (ssget))(COMMAND "._MOVE" sset "" "ENDPOINT" PAUSE "ENDPOINT")(COMMAND "offset" "0.50")(SETVAR "CMDECHO" 1)(princ))

Thanks,

Cadd4la

[tedg]

I've been messing around with this to no avail, but it did bring up questions.

When you say "move an object" are you talking about a line, or many objects, and/or a block?
Because the SSGET allows multiple object picks, but when you want to "offset" you can't do that to objects other than a line (using the "offset" command).

So the "ssget" and "move" part of your routine works, but the "offset" doesn't, perhaps you need to change that to "move" with some math/coordinates?

Hopefully someone out there can help.

[cadd4la]

Tedg,

Thanks for your help. I mainly want it to use on blocks.

Regards,

[Opie]

Tedg,

Thanks for your help. I mainly want it to use on blocks.

Regards,

How do you offset a block?

[cadd4la]

Opie,

I just use the offset command.

Also, I want it to use on objects like viewports

Cadd4la

[Tom Beauford]

Example for using ssget to behave like an AutoCAD command for selecting a single object.

(setq ss (ssget "+.:E:S" '((0 . "lwpolyline,spline,circle,ellipse"))))
; :E  Everything in aperture
; :S  Force single object selection only
; The "+." puts (ssget) into "point" mode. It helps the ":S"
; single-mode act just like (entsel) by avoiding implied
; selection windows.

Lee Mac's tutorial on ssget function format: http://www.lee-mac.com/ssget.html

[cadd4la]

Example for using ssget to behave like an AutoCAD command for selecting a single object.

(setq ss (ssget "+.:E:S" '((0 . "lwpolyline,spline,circle,ellipse"))))
; :E  Everything in aperture
; :S  Force single object selection only
; The "+." puts (ssget) into "point" mode. It helps the ":S"
; single-mode act just like (entsel) by avoiding implied
; selection windows.

Lee Mac's tutorial on ssget function format: http://www.lee-mac.com/ssget.html

Tom,

Thanks for your input but my lisp skills are basic, I'm looking for someone to fix or rewrite from scratch the code so it will do want I need.

Regards,

[Tom Beauford]

Tom,

Thanks for your input but my lisp skills are basic, I'm looking for someone to fix or rewrite from scratch the code so it will do want I need.

Regards,

Here's a slight modification with variables localized to avoid conflicts with other lisp:

(DEFUN C:ME1/2 (/ sset CMDECHO)
	(SETVAR "CMDECHO" 0)
	(setq sset (ssget "+.:E:S")
	      CMDECHO (GETVAR "CMDECHO"))
	)
	(COMMAND "._MOVE" sset "" "ENDPOINT" PAUSE "ENDPOINT")
	(COMMAND "offset" "0.50")
	(princ)
)

More recent versions need to use COMMAND-S now.

[cadd4la]

Tom,

Thank you for your help unfortunately the code is not working for.

I'm getting this when I load the code

Command: (LOAD "C:/Verde/04-CADCustomFiles/ME1_2.LSP") ._MOVE
Select objects:
Command: U
Command: ENDPOINT Unknown command "ENDPOINT". Press F1 for help.

Cadd4la

[Tom Beauford]

Tom,

Thank you for your help unfortunately the code is not working for.

I'm getting this when I load the code


Cadd4la

I simply added local variables and modified the ssget portion of your code.
Replacing each "ENDPOINT" with "endp" should get you through the move portion of your code at least.

Like Opie I know now way to offset a block or viewport though.

If you explain what you're trying to accomplish instead of steps (that will not work) you will get more helpful replies.