Question

CAD LSP 文件修改

原始命令为:
(setq o (getpoint "\n 输入坐标系原点o: "))
(setq x (getpoint "\n 输入坐标系X正方向x: "))
(command "ucs" "3p" o x "")
(setvar "Osmode" 5)
(setq d1 (getpoint "\n 输入起点d1: "))
(setq d2 (getpoint "\n 输入终点d2: "))
我嫌上面的太复杂，需要在直线上点4下，而这根直线是是同一根，现在想简化一下不知道怎么做，
想实现的是:
在直线上一端点点一下，在另一端点再点一下即可分别赋值d1，d1
哪位
前辈能帮帮忙，因为我不会LSP，属于刚刚接触的层面，上面的也不是我写的，如果可以的话最好还请将每条命令的意思 帮忙解释解释，不胜感激。

Answer 1

点两下：
(setq o (getpoint "\n 输入坐标系原点o: "))
(setq x (getpoint "\n 输入坐标系X正方向x: "))
(command "ucs" "3p" o x "")
(setvar "Osmode" 5)
(setq d1 o)
(setq d2 x)

Answer 2

不是很明白你什么意思

Answer 3

程序只有一小段，不知道做什么用，最好把你要执行的功能说一下
第一行，获取一个坐标点赋值给o
第二行，获取一个坐标点赋值给x
第三行，用使用o与x的值建立坐标系
第四行，打开捕捉端点（1）与圆心（4），相加为5
第五行，获取一个坐标点赋值给d1
第六行，获取一个坐标点赋值给d2
第五、六行可以使用提取直线端点坐标的方式直接获得

追问

谢谢你能回答，这几个命令的意思我已经知道了，但是我想把它简化一下，按照上面的做法我需要点击4下鼠标才行，但我这点的四下其实就是两个点，相当于多点了2下，所以我想简化。

追答

点一下就可以了（选择这条线），把上面的四个变量的关系说明一下，比如o和d1是同一个点（线起点），x与d2是同一个点（线终点）
我的意思是，你点的四次的位置都是在一条直线的两个端点上，说明一下每个端点对应的是哪个变量，比如第一次点的位置是在直线的起点，第二次是在直线的终点等，就是顺序是怎样的