2013-09-24 明经 AutoLISP 编程②(177027547) 群聊记录：(defun dtr() (* a (/ Pi 180))

明经快报

梅花 14:25:29

(defun dtr()
  (* a (/ i 180))
     )
(defun c:bc1(/ cr r1 n a r2 inc ang 1)
  (graphscr)
  (setvar "cmdecho" 0)
  (setq cr (getpoint " enter center of bolt-circle:"))
  (setq r1 (getdist "  rader of bolt-circle:"))
  (setq n (getint "  number of holes in bolt-circle:"))
  (setq a (getangle "  enter startangle:"))
  (setq r2 (getdist "  enter rader of hole:"))
  (setq inc (/ (* 2 pi) n))
  (setq ang 0)
  (command "circle" cr r1)
  (princ)
  (while (< ang (* 2 pi))
    (setq p1 (polar cr (+ ang inc) (- r1 r2 10)))
    (command "circle" p1 r2)
    (setq ang (+ ang inc))
    )
  (setvar "cmdecho")
  (princ)
  )
          
  ;以上程序加载后提示参数太少，但是图还是画出来了。这是为什么，请高手指点

梅花 14:26:01

[qqimg]201309/{F4C8347D-FCE8-6F8F-A2F6-9373D0177C64}.jpg[/qqimg]

[【KAIXIN】][【KAIXIN】]炫翔 14:27:44

[qqimg]201309/{7BBECF1F-0D62-F434-C129-E6FFE4DA58F2}.jpg[/qqimg]

[【KAIXIN】][【KAIXIN】]炫翔 14:28:43

(defun dtr(a)
  (* a (/ i 180))
)

[hehoubin]Havis&哈维斯 14:32:25

是那里的问题也、、

梅花 14:35:24

谢谢了，

梅花 14:41:23

还是指示参数太少

[zhc2088]南西 14:41:52

现代女孩找男朋友有三点要求：忠诚、性能力和给买苹果5S。遗憾的是，绝大多数情况下这三点根本无法同时满足。一般来说，如果他忠诚并且给你买了苹果5S，那他估计没有性能力；如果他给你买了苹果5S并且有性能力，那他一定不忠诚；如果他既忠诚又有性能力，那毫无疑问丫买不起苹果5S！

[wszxf]郑晓锋 14:46:33

明经快报

[【KAIXIN】][【KAIXIN】]炫翔 15:05:42

[qqimg]201309/{03999869-9C8F-AD73-4363-43A56AAA6A95}.jpg[/qqimg]要学会自己调试

我们都是看一眼 就判断

错误的地方太多

明经快报

[T_T]13郎 17:48:54

1/2]13947904333帮忙扩散，今天上午一个三岁多小女孩在中山市黄圃黄圃怡园小区附近被人拐走了，小女孩能准确说出她爸爸的手机号码，从监控上看是被一个四十多岁男人抱走了，现大人都急疯了，有知情者请告之，万分感谢！看到信息的兄弟姐妹留意一下！联系人郑春蓉13947904333 如果看一眼懒得转的冷漠的人也请求你伸出手指按3秒。 请各位有孩子的家长们一定注意自己的宝宝，帮忙转起外，   
[2/2]也密切注意身边可疑的人或事！

[不死猫][nonsmall]不死猫 17:54:19

[qqimg]201309/{E26A636D-A8B8-FFB7-5A56-09496BBD9B27}.jpg[/qqimg]

[不死猫][nonsmall]不死猫 17:55:12

发善心前先百度  这类信息被利用的太多

[mitenickevin]kevin 17:58:40

T

[T_T]13郎 18:01:41

想不到，那个都利用，只是转发，那人真无聊。

[【KAIXIN】][【KAIXIN】]炫翔 18:02:28

从不转发这玩意

一点意思也没有

[T_T]13郎 18:02:40

这样都玩，这人真无耻

明经快报

[goubeishu][LISP]fine 20:20:54

兄弟们，哪位高手能帮忙调试一下比较复杂的Lisp?

明经快报

[仲文玉][仲文玉]wygjx 20:39:49

太复杂的发论坛吧

[goubeishu][LISP]fine 20:43:00

希望兄弟们帮忙解决