DYNAMICALLY CHANGING INPUT VALUES

Anonymous — Mon, 02 Mar 2015 08:40:27 GMT

PLEASE HELP ME TO MAKE THIS CODE CORRECT , I WOULD WORK IN METERS WHILE CHANGING THE INPUT DISTANCE TO CENTIMETERS OR MILIMITERES PLEASE REPLY SOON ! THANKS

(DeFun C:O (/ OF1 ENTITY)
(setvar "cmdecho" 0)
(InitGet (+ 2 4) "Through")
(setq OF1 (getdist (strcat "\nOffset distance or Through <" (If MAN (RToS MAN) "Through") ">: ")))

(cond
;;; (setq OF2 (/ OF1 100))
((eq OF1 "Through")(setq MAN nil)) (OF1(setq MAN OF1)))

(setq OF1 (If MAN "\nSide to offset?" "\nThrough point: "))
(prin1 OF2)

(while
(and
(setq ENTITY (entSel "\nSelect object to offset: "))
(setq PT (getpoint OF1)))

(Command ".OFFSET" (If MAN MAN "T") ENTITY PT ""))
(setvar "cmdecho" 0)
(PrinC))

topic DYNAMICALLY CHANGING INPUT VALUES in Visual LISP, AutoLISP and General Customization Forum

DYNAMICALLY CHANGING INPUT VALUES