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

shicai · 发表于 2002-10-15 11:28:00

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

alin · 发表于 2002-10-16 11:09:00

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.

alin · 发表于 2002-10-17 08:24:00

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

alin · 发表于 2002-10-17 08:41:00

(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)
);