如何在vlisp实现Qleader->Setting->Annotation->None?

shicai

如何用vlisp实现Qleader->Setting->Annotation->None?

alin

there must be a variable to control this, but I can't find it. So I write another routine to replace it although it is not as good as the original one.

shicai

alin

if the number of points you request are more than 3, you have to modified the code.

alin

(Defun CD(/ p1 p2 p3)
         (setq ortho (getvar "ORTHOMODE"))
         (setvar "ORTHOMODE" 0)
         (setq p1 (getpoint "\nFirst Point:"))
         (setq p2 (getpoint p1 "\nSecond Point: "))
         (grdraw p1 p2 7)
         (setvar "ORTHOMODE" 1)
         (setq p3 (getpoint p2 "\nNext Point: "))
           (cond ((/= p3 nil)
                 (VL-CmdF "leader" p1 p2 p3 "" "" "n"))
               ((= p3 nil)
                (VL-CmdF "leader" p1 p2 "" "" "n"))
           );cond
         (VL-CmdF "redraw")
        (setvar "ORTHOMODE" ortho)
       (princ)
);

alin

(defun C:MLD()
  (command "leader" pause pause pause "" "" "n"); for 3 points
  (princ)
)