myhello.lsp

来自「分5个单元介绍了ObjectDCL的程序设计方法」· LSP 代码 · 共 16 行

;主程序: ObjectDCL对话框驱动程序的最基本结构
(defun C:MyHello()
	;确保将ObjectDCL.arx 载入 AutoCAD
	(if (not (member "objectdcl.arx" (arx)))
		(arxload "objectdcl.arx" "加载objectdcl.arx 失败.")
	)
	
	;加载对话框odc文件
	(ODcl_LoadProject "MyHello")
	
	;显示DclForm1对话框
	(Odcl_Form_Show "MyHello" "DclForm1")
	(princ);
)