 不知如何入手的小伙伴，可以从下面简要说明的思路入手。 1.确定问题。 解决问题，是最简单的入手之法。确定你要解决的问题，然后，对问题有个简要的描述。 2.解决思路。 有了问题，通常我们会有一个简单的思路。就是，从绘图的角度，怎么解决。那么，描述下，自己想要怎么实现。 3.思路代码化。 将思路，具象化为一行行代码行。不要考虑能不能运行，想怎么实现，那么就去找用什么样的函数实现。 4.组合代码行。 将每行代码，按lisp编程要求，组合起来。顺一下，完善成一个完整的lisp插件。 5.调试，搞定。 将组合好的lisp插件，调试，看是否运行良好。 1.确定问题。 绘制一个3000x2000的矩形，并且矩形转角为圆角，圆角半径为300。 2.解决思路。 使用矩形绘制命令，设置圆角半径为300，输入矩形尺寸长3000，宽2000。绘制过程如下图示意。
3.思路代码化。 调用矩形命令rectang的函数是command。 command的使用形式如下： (command 'CAD命令' “命令中选项”变量 “”) 所以，相应的代码行就是： (command 'rectang' 'f' '300' p1 'd' '3000' '2000' '') p1指的是在图纸上指定矩形第一点，所以需要一个获取点的函数，即getpoint，相应的代码行是： (getpoint '\指定矩形第一个角点') 获取的点，需要赋值给变量p1，这样以便于在command命令中调用到，所以相应的代码行是： (setq p1 (getpoint '\提示：指定矩形第一个角点')) 4.组合代码行。 (defun c:jx () (setq p1 (getpoint '\提示：指定矩形第一个角点')) (command 'rectang' 'f' 300 p1 'd' 3000 2000) (prompt '\提示：图纸中单击鼠标确定矩形方向') (prin1))第一行是定义插件名称，也就是所谓的快捷键jx。 第二行是将在图中指定的矩形角点，赋值给变量p1，为了用于command函数的执行。 第三行是输出提示语——提示：图纸中单击鼠标确定矩形方向。 第四行是结束代码运行。 这一步，就是将第3步中的代码行，以lisp语言的规范顺一顺，顺成一个完整的插件。 5.调试，搞定。 加载应用程序，并运行。详见如下动图所示。
具体代码在哪里创建，怎么加载，可参见历史推文。 推文详情可单击跳转，敬请查阅： lisp怎么创建： CAD插件，lisp到底怎么创建？一文带你弄懂！如果你想了解，戳看详情！ CAD lisp编辑器，CAD也有自带的autolisp编辑器，怎么使用？ lisp怎么加载： CAD lisp加载方式合集！CAD插件最便捷的加载方式，全给你汇总好了！小白看了，都能直接上手！ 从小的问题，多编写一些，熟练了函数的运用，再进阶复杂的。慢慢就会熟能生巧了。 “无他，唯手熟尔。” |
|
|
