[求助]：用lisp可以编这样的程序吗？

shenjainht · 发表于 2005-8-25 09:18:18

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

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

×

我对lisp略知，请问可不可以用lisp可以编这样的程序，一长方体截面面积不变，可以在CAD绘图区画任意长度的长方体，就像画直线一样

wxl1981807 · 发表于 2005-8-25 09:29:35

面积不变是什么意思，是截面形状也不变吗

hisum · 发表于 2005-8-25 09:46:35

理论上是完全可以的，没有什么难度，就是你要好好学lisp

zxq0220 · 发表于 2005-8-25 09:46:58

试一下，看能否满足要求。
[php]
;定面积画矩形 zxq0220
(DEFUN C:DRFIXAREA ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(IF (SETQ AA (GETREAL "\nAREA 面积 = "))
  (IF (SETQ PT1 (GETPOINT "\nStart Point 起始点 : "))
(IF (SETQ PT2 (GETPOINT PT1 "\nEnd Point 终止点 : ")) (PROGN
(SETQ DST (DISTANCE PT1 PT2)
      ANG (+ (ANGLE PT1 PT2) (/ PI 2))
      W (/ AA DST)
      PT3 (POLAR PT1 ANG W)
      PT4 (POLAR PT2 ANG W))
(COMMAND "PLINE" PT1 PT3 PT4 PT2 "C")
))
  )
)
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

sdwy19691229 · 发表于 2005-8-25 23:40:48

是可以的,难度不大.

shenjainht · 发表于 2005-8-26 09:34:27

多谢各位网友。另外请问，哪里有更多关于lisp的知识，书店很少。

zxq0220 · 发表于 2005-8-26 12:40:15

1、看帮助；
2、从网上下载电子书；
3、有问题上这儿问。

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

[求助] [求助]：用lisp可以编这样的程序吗？

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

相关帖子