Question

CAD lisp 求助一段代码实现自动画弧！

你好，因我的点数不够及时反应给你，
希望你能帮我解决这个问题
我有很多图块，求助一段代码实现每两个图块插入点间画弧出来，并且能够决定弧的大小，最好画弧的内容在特定图层！

谢谢
p.s
重复性的动作 所以在没有按下esc前 都能持续选择图块画弧
弧线应为poly线

Answer 1

好吧，这个题目可能不太复杂，就帮你下吧。请你讲清楚具体要求：所有块的插入点是在程序执行过程中由你手工临时捕捉吧？画弧的方式是哪一种？每次画弧方式都固定吗？需要半径参数是你在程序执行中等待你的手工输入数据吗？如果是自动决定半径值，它的计算原则（或公式）是什么？画弧的特定图层是什么名称？也是在程序执行中由你临时确定输入吗？最后，还有一个问题：已知两个点（起点和终点），因弯曲方向的不同，可以画出两条弧线来，我估计你只要一条，有没有特定的选择弧线的原则（还是可以弯曲方向随意）？

追问

插入点为 设计图块所设定的插入点 画弧的方式 是当我选择两个图块时 由我用滑鼠点击 指定弧的方向及大小（即所谓三点构成之弧 第一及第二点为图块之插入点第三点为我所指定） 非用键盤输入数值 特定图层名称为临时确定输入 以上!! 万分感谢

追答

好的。请下载附件，这是一个由autolisp语言编制、再经编译生成的.vlx文件，命令名就叫lh，是连接弧的意思。

追问

HI 

前些日子试用後，有以下心得：

1. 会有乱码出现，想请你帮忙修正为英文的。

2. 取消画弧时询问要哪个图层，直接在目前的图层内作弧即可。

3. 可否连续圈选图块 并批次画弧。

4. 画弧时，弧的终点不要露出小尾巴（目前状况要再修正弧的尾巴）。

再麻烦你帮忙修正

追答

　　你好。对于你提出的修改为连接多个块插入点、并要求结束点为最后一个块的插入点的要求，如果仍采用圆弧连接，对于块的总数目为任意数字，又需要“不留尾巴”即三个点（块）组成一组的要求难于满足。而且圆弧的形状可能比较夸张。故推荐舍弃圆弧线，改为采用拟合的样条曲线spline线（即使用spline命令绘制的曲线），各个块的插入点即作为拟合点。
　　采用圆弧线的效果其弯曲度可能较为夸张，如下图中的红色线所示，而采用拟合的样条曲线则较为贴切，如下图中的绿色线所示。图中的多个小菱形即表示各个块图元。
　　不过，有一点需要指出，这样以各个块的插入点为拟合点得到的样条曲线，即使公差设置为0，仍然不能保证绝对地使拟合的样条曲线精准地经过插入点，如果你用zoom命令放大多次后，会发现它与块的插入点之间仍有百分之三以内图形单位的距离。如果你对此不太在意，则可以接受这个方案。同意与否？请给与回复。

追问

先谢谢你的回覆，但没有看到你所上传的示意图片。我能够接受些许的误差。并可以接受由spline所组成的弧。同意你所提的方案。谢谢!

追答

　　看到你的确切的要求后，这两天进行了多种方案的探索。

　　共有四种画法，详见下面的截图。①红线是用arc命令徒手操作画出的圆弧线，它的曲线画得最夸张（圆弧过分张扬），并要求块的个数是3的整倍数，否则就会留出“尾巴”。②绿线是用spline命令徒手画出的B样条曲线，它的画法是事先通过菜单“工具/绘图设置/绘图设置”将捕捉状态修改为只捕捉插入点。它的优点是最不夸张。它的缺点是要较费时，打乱了当前的捕捉设置；此外，曲线没有准确经过插入点。③品红色的曲线是用编制的程序命令逐段画出的pline多段线，后经pedit命令修改为拟合（注意拟合曲线和样条曲线是不同的-原先我说得不够准确）得到的曲线。它的优点是可不干扰当前的捕捉状态、“隐蔽”捕捉插入点，且能准确经过插入点。缺点是个别处仍有夸张现象。④褐色的曲线也是用编制的程序命令逐段画出的pline多段线，后经pedit命令修改为样条曲线得到的B样条曲线。它的缺点是大部分插入点都没被经过。

　　由于你要的是程序编制的命令，因此推荐采用第三种方案。相应的命令取名为ln，连接的拟合线的意思。请下载附件。

 

追问

hi 协请修正，谢谢。

追答

在私信中，我发现你可能不知道如何正确地调入程序命令，以致于无法使用它。下面我做一个介绍。

使用菜单调入应用程序的方法步骤：

1.使用菜单“工具/加载应用程序”，菜单位置如下图所示。

2.在出现的浏览器对话框中，找到ln.vlx文件并选中这个文件，再点击“加载”按钮，这时在下边的左侧，出现“已成功加载ln.vlx”的提示。如下图所示。

点击“关闭”按钮后即可使用ln程序命令了。这个命令的名称也是ln，是连接拟合线的意思。

追问

协请修正，谢谢。

追答

　　根据你选定的以圆弧形式连接，且分为手动逐个拾取块的方式、和框选区域内自动绘制两种方式绘制连接线，且自动绘制时的第一段弧线需要手工介入指点方向的要求，现将编好的程序文件上传给你，请下载。

追问

协请修正，谢谢。

追答

请下载修订版：1.框选时，补将第一段弧也合并起来。2.在框选时，给定两个对角点后显示一个临时的矩形框，回车后即删除掉而继续下去。

追问

协请修正，谢谢。

追答

最后，对提示中的语法进行了修订。请下载附件。