maybe you can add something like...a rotation ?
[color=grey]
.......
(setq bPt (vlax-get obj prop))
(if (setq iPt (inters pt data (polar bPt *tx 1) bPt nil))
(vlax-put Obj prop iPt))[/color]
[color=blue]
(if (and (findfile "AcetUtil.arx") not acet-sys-shift-down)
(arxload (findfile "AcetUtil.arx"))
)
(if (acet-sys-shift-down)
(vla-put-rotation obj (+ (angle pt data) 1.5708))
)
[/color]
[color=grey] ) t)
( (= 2 code)
(cond ( (= 13 data) nil)
( (= 32 data) nil)[/color]
.....