[求助]：简单的lisp,看谁能帮我看出问题来?

wujinhua3847 · 发表于 2006-6-25 21:29:41

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

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

×

;This program generates a chamfer by entering
;the chamfer angle and the chamfer distance
;
(defun c:chamf(/ d a)
  (setvar"cmdecho"0)
  (graphscr)
  (setq d (getdist "\n Enter chamfer distance:"))
  (setq a (getangle "\n Enter chamfer angle:"))
  (setvar"chamfer" d)
  (setvar"chamferb"(* d(/(sin a)(cos a))))
  (command"chamfer")
  (setvar"cmdecho"1)
  (princ)
)

似水无痕 · 发表于 2006-6-25 23:16:47

没有“chamfer”这个系统变量，更改为“chamfera”

(defun c:chamf (/ d a)
(setvar "cmdecho" 0)
(graphscr)
(setq d (getdist "\n Enter chamfer distance:"))
(setq a (getangle "\n Enter chamfer angle:"))
(setvar "chamfera" d)
(setvar "chamferb" (* d (/ (sin a) (cos a))))
(command "chamfer")
(setvar "cmdecho" 1)
(princ)
)

wujinhua3847 · 发表于 2006-6-26 01:10:02

谢谢您的帮忙,

WHGF · 发表于 2006-6-26 10:24:48

当a=90度时会有计算错误，程序中应考虑!

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

[求助] [求助]：简单的lisp,看谁能帮我看出问题来?

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

相关帖子