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

烟消云_uXWx3 · 发表于 2019-12-20 16:33:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

下载的Lispboy的源码，但是不能使用，新手望好心人帮忙

aisong220 · 发表于 2019-12-22 00:01:33

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。