blueshake 发表于 2010-9-14 20:36:00

[讨论]画箭头引用线

如图所示：(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 发表于 2010-9-15 00:00:00

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

blueshake 发表于 2010-9-15 07:15:00

谢谢。我写成这样的代码：(defun C:as()(command "leader" pause pause "" "" "N" ""))
但是cad命令行中提示这个错误。请问是什么原因？？命令: asleader指定引线起点:指定下一点:指定下一点或 [注释(A)/格式(F)/放弃(U)] <注释>:输入注释文字的第一行或 <选项>: 输入注释选项 [公差(T)/副本(C)/块(B)/无(N)/多行文字(M)] <多行文字>: N命令: AS 未知命令“AS”。按 F1 查看帮助。命令: nil

waterchen 发表于 2011-1-3 17:35:23

(defun C:at ()
(command "_.leader" pause pause "" "" "NONE")
)
defun C:XX最好不要重定義CAD的命令,除非有特殊目的。你的多了個“”。
页: [1]
查看完整版本: [讨论]画箭头引用线