如何在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.

shicai · 发表于 2002-10-17 05:33:00

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 C

D(/ 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 · 发表于 2002-10-18 08:48:00

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

账号		自动登录	找回密码
密码			注册

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

I suffered this problem for such a long time...

use following vlisp code: (command "leader" pt1 pt2 "" "" "n")

Myleader.lsp

Sorry, that's rubbish, it can be so simple...

It is better now...