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

好乱啊.我加载了一下,显示有错误.
那位高手指点一下哦.:lol
偶水平太凹了.还需要努力学习.;P

[ 本帖最后由 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

我来说两句

用程序编 有什么好处啊
页: [1]
查看完整版本: 请大师们帮我运行程序，小妹不知道怎么办？！！