点标记程序不能运行，求好心人帮助

gc666666

(defun c:tt(p col / p1 p2 p3 p4)
  (grvecs
    (list col
          (polar p (/ pi 4) (* (getvar "viewsize") 0.05))
          (polar p (* pi 1.25) (* (getvar "viewsize") 0.05))
          col
          (polar p (* pi 0.75) (* (getvar "viewsize") 0.05))
          (polar p (* pi -0.25) (* (getvar "viewsize") 0.05))
          col
          (setq p1 (polar p (* pi 0.75) (* (getvar "viewsize") 0.025)))
          (setq p2 (polar p (/ pi 4) (* (getvar "viewsize") 0.025)))
          col
          p2
          (setq p3 (polar p (* pi -0.25) (* (getvar "viewsize") 0.025)))
          col
          p3
          (setq p4 (polar p (* pi 1.25) (* (getvar "viewsize") 0.025)))
          col
          p4
          p1
    )
  )
  t
)
显示        命令: TT ; 错误: 参数太少
谢谢！

sharetow

  (XD:nt:Mark p col)  （defun xd:nt:mark(p col / ...)
...
...
)
这个自定义函数需要这样用
grvecs 语法是  (grvecs vlist [trans])
表是  list（颜色、点位、点位； 颜色、点位点位；......)

烟盒迷唇

p col这两个参数不能是这样的