[LISP程序]：AUTOLISP&DCL 基础篇的几个例子

sandylin2009 · 发表于 2006-8-22 22:37:57

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

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

×

(defun c:lsp_01()
  (setvar "cmdecho" 0)
  (setq pt1 ( getpoint "\n 选取图形左下角："))
  (setq ww (getdist pt1 "\n 宽度 < 100 >:"))
  (if (null ww) (setq ww 100.0))             ;当宽度未赋值时，定义WW为100
  (setq hh (getdist pt1 "\n 高度 < 50 >:"))
  (if (null hh ) (setq hh 50.0))             ;当高度未赋值时，定义hh为50
  (setq ww3 (/ ww 3 ))
  (setq hh2 (/ hh 2 ))

  ;--------------------------->求得各点坐标
  (setq pt2 ( polar pt1 0 ww ))
  (setq pt3 ( polar pt2 (/ pi 2) hh))
  (setq pt4 ( polar pt3 pi ww3 ))
  (setq pt5 ( polar pt4 (* pi 1.5) hh2))
  (setq pt6 ( polar pt5 pi ww3))
  (setq pt7 ( polar pt6 (/ pi 2) hh2))
  (setq pt8 ( polar pt7 pi ww3))
  (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 "c") ;完成图形
  (prin1)                                                 ;消除执行完成后所返回的nil
  )

egos · 发表于 2006-8-23 09:33:27

怎么没见到对话框呢？

chengfana · 发表于 2006-9-5 00:41:14

再来，支技，支技

feitai · 发表于 2006-9-11 07:16:53

都是高人啊！！不服不行

jthgx · 发表于 2006-9-20 08:04:27

这段程序是干什么的呢?希望楼主解释下

overskin · 发表于 2006-9-24 07:02:28

这段程序是干什么的呢?希望楼主解释下

uyigu · 发表于 2006-9-25 18:33:12

看不懂,楼主能说得在清楚点吗?谢谢

fei8096 · 发表于 2006-10-14 15:31:22

谢谢分享!

于是乎 · 发表于 2006-10-25 18:18:21

看不懂,楼主能说得在清楚点吗?谢谢

mike168168 · 发表于 2006-10-29 09:25:02

给个说明吧，楼主，呵呵，看不懂，谢谢

pangbituo · 发表于 2006-10-29 12:37:59

谢楼主!!

XUFULAI · 发表于 2006-10-30 06:49:27

看不懂,楼主能说得在清楚点吗?谢谢

sunny2649 · 发表于 2006-11-2 21:13:46

都是高人啊！！不服不行

dr.peanut · 发表于 2007-5-20 13:28:44

就是画一条线的！

kaikenzhe · 发表于 2007-6-16 09:03:15

教程有吧

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

[LISP程序]：AUTOLISP&DCL 基础篇的几个例子

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

相关帖子