0 Members and 1 Guest are viewing this topic.
(defun c:qa ( )(setq off_lay2 (getvar "clayer"))(command "-Layer" "m" "_temp-offset" "c" "140" "_temp-offset" "")(setq off_lay "_temp-offset")(if ( not e-hi ) (setq e-hi 100 ) ) (setq dist (getint (strcat "\n distance <" (rtos E-hi) ">:"))) (if dist (setq e-hi dist)) (setq ent_set (entsel "\nSelect object to offset: "))(while ent_set(setq ent (car ent_set))(setq p1 (getpoint "\nSide to offset? "))(command "_.offset" dist ent_set p1 "" "")(vlax-put-property (vlax-ename->vla-object (entlast)) 'layer off_lay)(setq ent_set (entsel "\nSelect object to offset or : "))(setvar "clayer" off_lay2)) )
(setq dist (cond ((getdist (strcat "\nEnter Offset Distance [Enter to accept: <" (rtos (setq dist (abs (getvar 'Offsetdist))) 2 2) ">: " ) ) ) (dist) ))
(command "_.offset" "_Layer" "_Current" dist e p1 "" )