[求助]各位帮帮忙

dnnlog · 发表于 2005-10-24 14:15

;;;2005/10/23
(DEFUN C:dat ()
(setq AUTOP_file(getfiled "打开DAT文件" "c:/*" "dat" 2))
(SETQ FIL (OPEN AUTOP_file "R"))
(SETQ PT1 (GETPOINT "\n请输入起点:"))
(SETQ O 0.5)
(REPEAT 80
    (SETQ LO (ATOF (READ-LINE FIL)))
    (SETQ PT2 (POLAR PT1 (* PI 1.5) 8))
    (COMMAND "PLINE" PT1 "W" LO "" PT2 "")
    (SETQ PT1(POLAR PT1 0 (+ (/ LO 2) O)))
)
)
;;;===结束===

xialiang · 发表于 2005-10-24 15:34

仔细看GETFILED的函数说明!

dnnlog · 发表于 2005-10-24 15:51

我点写只中没办法获得,请各下帮忙改下谢谢！！！？

xialiang · 发表于 2005-10-24 16:21

什么意思?

dnnlog · 发表于 2005-10-25 08:31

我的意思是“ 星 ”如何获得成 DAT

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

[求助]各位帮帮忙

本帖子中包含更多资源

本帖子中包含更多资源