AUTOLISP上机作业.docx

AUTOLISP上机作业.docx

《AUTOLISP上机作业.docx》由会员分享，可在线阅读，更多相关《AUTOLISP上机作业.docx（14页珍藏版）》请在冰点文库上搜索。

AUTOLISP上机作业

过程装备与控制工程专业

过程装备CAD技术

上机作业

班级:

姓名：

学号:

年月

第三题

（1）

；;;变量说明

;；;p0是圆脸中心,p1、p2是眼睛中心,p3是鼻子中心，p4、p5是嘴的两端点

；；;R-——圆脸半径,r1-——眼睛半径，r2--—鼻子半径

（initget1）

（setqp0（getpoint”输入圆脸中心点:

"））

（initget（+124））

（setqR（getreal”输入圆脸半径值：

"））

（command”circle"p0R）

（setqr1（/R4.0））

（setqr2（/R9.0））

（setqp1（polarp0（/pi6。

0）（/R2.0）））

（command"circle”p1r1）

（setqp2（polarp0（/（＊pi5.0）6.0）（/R2。

0）））

（command"circle”p2r1）

（setqp3（polarp0（-（/pi2。

0））（/R4。

0）））

（command"circle”p3r2）

（setqa（/（＊R2.0）3.0））

（setqp4（polarp0（—（/（*pi3.0）4。

0））a））

（setqp5（polarp0（—（/pi4。

0））a））

（command”arc”"c"p0p4p5）

（setqp6（polarp0（/pi6。

0）（/R4.0）））

（setqp7（polarp0（/（*pi5.0）6。

0）（/R4。

0）））

（command"hatch”"solid”p6"”）

（command”hatch”"solid"p7"”）

第三题

（2）

;;;变量说明

;；;plw-——线宽

（initget1）

（setqp0（getpoint"输入左下角点:

"））

（setqplw1.0）

（setqa100）

（setqb150）

（setqc（/pi2.0））

（setqd（-（/pi2.0）））

（setqp1（polarpoca））

（setqp2（polarp10b））

（setqp3（polarp2ca））

（setqp4（polarp30b））

（setqp5（polarp4da））

（setqp6（polarp50b））

（setqp7（polarp6da））

（command”pline”p0"w”plew”"p1p2p3”w”0""p4p5p6p7”c”）

第三题（3）

（initget1）

（setqp0（getpoint"输入起点位置：

"））

（initget1）

（setqbb（getreal"输入圆心连线与水平线夹角=”））

（setqaa（/（*bbpi）180。

0））

（initget（+124））

（setqn（getint”圆的个数="））

（initget（+124））

（setqr（getreal”圆的半径="））

（setqd（*r2。

0））

（repeatn

（command

"circle"p0r

）;;endofcommand

（setqp0（polarp0aad））

）;;endofrepeat

第五题

（setqp0’（100100））

（setqr200）

（setqp1’（400100））

（command”circle"p0r）

（setqe1（ssget”L”））

（command”offset"30e1p1”"）

第六题

；；；变量说明:

p0为图形中心，R为正五边形外接圆半径,R1为中心圆半径,a为正五边形边长。

（initget1）

（setqp0（getpoint”指定p0点：

”））

（initget（+124））

（setqR（getreal”输入正五边形外接圆半径:

”））

（setqR1（/R2。

0））

（command”circle"p0R1）

（setqs1（entlast））

（setqd（—（＊pi（/126。

0180））））

（setqp1（polarp0dR））

（setqb（*pi（/36.0180）））

（setqa（＊2.0R（sinb）））

（setqp2（polarp10a））

（setqp5（polarp1（*（/108.0180）pi）a））

（setqp3（polarp2（*（/72.0180）pi）a））

（setqp4（polarp0（/pi2.0）R））

（command”pline”p1p2p3p4p5”c"）

（setqs2（entlast））

（setqp6（list（carp1）（—（cadrp1）50。

0）））

（setqp7（list（carp2）（-（cadrp2）50.0）））

（command"mirror”s1s2""p6p7"”）

第七、九题

（1）DCL文件:

lx1：

dialog｛

label="练习”;

spacer；

children_fixed_width=true；

：

popup_list｛/*popup_list*/

label="弹出式列表”;

key=”plist1";

width=18;

}/＊endofpopup_list*/

spacer_1;

：

edit_box｛/＊edbox_1＊/

label="编辑框";

key="edbox";

width=18；

｝/＊endofedbox_1*/

spacer_1；

ok_cancel；

｝/＊endofdialog*/

（2）驱动程序:

（defunmainprogram（）;;主程序

（setqplist_1（list"200""300"”400”））；；弹出式列边框中的内容

（setqplist_2（list200300400））；；编辑框中的内容

（setqshuzhi"200”）

（liebiao）;；调用列表函数

）；；endofdefunmainprogram

（defunliebiao（）

（if（>（setqdlg_id1（load_dialog"c：

\\users\\Administrator\\desktop\\dialog_column1.dcl”））0）;;加载对话框文件

（progn;;progn1

（if（new_dialog"lx1"dlg_id1）；;显示对话框

（progn;；progn2以下初始化对话框和描述控件活动

（start_list"plist1"）;；初始化弹出式列表框

（mapcar'add_listplist_1）

（end_list）

（set_tile"edbox"”200"）;;初始化编辑框

（action_tile”plist1"”（plistaction）”）；;列表框有动作时调用函数plistaction

（start_dialog）;；激活对话框

）；；endofprogn2

（alert"Unabletodisplaydialogbox”）

）；；endofnew_dialog

（unload_dialogdlg_id1）；；卸载对话框

）；；endofprogn1

（alert”Unabletoloaddialogbox"）

）;;endofload_dialog

）;;endofdefunliebiao

（defunplistaction（/a）

（setqa（get_tile”plist1”））;;得到列表的索引值

（setqa（atoia））

（setqshuzhi（nthaplist_2））

（setqshuzhi（rtosshuzhi20））;;将相应的数值转换成字符串

（set_tile"edbox”shuzhi）;;在编辑框中显示数值

）；；endofdefunplistaction

第十题

（1）DCL文件：

id0：

dialog{

label=”算属相"；

spacer；

children_fixed_width=true;

:

edit_box｛

label=”出生年份：

"；

key=”edbox1";

width=28;

}

：

text{

label=”（如1956）”；

}

:

row｛//row1

:

text｛

label=”属相:

”；

}

：

column{//column1

:

text｛

width=20;

key="txt1”；

}

}//endofcolumn1

}//endoflow1

spacer；

ok_only；

spacer;

}//endofdialog

（2）驱动程序：

（defunid0（）

（if（>（setqdlg_id（load_dialog"C:

\\Users\\Administrator\\Desktop\\dialog_id0.dcl"））0）;;加载对话框文件

（progn;;progn1

（if（new_dialog"id0"dlg_id）

（progn;；progn2

;；以下初始化对话框和描述控件活动

（action_tile"edbox1""（edbox1action）"）

;；以上初始化对话框和描述控件活动

（start_dialog）；;激活对话框

）;；endofprogn2

（alert”Unabletodisplaydialogbox"）

）;；endofnewdialog

（unload_dialogdlg_id）;；卸载对话框

）；;endofprogn2

（alert"Unabletoloaddialogbox”）

）;;endofloaddialog

）;;endofdefun

（defunedbox1action（）

（setqidnum（get_tile”edbox1”））

（setqidnum（atoiidnum））

（setqidnum（remidnum12））

（set_tile"txt1"（cond（（=idnum0）"猴"）

（（=idnum1）"鸡"）

（（=idnum2）”狗"）

（（=idnum3）”猪”）

（（=idnum4）"鼠"）

（（=idnum5）"牛"）

（（=idnum6）”虎”）

（（=idnum7）"兔”）

（（=idnum8）”龙"）

（（=idnum9）”蛇"）

（（=idnum10）”马"）

（（=idnum11）”羊”）

）;；endofcond

）；;endofset_tile

）；;endofdefunedbox1action

第十三题

MNU文件：

***pop1

［作业]

[第九题。

。

。

］^c^c（load”C:

/Users/Administrator/Desktop/dialog_column1.lsp"）（mainprogram）

[第十题。

.。

]^c^c（load”C:

/Users/Administrator/Desktop/第10题驱动程序.lsp”）（id0）