Autolisp Dcl基础篇 CAD家园

文章关键字 ‘autolisp dcl基础篇’

预览DCL对话框的AutoLISP程序

2011年05月28日，星期六

[LISP程序]：预览DCL对话框的AutoLISP程序
(defun C:VIEWDCL ()
(if (null dcl_pt)
(setq dcl_pt ‘(-1 -1))
)
(setq dcl_file (getfiled “打开DCL文件” “” “DCL” 2))
(princ “DCL文件名:”)
(princ dcl_file)
(setq dia_name (getstring “nDialog对话框名:”))
(if (= dia_name “”)
(exit)
)
(setq dcl_id (load_dialog dcl_file))
(new_dialog dia_name dcl_id)
(action_tile “accept” “(setq dcl_pt (done_dialog 1))”)
(action_tile “cancel” “(done_dialog 0)”)
(setq dd (start_dialog))
(cond((= dd 1))
(princ “n确定!!!”)
)
((= dd 0))
(princ “n取消!!!”)
)
(prin1)

标签：autolisp, autolisp dcl基础篇, autolisp简介
发布在未分类 | 13 条评论 »

关于ARX DCL LISP之间的数据问题！

2011年04月4日，星期一

我是个新手，一般都用LISP来控制DCL，这样代码的保密性差。
我想求助一下各位高手，我怎样才能用ARX来控制这个DCL呢，获取和改变DCL各个控件的属性内容，还有，怎样在DCL中增加DWG的图片预览栏呢？

标签：autolisp, autolisp dcl基础篇, visual lisp
发布在未分类 | 2 条评论 »

《AutoLISP与DCL基础篇》PDF版

2010年12月4日，星期六

[分享]：《AutoLISP与DCL基础篇》PDF版
《AutoLISP与DCL基础篇》PDF版，大家梦寐以求的！

标签：autolisp, autolisp dcl基础篇, autolisp教程
发布在未分类 | 63 条评论 »

AUTOLISP@DCL基础教程

2010年12月3日，星期五

[下载]：AUTOLISP@DCL基础教程
PDF格式的[AUTOLISP@DCL基础教程
共31个文件

标签：autolisp dcl基础篇, autolisp 教程下载, autolisp教程
发布在未分类 | 34 条评论 »

AutoLISP&DCL基础篇

2010年12月2日，星期四

[分享]：AutoLISP&DCL基础篇
全面介绍了AutoLISP和DCL的基础知识。

标签：autolisp, autolisp dcl基础篇, autolisp教程
发布在未分类 | 36 条评论 »

AutoCAD程式設計魔法秘笈–AutoLISP+DCL+Visual LISP篇

2010年11月22日，星期一

[求助]：AutoCAD程式設計魔法秘笈–AutoLISP+DCL+Visual LISP篇
这本书哪里有购买？

标签：autolisp, autolisp dcl基础篇, autolisp教程
发布在未分类 | 17 条评论 »

AutoLisp Vlisp 对话框基础.电子书

2010年11月21日，星期日

AutoLisp lisp 对话框基础.电子书，方便好用。推荐下载

标签：autocad lisp vlisp, autolisp dcl基础篇, vlisp
发布在未分类 | 7 条评论 »

我的DCL和lisp连接不上？？？？

2010年11月9日，星期二

[求助]：我的DCL和lisp连接不上？？？？
各位大虾速来帮忙！！！！
尤其是action—tile就是弄不明白，以管线号这一栏为例，当我输入值时，lisp程序就是传不回来值

代码:

     ( defun c:WL()   (setq weldDialog (load_dialog "d:\weld"))   (new_dialog "weld" weldDialog)   (action_tile "pipeNo" "(setq pipe (get_tile "pipeNo"))")         (start_dialog)   (princ pipe)     ;pipe总是传不会我在对话框输入的值   )

代码:

     weld:dialog {    label = "焊口标记程序" ;    :boxed_column {        label = "管线参数" ;        :edit_box {            key = "pipeNo" ;            label = "管线号" ;        }        ok_cancel;        :row {            :edit_box {                alignment = left ;                edit_width = 8 ;                key = "pipeOutsideDiameter" ;                label = "管道外径" ;            }            :edit_box {                alignment = right ;                edit_width = 4 ;                fixed_height = true ;                key = "pipeWallThickness" ;                label = "壁厚" ;            }        }        :radio_row {            :edit_box {                alignment = left ;                edit_width = 8 ;                key = "welderNo" ;                label = "焊工号           " ;            }            :edit_box {                alignment = right ;                edit_width = 4 ;                key = "radiographicProportion" ;                label = "探伤比例" ;            }        }    }    :boxed_column {        label = "标记设定" ;        :row {            alignment = left ;            :edit_box {                alignment = left ;                edit_width = 8 ;                key = "beginNo" ;                label = "起始序号" ;            }            :radio_button {                alignment = left ;                key = "marker" ;                label = "标记符号" ;                width = 8 ;            }        }        :row {            alignment = left ;            :popup_list {                edit_width = 7 ;                key = "font" ;                label = "字体            " ;                list = "宋体n仿宋n楷体n魏体" ;            }            :edit_box {                edit_limit = 8 ;                key = "Height" ;                label = "字号" ;            }        }        :row {            alignment = left ;            :edit_box {                edit_width = 8 ;                key = "markerSize" ;                label = "标记大小" ;            }            :radio_button {                key = "proportion" ;                label = "锁定比例" ;            }        }    }    :boxed_column {        label = "修改管线" ;        :popup_list {            key = "completePipeNo" ;        }        :button {            key = "currently" ;            label = "管线数据置当前" ;        }    }}

标签：autolisp, autolisp dcl基础篇, visual lisp
发布在未分类 | 一条评论 »

DCL 动态对话框与 LISP 的调用方法源码分享

2010年11月5日，星期五

[LISP程序]：DCL 动态对话框与 LISP 的调用方法源码分享
DCL 动态对话框与 LISP 的调用方法源码分享
此处任选《钢构CAD》中的一个实例:
AAA : dialog{
label=” 钢构 C A D — 连续编号” ;
key=”dial”;
:row { //无框水平排列:boxed_row//有框水平排列
:image//幻灯显示框
{
key=”HD-01″;
width=25;//显示框宽
height=1;
color=0;
fixed_width=true;
}
:radio_column{//其下为无框竖向平排列 :boxed_radio_column{//其下为有框竖向平排列
:row{
:edit_box{label=”文字高度:”;key=”VZG”;width=5;}
:edit_box{label=”起点编号:”;key=”QDH”;width=5;}
}
:radio_row {//无加框行
:boxed_radio_row{//boxed_radio_row加框按钮行 radio_row {//无加框行
label=” 引线 “;
:row{
:radio_button{label=”有”;key=”BH-Y”;}
:radio_button{label=”无”;key=”BH-W”;}
}
}
:boxed_radio_row{//boxed_radio_row加框按钮行 radio_row {//无加框行
label=” 方式 “;key=”JDQJ”;
:radio_button{label=”递增”;key=”FS-Z”;}
:radio_button{label=”递减”;key=”FS-J”;}
}
}
:boxed_radio_row{//boxed_radio_row加框按钮行 radio_row {//无加框行
label=”插入点位置”;key=”YH–”;
:radio_button{label=”上”;key=”YH-S”;}
:radio_button{label=”下”;key=”YH-X”;}
:radio_button{label=”左”;key=”YH-Z”;}
:radio_button{label=”右”;key=”YH-Y”;}
}
:row{//其下为水平排列
:button{width=5;label=”编号”;key=”accept”;alignment = centered;fixed_width = true;is_default = true;}//按钮
: button {//自定义一个退出按钮
width=5;
key = “cancel”;//退出与确定的区别:确定为key = “accept”;
label = “退出”;//is_default = true; //缺省按钮,一个话框中必须也只能有一个缺省按钮
fixed_width = true;//使按钮外框的宽度收缩到恰好可以容纳其内部的文字
alignment = centered;//使按钮居中放置
}
: button {//自定义一个按钮
width=5;
key = “SM-1″;//退出与确定的区别:确定为key = “accept”;
label = “说明”;//is_default = true; //缺省按钮,一个话框中必须也只能有一个缺省按钮
fixed_width = true;//使按钮外框的宽度收缩到恰好可以容纳其内部的文字
alignment = centered;//使按钮居中放置
}
}
}
}
}

标签：autolisp, autolisp dcl基础篇, vc 调用颜色对话框
发布在未分类 | 一条评论 »

DCL&Lisp Generator Lite 2.1

2010年11月5日，星期五

DCL 可视化编辑并自动生成DCL文件，对话框设计可以像ObjectDCL一样方便了，用 Start 按钮自动生成 DCL 文件。
The LISP Generator actually writes 100% of your LISP programs for you, and it may be just what you need to take adantage of AutoCAD’s greatest feature, the fact it can be customized and automated by you. The LISP Generator will write the programs you need, when you need them, giing you the power to really put AutoCAD to work for you. With your arsenal of tailor-made LISP programs, you will watch productiity soar and, best of all, you don’t need to know anything about LISP programming to use it.
So, if an increase in productiity, efficiency, and accuracy sounds good to you, take a look at the following information and consider the benefits of haing the LISP Generator as your personal full-time programmer. If you hae any questions about the LISP Generator, please feel free to contact us. We will be happy to assist you.
http://www.softpedia.com/progScreen…shot-27053.html
Lite 版下载
http://www.cadopolis.com/shareware/…es&TheKeywords=
http://www.cadopolis.com/shareware/…enerator%202.1c
本地下载

标签：autolisp dcl基础篇, generator, ivy generator
发布在未分类 | 5 条评论 »