Question

cad指定中点,长度与方向画直线

cad指定中有没有命令实现指定点,长度与方向画直线？鼠标点击或输入中点、鼠标移动判定方向或输入角度值（像line一样）、输入直线长度或点击（当使用点击输入第二点时两点间距离为长度的一半）。
如果用autolisp开发，怎样获得鼠标方向、怎样将命令添加到工具条上？
有改动
1、默认不用手动输入角度（根据第一个点和鼠标位置决定角度），有一个参数用于手动输入角度（显示“请指定点或[角度(A)/水平(H)/竖直(V)]：”，如果麻烦的话H、V就不用了，但是A应该有）。
2、点下第一个点之后要有预览（就像cad的其他命令一样，鼠标到哪里效果就到哪里，比如画圆命令：鼠标到哪儿就有个圆跟到哪），预览的效果为中点到端点的效果（参照下一条）
3、线的长度应该这样决定，用鼠标点击时长度为两点距离的两倍（也就是指定中点和端点，注意取消line的连续划线---因为这样感觉就好像多了一个line命令一样）；当用手动输入时则长度为输入值。

Answer 1

(defun c:fs ( / p1 a1 l1 )
(if (setq p1 (getpoint "\n请选择直线中点: "))
(if (setq a1 (getangle p1 "\n请输入直线角度: "))
(if (setq l1 (getdist p1 "\n请输入直线长度: "))
(command "_.line" (polar p1 a1 (/ l1 2.0)) (polar p1 a1 (/ l1 -2.0))) "")

)
)
)
)

追问

您的答案非常好，感谢您的回答。
不过我希望有以下改动：
1、默认不用手动输入角度（根据第一个点和鼠标位置决定角度），有一个参数用于手动输入角度。
2、点下第一个点之后要有预览（就像cad的其他命令一样，鼠标到哪里效果就到哪里，比如画圆命令：鼠标到哪儿就有个圆跟到哪）
3、线的长度应该这样决定，用鼠标点击时长度为两点距离的两倍（也就是指定中点和终点）；当用手动输入时则长度为输入值。

追答

我可以加入动态更新的效果，但唯一的不好的就是选了第一个点后无法使用点捕捉

追问

是因为加入动态更新才无法使用捕捉的吗？你把加入了动态更新的程序给我看看吧。

追答

(defun c:fs ( / )
(if (setq p1 (getpoint "\n选择直线的中点: "))
(progn
(initget "S")
(setq kw (getpoint p1 "\n选择直线的一个端点或[输入长度与角度(S)]: "))
(cond
((member kw '("S" "s"))
(if (and (setq ds (getdist p1 "\n输入长度值: ")) (setq an (getangle p1 "\n输入角度值: ")))
(progn
(setq p2 (polar p1 an ds) p3 (polar p1 an (- 0 ds)))
(command "_.line" p2 p3 "")
)
)
)
((= (type kw) 'LIST)
(progn
(setq an (angle kw p1) ds (distance p1 kw) p2 (polar p1 an ds) p3 (polar p1 an (- 0 ds)))
(command "_.line" p2 p3 "")
)
)
)
)
)
)
没用动态更新了，你试下这个。手动输入时则要求输入角度与长度。

追问

已经非常好了，但是还是不太方便，
最好默认：不用输入方向、指定终点或输入长度都被允许。这可能需要判断用户输入的是点还是长度、是拾取点还是输入点，怎样知道当前鼠标指定了什么方向？不知道line是怎么做到的。
动态更新还是有比较好。

Answer 2

在对象捕捉里面可以设置 捕捉 中点 打钩就是了

追问

回答问题的时候请一定仔细看题目

Answer 3

你可以用对象捕捉啊。设置里有

追问

回答问题的时候请一定仔细看题目

Answer 4

用极坐标啊

追问

回答问题的时候请一定仔细看题目