社区 › Auto Lisp › 折线运行程序

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

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

(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")))
)

 
请原谅我对此难以理解哎呀：
 
很抱歉

The Buzzard 发表于 2022-7-6 11:29:30

迈克尔，
 
试着阅读每一条评论，看看发生了什么。
我把它和你的代码混在一起了。
 
9

Michaels 发表于 2022-7-6 11:34:48

 
哇哇。。。。。那只秃鹰太棒了。
 
非常感谢您的宝贵帮助。：）
 
当做

The Buzzard 发表于 2022-7-6 11:35:50

 
 
你现在明白发生了什么吗？

查看完整版本: 折线运行程序