社区 › 源码共享 › 点标记程序不能运行，求好心人帮助

gc666666 发表于 2019-12-20 16:16:48

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

(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 发表于 2019-12-20 16:27:58

本帖最后由 sharetow 于 2019-12-22 16:05 编辑

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

烟盒迷唇 发表于 2019-12-21 09:03:51

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

查看完整版本: 点标记程序不能运行，求好心人帮助