为什么用mapcar画pline线出错？

mmh1 · 发表于 2011-12-25 19:51:28

本帖最后由 mmh1 于 2011-12-25 19:52 编辑

(defun c:e3()
  (setq s1 nil p1 1)
  (while (/= p1 nil)
  (setq p1 (getpoint))
(if (/= p1 nil)
   (setq s1 (cons p1 s1))
   )
)
  (mapcar '(lambda(x)
   (command "pline" x)
   )
s1
)
  )

大虾们帮忙解答下

该贴已经同步到 mmh1的微博

ljpnb · 发表于 2011-12-25 20:14:30

mapcar那句改成如下:
(command "pline")
  (mapcar '(lambda (x)
      (command x)
   )
   s1
  )
(command)

mmh1 · 发表于 2011-12-25 20:30:47

谢谢 ljpnb 大大，

真的没想过用这个样的格式：(command x)

ZZXXQQ · 发表于 2011-12-26 00:00:31

(command "PLINE")
(mapcar 'command s1)
(command "")

mmh1 · 发表于 2011-12-26 16:04:10

谢谢老版了，更加简便了

czcxxx · 发表于 2015-10-22 15:59:17

start4444 · 发表于 2019-4-30 00:56:47

账号		自动登录	找回密码
密码			注册

为什么用mapcar画pline线出错？

相关帖子

点评