Needed solution for " ** Application reference missing: ACAD, to AcDbLinetypeTableRecord."

[arpansark0544TCX]

Dear All,

I am facing the above issues when I am using REFEDIT command on a particular Block.

I have done a little research why this error is coming.

As per by observation this is happening if you block has a leader with Z not equal  to 0.

If we can remove the Z elevation from the Leader then we can solve the problem.

But unfortunately, I cannot remove the Z elevation from the leader.

If you have any solution to this. kindly share.

Thank you very much.

#autocad #Autodesk

[paullimapa]

Have you tried the Flatten command?

[Kent1Cooper]

---

@arpansark0544TCX wrote:

....

If we can remove the Z elevation from the Leader then we can solve the problem.

But unfortunately, I cannot remove the Z elevation from the leader.

....

---

Does that mean you are not able to, somehow [it won't let you change the "Vertex Z" values in Properties in your image], or that you need it to stay at its non-zero elevation for some reason?

[arpansark0544TCX]

YES. I HAVE. TRYIED.

BUT WHEN WE USE FLATTEN ON LEADER IT BREAKS AND CONVERTS INTO POLYLINE.

[arpansark0544TCX]

Yes Sir, " it won't let you change the "Vertex Z" values in Properties in your image"

Is there any Lisp or command to change the "Vertex Z" values.

[paullimapa · Accepted solution]

Try this code:

https://forums.autodesk.com/t5/autocad-forum/changing-multileader-elevations-to-zero/m-p/8533368/hig...

or this mzero.lsp

(defun c:mzero (/ en)
(while (not en)
 (setq en (entsel "\nSelect Object to Move to zero Elevation "))
) ; while
(command "_.MOVE" (car en) "" "@0,0" "@0,0,1E99" "_.MOVE" "_P" "" "@0,0" "@0,0,-1E99")
) ; defun 

http://www.xtracad.com/forum/index.php?topic=5775.0

[arpansark0544TCX]

Thank you very much.

Can i request one thing:

Can we batch move all the leader all at one go. instead of selecting one at a time.

Please.

[paullimapa · Accepted solution]

Ok try this minor revision 

(defun c:mzero (/ ss)
(while (not ss)
 (princ"\nSelect Objects to Move to Zero Elevation...")
 (setq ss (ssget))
) ; while
(command "_.MOVE" ss "" "@0,0" "@0,0,1E99" "_.MOVE" "_P" "" "@0,0" "@0,0,-1E99")
) ; defun