Question

CAD的LSP修改问题

(defun c:az()
(setq x -40)
(setq y -160)
(setq pt1 (list x y))
(vl-cmdf "_.style" "HT" "黑体" "0" "1" "0" "n" "n")
(setq Filename (getvar "DWGNAME"))
(command "text" pt1 3 0 Filename)
(command "zx")
(command "saveas" 2000 (strcat "d:\\" (getvar "dxfname")))
(princ)
)
本意是加完字后输入快捷键zx打散字为线条，然后自动打开另存的窗口，可就是这部有问题，求协助！
另外想手动选取一个点 左中右画3条等距线可以实现吗（线距最好能自己修改或选择）

Answer 1

方法一、
程序只有一小段，不知道做什么用，最好把你要执行的功能说一下
第一行，获取一个坐标点赋值给o
第二行，获取一个坐标点赋值给x
第三行，用使用o与x的值建立坐标系
第四行，打开捕捉端点（1）与圆心（4），相加为5
第五行，获取一个坐标点赋值给d1
第六行，获取一个坐标点赋值给d2
第五、六行可以使用提取直线端点坐标的方式直接获得
方法二、
点一下就可以了（选择这条线），把上面的四个变量的关系说明一下，比如o和d1是同一个点（线起点），x与d2是同一个点（线终点）
我的意思是，你点的四次的位置都是在一条直线的两个端点上，说明一下每个端点对应的是哪个变量，比如第一次点的位置是在直线的起点，第二次是在直线的终点等，就是顺序是怎样的

追问

已经私信，我就是想取一排间距不等，长度不等的约100根横线的对角交叉点，加上文件名移原点