多段线连续画弧（经过第二点）

cafa

本人刚了解一点点LISP，希望做个简单的插件，简化一下绘制圆弧的操作，但是只有本办法，想请教一下高手能否帮我优化一下代码，可以循环的画圆弧。用pline线画圆弧(a)，经过第二点(s)这样得到一个圆弧，绘制下个经过第二点圆弧仍然需要再次输入S，... 于是自己写了这样一个本方法，如下：(defun c:aaa()(command "pline"  (getpoint "\n指定起点：") "a" "s" pause pause "s" pause pause "s" pause pause "s" pause pause "s" pause pause "")))期待高手的指点

start4444

(command "PLINE" pause "a" (while (setq p (getpoint"\n指定圆弧上的第二个点:")) (command "s" "non" p pause)))

cafa

非常感谢

cafa

start4444 发表于 2020-11-15 01:06
(command "LINE" pause "a" (while (setq p (getpoint"\n指定圆弧上的第二个点:")) (command "s" "non" p  ...

非常感谢

paulpipi

swb4420

如果可以动图示范，共享插件会更爽

Wanda

主要想弄个啥

cafa

是否可以实现pline命令后如果画弧则按A并以选择第二的点(也就是S)无限画弧，按L则继续画直线，按C则闭合。主要是想解决原始pline命令若以第二点画弧（S）每画一个弧都要按一次S，想省略总是按S这一环节，期待高手指点