Error Code

[jyan2000]

Hello, 

Could anyone correct this code ? 

Best Regards

Victor

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:osd2 ( / ss e )
(setq ofd (cond
(setvar "ofd" 74))
)
(if (setq ss (ssget "all"))
(repeat (sslength ss)
(setq e (vlax-ename->vla-object (ssname ss 0)))
(if (vlax-method-applicable-p e 'Offset)
'vla-offset (list e))))(list ofd (- ofd)))
)
(ssdel (ssname ss 0) ss)))
(princ)
)

[Alfred.NESWADBA]

Hi,

please ask questions about LISP code in the LISP-forum (here is the VB/VBA forum).

That's the link to the >>>Lisp Forum<<<.

- alfred -