Need Help with this lisp routine

[Borgster]

Attached is the lisp code and corresponding DCL code to draw weld symbols using a multileader and included blocks. I will attach the blocks in the same zip file. As you can see, in the dialog box you have the option to draw the weld symbol to the left or the right. Drawing to the right works fine. However, when drawing to the left, the multileader ends up in the middle of the block. I can't figure it out. Any ideas?

[fixo]

Attached is the lisp code and corresponding DCL code to draw weld symbols using a multileader and included blocks. I will attach the blocks in the same zip file. As you can see, in the dialog box you have the option to draw the weld symbol to the left or the right. Drawing to the right works fine. However, when drawing to the left, the multileader ends up in the middle of the block. I can't figure it out. Any ideas?
Mike,
Let me try to explain as I can
Do next
make sure you set system variable MIRRTEXT to 0,
to bypass backwards attributes,
then try to use instead of these lines:

(if (= a_weld "1")
(command ".-insert" "M:/Drawings/JLM Library/wb/STRUCT/WELDS/square"
pt2 w_scale w_scale "180" ""))
next lines:


(if (= a_weld "1")
(progn
(command ".-insert" "M:/Drawings/JLM Library/wb/STRUCT/WELDS/square"
pt2 w_scale w_scale "180" "")
(command "._mirror" "L" "" "_non" pt2 "_non" (mapcar '+ pt2 (list 0. 1. 0.0)) "Y")
)
)

Just shot in the dark, but who knows?

Regards,
Oleg


~'J'~