寒潮大冬瓜 发表于 2024-9-21 17:16:34

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

本帖最后由 寒潮大冬瓜 于 2024-9-21 18:02 编辑

;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 发表于 2024-9-21 22:57:30

瞎胡写……

寒潮大冬瓜 发表于 2024-9-22 01:00:18

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

qazxswk 发表于 2024-9-22 04:26:29

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

寒潮大冬瓜 发表于 2024-9-22 08:35:31

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

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

437271963 发表于 2024-9-23 09:08:51

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

寒潮大冬瓜 发表于 2024-9-23 21:06:03

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


感谢大侠指导！
页: [1]
查看完整版本: 网搜的一个画多段线，未能实现，看不出问题所在，辛苦大侠出手指导