[讨论]画箭头引用线

blueshake

如图所示：

2. (defun C:ar()(setvar "CMDECHO" 0)(setq pt1 (getpoint "\ngive the left point:"))(setq pt2 (getpoint pt1 "\ngive the right point:"))
3. (command "leader" pt1 pt2 "" "" "N" "")(setvar "CMDECHO" 1))

(defun C:ar()(setvar "CMDECHO" 0)(setq pt1 (getpoint "\ngive the left point:"))(setq pt2 (getpoint pt1 "\ngive the right point:")) (command "leader" pt1 pt2 "" "" "N" "")(setvar "CMDECHO" 1))

现在的问题是箭头不能实时显示。请问大侠们要如何修改？？

ZZXXQQ

(command ".LEADER" PAUSE PAUSE "" "" "N")

blueshake

谢谢。我写成这样的代码：

2. (defun C:as()  (command "leader" pause pause "" "" "N" ""))

(defun C:as()  (command "leader" pause pause "" "" "N" ""))

但是cad命令行中提示这个错误。请问是什么原因？？

命令: asleader指定引线起点:指定下一点:指定下一点或 [注释(A)/格式(F)/放弃(U)] <注释>:输入注释文字的第一行或 <选项>: 输入注释选项 [公差(T)/副本(C)/块(B)/无(N)/多行文字(M)] <多行文字>: N命令: AS 未知命令“AS”。按 F1 查看帮助。命令: nil

waterchen

(defun C:at ()
  (command "_.leader" pause pause "" "" "NONE")
)
defun C:XX最好不要重定義CAD的命令,除非有特殊目的。你的多了個“”。