折线运行程序

Michaels · 发表于 2022-7-6 11:08:02

在上面的代码plus（mapcar（func…）中附加的目的是什么？

谢谢

Lee Mac · 发表于 2022-7-6 11:11:22

作为一个类似于你第一篇文章的例子，但我倾向于在这个例子中使用mapcar：


(defun c:try ( / p1 p2 p3 p4 )
 (if
   (and
     (setq p1 (getpoint "\nSpecify First Point : "))
     (setq p2 (getpoint "\nSpecify Second Point : "))
     (setq p3 (getpoint "\nSpecify Third Point : "))
     (setq p4 (getpoint "\nSpecify Fourth Point : "))
   )
    (progn
      (entmakex
        (list
          (cons 0 "POLYLINE")
          (cons 10 '(0 0 0))
        )
      )
      (entmakex (list (cons 0 "VERTEX") (cons 10 p1)))
      (entmakex (list (cons 0 "VERTEX") (cons 10 p2)))
      (entmakex (list (cons 0 "VERTEX") (cons 10 p3)))
      (entmakex (list (cons 0 "VERTEX") (cons 10 p4)))
      (entmakex (list (cons 0 "SEQEND")))
    )
 )
 (princ)
)

Lee Mac · 发表于 2022-7-6 11:16:05

^^如前所述。

Michaels · 发表于 2022-7-6 11:17:54

太完美了。但是你说的“sequend”是什么意思？

谢谢

stevesfr · 发表于 2022-7-6 11:21:14

哇，这是一个伟大的教学盛会还是什么！！！
谢谢李
S

Lee Mac · 发表于 2022-7-6 11:23:06

再一次，如前所述^^

说真的，伙计，你不看我的帖子吗？

Michaels · 发表于 2022-7-6 11:28:30

我在多段线方面遇到了困难，其中大多数我都不懂(

copy


(defun Polyline ( lst )
 (entmakex
   (list
     (cons 0 "POLYLINE")
     (cons 10 '(0 0 0))
   )
 )
 (mapcar
   (function
     (lambda ( p )
       (entmake (list (cons 0 "VERTEX") (cons 10 p)))
     )
   )
   lst
 )
 (entmakex (list (cons 0 "SEQEND")))
)