acet-ss-drag-move problem

I must have some variable screwed up because this command will not
work.. (not correctly anyway)..

when I use the lisp command (acet-ss-drag-move sset pt1 highlight 0)
and enter in a distance of "10" (with ortho on), the resulting point
(relative to pt1) is NEVER a distance of "10".. i've seen values ranging
from 0.15 -> 9.889 (and only 50% of the time is it in the direction the
cursor was pointing).

I'm at a loss here, this command is what i need.. but I'm hooped so long
as it refuses to work as expected (and as it was designed to work?).

I hope someone can help (or at least duplicate the problem, so I'm not
alone).

 

most don't have 2K5?.. the ones that matter do.. (it has been out for a
while now).

 

Note also that the return value when using DDE depends on the
lastpoint system variable.

 

odd.. when I make use of that var.. the lisp works.. thank you.

 

hmm.. well it work the first time.. damn...


do you know of another method of "showing" the object beging moved?

 

;;By LUCAS (???)
;;(SSDRAG_LAI (ssget) (getpoint "\nBasic point: ") "_.MOVE")
;;Only for "MOVE" command
(defun SSDRAG_LAI (SS PT DRAGCOMMAND / CMDECHO)
(if (and SS
(or (= (type SS) 'PICKSET) (= (type SS) 'ENAME))
PT
(= (type PT) 'list)
)
(progn (setq CMDECHO (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\nSecond point: ")
(command DRAGCOMMAND SS "" PT PAUSE)
(command "_.undo" "1")
(setvar "cmdecho" CMDECHO)
(if (equal PT (getvar "lastpoint"))
NIL
(getvar "lastpoint")
)
)
)
)

 

Why not use the MOVE command?

(prompt "\nSelect objects to move.")
(setq ss (ssget))
(setq p1 (getpoint "\nBase point of move: "))
(command "_.MOVE" ss "" p1 pause)
(if (equal p1 (getvar "lastpoint") 0.0001)
(alert "Objects were not moved")
)

 

I'm adding options and a new functionality to the existing move
command.. and thus any data I feed to the move command must be aquired
prior to calling the command, not during.

 

Well the base point and selection set are acquired before the actual move command.
Only the destination point is acquired during the move command.
If that too is passed to the move command then you will not see the drag.
Could you be more specific as to why the code does not meet your needs?

 

"then you will not see the drag".. that would be why i was trying to use
the acet-ss-drag-move function.. (and if you read the OP, you will see
that it won't work they way it "should").

as to why the code you posted does not meet my "needs" .. you said it
yourself.."the destination point is acquired during the move command"
and that is exactly what i don't want to happen. my code (that i
irrelevant here) acquires this point while allowing the user more
options (inter office stuff) and is then passed to the core move command.

 

Perhaps this is what you are after?

(prompt "\nSelect objects to move.")
(setq ss (ssget))
(setq p1 (getpoint "\nBase point of move: "))
(setq p2 (getpoint p1 "\nDestination point of move: "))
(setq step (/ (distance p1 p2) 20)) ; 20 steps
(repeat 20
(command "_.MOVE" ss "" p1 (setq p1 (polar p1 (angle p1 p2) step)))
(repeat 10 (princ))
)