我从书上抄了个例子，但在autocad上运行不出来~~请教一教

zza12345

.dcl 界面文件 rect:dialog{
label="绘制矩形框"
:row{
spacer;
:image
{
width=30;
heigth=2;
//aspect_radio=0.1;
key="img_rect";
color=-2;
}
:boced_column{
label="参数";
:row{
:column{
:edit_box
{
label+"其实位置X坐标： ";
key="key_x";
width=8;
value="0";
}
:edit_box
{
label="其实位置y坐标 ";
key="key_y"
width=8;
value="0";
}
:button
{
label="选取屏幕坐标 ";
key="key_selpos";
}
}
}
:edit_box
{
label="长度";
key="key_length";
width=8;
value="0";
}
:edit_box
{
label="长度";
key="key_width";
width=8;
value="0";
}
}
}
ok_cancel;
} .lsp主程序文件

(DEFUN C:DrawRect()
(setq return_value (load_dialog "rect.dcl"))
(setq m_x 0);
(setq m_y 0);
(setq pt ' (0 0))
(setq what_next 2)
(while (>= what_next 2)
(if (null (new_dialog "rect" return_value))
(exit);
);end if
(dispos);显示幻灯片
(action_tile "accept" "(getdata)(done_dialog 1)")
(action_tile "key_selpos" "(done_dialog 4)")
(action_tile "cancel" "(done_dialog -1)")
(setq what_next (start_dialog));显示框
(cond
((=what_next 1)
(FuncDrawRect);
)
((=what_next 4)
(setq pt (getpoint "\n Getpoint"))
)
((what_next 0)
(prompt "\n用户")
)
)
)
(unload_dialog return_value);
(print)
) ;初史话
(defun dispos()
(show)
(setq m_x (car pt))
(setq m_y (car pt))
(set_tile "key_x" (rtos m_x 2 2))
(set_tile "key_y" (rtos m_y 2 2)) ) ;绘制矩形框
(defun FuncDrawRect()
(command "rectang" (list m_x m_y)
(list (+m_x m_length) (+m_y m_width)))
) ;获取数据
(defun getdata()
(setq m_x (atof(get_tile "key_x")))
(setq m_y (atof(get_tile "key_y")))
(setq m_length (atof(get_tile "key_length")))
(setq m_width (atof(get_tile "key_width")))
) ;显示幻灯片
(defun show()
(setq x1 (dimx_tile "img_rect"))
(setq y1 (dimx_tile "img_rect"))
(star_image "img_rect");
(slide_image 0 0 x1 y1 "rectangle.sld")
(end_image)
) 我在AutoCAD 中输入 c:drawrect或者drawrect 都运行不出来~~~界面也看不见~~请问怎么回事~~ 我操作错在哪里？

spring

(DEFUN C:DrawRect ()
(setq return_value (load_dialog "rect.dcl"))
(setq m_x 0) ;
(setq m_y 0) ;
(setq pt '(0 0))
(setq what_next 2)
(while (>= what_next 2)
(if (null (new_dialog "rect" return_value))
(exit) ;
) ;end if
(dispos) ;显示幻灯片
(action_tile "accept" "(getdata)(done_dialog 1)")
(action_tile "key_selpos" "(done_dialog 4)")
(action_tile "cancel" "(done_dialog -1)")
(setq what_next (start_dialog)) ;显示框
(cond
((= what_next 1)
(FuncDrawRect) ;
)
((= what_next 4)
(setq pt (getpoint "\n Getpoint"))
)
((what_next 0)
(prompt "\n用户")
)
)
)
(unload_dialog)
(print)
) rect:dialog{label="绘制矩形框";
:row{ spacer;
:image{width=30;height=2;key="img_rect";color=-2;}
:boxed_column{label="参数";
:row{
:column{
:edit_box{
label="其实位置X坐标： ";
key="key_x";
width=8;
value="0";
}
:edit_box
{
label="其实位置y坐标 ";
key="key_y";
width=8;
value="0";
}
:button
{
label="选取屏幕坐标 ";
key="key_selpos";
}
}
}
:edit_box
{
label="长度";
key="key_length";
width=8;
value="0";
}
:edit_box
{
label="长度";
key="key_width";
width=8;
value="0";
}
}
}
ok_cancel;
} 自己好好对对吧

dhgdygbh

我也是菜鸟，看你在这里发个帖子，也就顺便问一句，LISP编程的教程那里能找到，我刚学。。。。。希望有个入门的东西看。谢谢那位大虾有的话可以发我邮箱里 dhgdygbh@163.com

sihan

是多么错误?发上来

zza12345

打得急了，错误不少。接受批评拉


主程序存为DrawRect.lsp                界面存为rect.dcl


加载后输入C:DrawRect，可是没反应阿。界面出不来~~怎么回事？


是不是路径有问题？？怎样解决？

meflying

建议学会LISP的基本语法再来抄程序,否则在某些地方你不一定看得出来是抄错了...还有另一个帖子我也说了,如果是你写的,你至少不至于不会运行程序