使用相应的i创建一条线

ivanfrancis · 发表于 2022-7-5 16:26:54

您好，我想知道我是否可以在一个lisp文件中使用两个命令，line和dimlinear。我有一个测量线，你设置了两个点，并创建了一条线，这条线的长度是两个点之间的距离的1/3。我想添加尺寸线，该尺寸线将在创建的线上方500个单位。任何帮助都将不胜感激。提前谢谢你。

（定义c:aa（）
（setq po1（getpoint“拾取第一个点：”）
po2（getpoint po1“拾取第二个点：”）
le（/（距离po1 po2）3）
po3（极性po1（角度po1 po2）le））
（entmake（list’（0。“LINE”）（cons 10 po1）（cons 11 po3）））
)