网搜的一个画多段线，未能实现，看不出问题所在，辛苦大侠出手指导

寒潮大冬瓜

;https://wenku.csdn.net/answer/8fcbabc962754a8fadbbc52a3c715421
;
;mline2024-03-23画多段线要使用AutoLISP在AutoCAD中画多段线使用LWPOLYLINE命令CSDN
(defun c:mline2024-03-23 ()
        (setq points '()) ;创建一个空点列表
        (while
                (setq pt (getpoint "\n输入下一个点或「[闭合(C)]: "))
                (setq points (cons pt points ))
                (if (or = 1 "是否闭合多段线?")；→原贴是这个字符串 (if (y-or-n-p "是否闭合多段线? ")
                        (progn
                                (setq points (reverse points ))
                                (setq points (append points (list (car points)))) ;在列表末尾添加第一个点
                                (setq points (reverse points))
                                (setq pline
                                        (entmakex
                                                (list
                                                        (cons 0"LAPOLYLINE")
                                                        (cons 10 (car points));返回表的第一个元紊
                                                        (cons 90 (Length points));以整数形式返回表中元素的数目
                                                        (cons 70 1)(cons 43 0.0)
                                                        (cons 38(getvar 'ltscale));LTSCALE 系统变量用于控制图形中的全局线型比例因子
                                                        (cons 39 0)
                                                        (cons 210 (list 0.0 0.0 1.0)))));创建多段线实体
                                (entmake (list (cons 0 "SEQEND")))) ;添加SEQEND实体
                )
        )
        (princ)
)

xyp1964

瞎胡写……

寒潮大冬瓜

感谢院长指导！我是搜回来的

qazxswk

画多段线，PL命令不香吗？

寒潮大冬瓜

qazxswk 发表于 2024-9-22 04:26
画多段线，PL命令不香吗？

其实我的最终目标是想下一条PL线与上一条不同颜色

437271963

;;绘制多段线
(if (setq p1 (getpoint "\n请选择第一点"))
(progn
  (command "pline")
  (command p1)
  (while (not (zerop (getvar "cmdactive"))) (command pause))
)
)

寒潮大冬瓜

437271963 发表于 2024-9-23 09:08
;;绘制多段线
(if (setq p1 (getpoint "\n请选择第一点"))
(progn

感谢大侠指导！