一个entmakex用于多个点

Sweety · 发表于 2022-7-6 10:19:51

大家好。

如何使用一个Entmakex为多个点绘制线。。。
实例


(if (and (setq p1 (getpoint "\n Specify first Point :"))
 (setq p2 (getpoint "\n Specify second point :"))
 (setq p3 (getpoint "\n Specify third point :"))
 (setq p4 (getpoint "\n Specify forth point :"))
 )
 (entmakex (list (cons 0 "LINE")
          (cons 10 p1)
          (cons 11 p2)
        [color="red"]  ;(cons 10 p2)
          ;(cons 11 p3)
          ;(cons 10 p3)
          ;(cons 11 p4)[/color]
          )
    )
 )

或者我应该重复同一个entmakex三次来画这些线吗？

感谢您提前提供的帮助。

VVA · 发表于 2022-7-6 10:35:41

copy


(setq i   0
     lst nil
) ;_ end of setq
(while (setq
        pt (getpoint
             (strcat "\n Specify point № " (itoa (setq i (1+ i))) " : ")
           ) ;_ end of getpoint
      ) ;_ end of setq
 (setq lst (cons pt lst))
) ;_ end of while
(mapcar '(lambda (p1 p2)
          (entmakex (list (cons 0 "LINE")
                          (cons 10 p1)
                          (cons 11 p2)
                    ) ;_ end of list
          ) ;_ end of entmakex
        ) ;_ end of lambda
       lst
       (cdr lst)
) ;_ end of mapcar