本帖最后由 cafa 于 2024-9-25 15:22 编辑

需要一段代码可以做到如下效果，能够输入任意数量的点来绘制多段线。怎么写可以做到？望大佬不吝赐教
(setq pt1 (getpoint))
(setq pt2 (getpoint pt1))
(setq pt3 (getpoint pt2))
(setq pt4 (getpoint pt3))
(setq pt5 (getpoint pt4))
(setq pt6 (getpoint pt5))
...
(command "_.pline" pt1 pt2 pt3 pt4 pt5 pt6 ... "c" "")
...
生成图形






网友答:

网友答: ;;;循环画pline线
(defun plw (/ pt end_f)
  (setq end_f T)
  (setq pt (getpoint))
  (command "._pline" pt "_w" 0 "")
  (while end_f
    (setq pt (getpoint pt))
    (if pt
      (command pt)
      ;;else
      (setq end_f nil)
    )
  )
  (command "")
  (princ)
)

网友答: 本帖最后由 cafa 于 2024-9-25 15:29 编辑

感谢大佬回复。效果不错，感谢感谢

网友答:
熟悉pline命令就可以举一反三，把(command "")改为(command "c")就可以闭合了

网友答:
嗯嗯，微调了一下。

网友答: 本帖最后由 寒潮大冬瓜 于 2024-11-13 01:20 编辑

波总院长指导)FD点取起点坐标后画d多段线每画一条线换一个颜色枯燥的画图变得绚丽多彩(感谢波总院长指导)

;可用于指定变化颜色的色号在255内且尾数不是6789(因为这几个颜色实际上在屏幕里是看不见至少是我看不见)随时间变化生成的自定义函数
(defun lsp20230905();自定义函数开始
        (setq SJ1(menucmd "M=$(edtime,$(getvar,date),SS)"))
        (setq SJ11(atoi SJ1));(atoi x)将字符串转换成整数
        (setq SJ12(* SJ11 0.1));让个位数成为小数点后面的数值
;OS2024捕捉设置
(defun os2024 ()
        (command "viewres" "y" "1000");圆和圆的精度—数值为1000