请大师们帮我运行程序，小妹不知道怎么办？！！

jiaobinhong · 发表于 2006-5-29 21:08

主程序为：
(dufun
  c:load_lm
  (/dcl_id)
  (setq del_id (load_dialog "c_lm.dcl"))
  (if (not (new_dialog "c_fl" dcl_id))
(exit)

  )
  (action_tile "accept" "(data_manage)")
  (start_dialog)
  (drawl)

  (dufun data_manage
   ()
   (set x (atof (get_tile "
         cpx
         ")))
   (set y (atof (get_tile "
         cpy
         ")))
   (setq cp (list x y))
   (setq rd (atof (get_tile "
         kj
         ")))
   (setq pt1 (polar cp (/pi 6) (* (/rd 2) (/ 2 (sqrt 3)))))

   (setq pt2 (polar cp (/pi (-0 6)) (* (/rd 2) (/ 2 (sqrt 3)))))
   (setq pt3 (listx (-y (+2 (/rd 2)))))
   (setq pt4 (listx (+y (+2 (/rd 2)))))
   (setq pt5 (list (-x (+2 (/rd 2))) y))
   (setq pt6 (list (+x (+2 (/rd 2))) y))
  )
  (dufun drawl
   ()

   (command "
         line
         " pt1 pt2 "")
   (command "
         array" "l" "P" CP "6" "Y")
   (command "circle" cp "D" rd)
   (command "circle" cp "D" rx)
   (command "layer" "m" l "c" l "" "")
   (command "
         line
         " pt3 pt4 "")
   (command "
         line
         " pt5 pt6 "")
   (command "
         arc
         "  "c"
   cp
   (list (*0.55 rx) y)
   "a"
   "270.0
")
   (command "layer" "m" 0 "on" "" "")
  )
)
对话框为
c_fl:dialog{
label=
"螺母正视图绘制器" ;
:text{
label=
"先输入数据，然后单击开始" ;
}
:boxed_row{
label=
"输入螺母中心点" ;
:edit_box{
label=
"X轴坐标" ;
key=
"cpx" ;
fixed_width=true ;
width=5 ;
alignment=centered ;
}
:edit_box{
label=
"Y轴坐标" ;
key=
"cpy" ;
fixed_width=true ;
width=5 ;
alignment=centered ;
}
}
:boxed_row{
label=
"轮廓尺寸参数" ;
:edit_box{
label=
"螺母口径" ;
key=
"kj" ;
edit_limit=20 ;
edit_width=5 ;
}
:edit_box{
label=
"螺母内孔半径" ;
key=
"nb" ;
edit_limit=20 ;
edit_width=5 ;
}
}
ok_only ;
}

可是我不知道怎么运行，望哥哥们指点！
EMAIL：[email protected]

cozyair · 发表于 2006-7-16 20:46

将以上文件保存成两个文件,一个是主程序(从开始至"对话框为"以上间的内容),另一个是对话框文件(从"对话框为"至最后一个"}"间,包括"}"所有内容).假设主文件名为my.lsp,对话框文件名
c_lm.dcl(一定是这个).将这两个文件保存在AUTOCAD能找到的地方,在AUTOCAD的命令行输入:
(load "my")并回车,再输入load_lm就看到执行结果了.(我没有验证你提供的程序是否正确.)

7502628 · 发表于 2006-10-15 11:47

我晕了.CAD是什么级别的呀,我怎么一点也看不懂呀!

zhurui168 · 发表于 2006-10-17 11:14

保存为.lsp的格式就行了，加载一下就行了

liuxing639 · 发表于 2006-10-17 11:49

好乱啊.我加载了一下,显示有错误.
那位高手指点一下哦.

偶水平太凹了.还需要努力学习.

[ 本帖最后由 liuxing639 于 2006-10-17 11:54 编辑 ]

颜一 · 发表于 2006-10-19 17:28

我以为我已经脱离菜鸟级别了，可是一看这个，……＆……（……（＃……就不知所芸了

zhurui168 · 发表于 2006-10-20 15:58

我帮你运行了这个程序，不正确。

zhang6767gao · 发表于 2006-11-19 17:38

刚学,什么都不懂呀

mengchuifeng · 发表于 2006-11-28 10:37

刚学,什么都不懂呀

langxia · 发表于 2006-11-29 08:50

UID 32039
精华 0
积分 49
帖子 49
威望 0
金币 65
阅读权限 10
注册 2006-10-16
状态离线 6楼发表于 2006-10-19 17:28 资料短消息
字号 7pt 8pt 9pt 10pt 12pt 15pt 18pt 20pt 25pt 30pt
我以为我已经脱离菜鸟级别了，可是一看这个，……＆……（……（＃……就不知所芸了

真的好难啊。。。。
学无止境

jianingke · 发表于 2006-12-18 18:04

(setq pt2 (polar cp (/pi (-0 6)) (* (/rd 2) (/ 2 (sqrt 3)))))此句有问题呵

waxw · 发表于 2007-11-8 14:29

开来我连菜鸟都不是

zrh1031 · 发表于 2007-11-11 20:18

哈哈真有意思看来是山外有山，人外有人啊！看来学一两下以后在这里混不下去了大家要一起加油啊！

xlin · 发表于 2007-11-11 23:13

cad的编程的吧，我一点也不懂，要是有人能解释一下以上语句，让我们这些无知这徒能学习一下就好了

zhu_yuanlong · 发表于 2007-11-15 16:53

用程序编有什么好处啊

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

[开发] 请大师们帮我运行程序，小妹不知道怎么办？！！

靠

我来说两句