鸟哥的博客

1、visual lisp/autolisp 开发 --快速定位代码出错位置2、visual lisp/autolisp dcl对话框开发 --用回车键接受输入，结束对话框3、visual lisp/autolisp dcl对话框开发 --在一个dcl文件中引用另一个dcl4、visual lisp/autolisp dcl对话框开发 --图像按钮（image_button）5、visual lisp/autolisp dcl对话框开发 --隐藏对话框6、visual lisp/autolisp dcl对话

快速找到出错代码 步骤：1、打开vlide，打开lsp代码文件2、勾选菜单项 调试->出错时中断3、点击工具按钮“加载活动编辑窗口”，加载打开的lsp代码4、代码出错后，点击工具栏按钮“上次中断”，这时出错的代码会被选中。...

本文演示如何实现 在编辑框里按回车相当于点击“确定”按钮操作步骤：1、加载lsp2、执行命令 test3、在编辑框输入数字4、按“回车键”5、对话框关闭（相当于按下了“确定”按钮）代码：enter_edit.ls: ;by 鸟哥 qq1833183060 ;file:enter_edit.lsp;功能：演示 1、 在编辑框里按“回车”相当于点击“确定”按钮;所需文件包括：...

本文演示如何在一个dcl文件中包含另一个dcl文件运行效果：代码： ;by 鸟哥 qq1833183060 ;include.lsp;功能：演示 1、 在一个对话框中包含另一个对话框。;所需文件包括： include.lsp include.dcl included.dcl;;加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test () (...

本文演示image_button的使用和通过lisp修改模型空间背景色。效果图：image_button.lsp ;by 鸟哥 qq1833183060;功能：演示 1、 image_button。2、设置模型空间的背景颜色;所需文件包括： image_button.lsp image_button.dcl;;加载步骤：;1、加载lsp;2、命令行输入 test(defun...

演示dcl对话框隐藏、通过lisp操作ucs效果图：ucs_test.lsp:;by 鸟哥 qq1833183060;功能：演示 1、用lisp操作ucs 2、dcl的简单使用;所需文件包括：ucs-test.lsp ucs-test.dcl;测试图形使用 trans-test.dwg;为了能看到当前ucs的位置，使用前输入 uc命令，在弹出的对话框里将 “显示于ucs原点”勾选...

先看效果：代码nest_dialog.lsp: ;by 鸟哥 qq1833183060;功能：演示 1、 对话框嵌套。;所需文件包括： nest_dialog.lsp nest_dialog.dcl;;加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test () (setq dcl_id (load_dialog "nest_dialog.dcl...

本文演示dcl list_box控件效果图：listbox.lsp ;by 鸟哥 qq1833183060;功能：演示 1、 list_box控件的使用。;所需文件包括： listbox.lsp listbox.dcl;;加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test( / continue curBtn dlgId list2str) ;(...

先上效果图：toggle.lsp： ;by 鸟哥 qq1833183060;功能：演示 1、 toggle控件的使用。2、通过toggle修改text控件的值。3、通过控件设置系统变量;所需文件包括： toggle.lsp toggle.dcl;;加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test( / continue curBtn dlgId )...

演示dcl滑动条用法slider.lsp：;by 鸟哥 qq1833183060;功能：演示 1、 slider;所需文件包括： slider.lsp slider.dcl;;加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test( / continue curBtn dlgId ) (setq dlgId (load_dialog "sl...

popup_list.lsp;by 鸟哥 qq1833183060;功能：演示 1、 popup_list;所需文件包括： popup_list.lsp popup_list.dcl;；加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test( / continue curBtn dlgId ) (setq lists '("A1" "A2" "A3"...

radio.lsp：;by 鸟哥 qq1833183060;功能：演示 1、 radio按钮;所需文件包括： radio.lsp radio.dcl;；加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test( / continue curBtn dlgId ) (setq dlgId (load_dialog "radio.dcl")) ...

演示位按钮定义事件处理程序，在事件处理程序里修改文本的值button.lsp：;by 鸟哥 qq1833183060;功能：演示 1、 在对话框中显示文本;所需文件包括： button.lsp button.dcl;；加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test( / continue curBtn dlgId ) (defun modT...

text2.lsp;by 鸟哥 qq1833183060;功能：演示 1、 在对话框中显示多行文本;所需文件包括： text2.lsp text2.dcl;；加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test( / continue curBtn dlgId ) (setq dlgId (load_dialog "text2.dcl")...

lsp文件;by 鸟哥 qq1833183060;功能：演示 1、dcl image 控件的使用;所需文件包括：dcl_image.lsp dcl_image.dcl b.sld;；加载步骤：；1、(defun c:imgtest( / dlgId ) (setq dlgId (load_dialog "dcl_image.dcl"));使用时将dcl_image...

演示如何在对话框中显示文本text.lsp;by 鸟哥 qq1833183060;功能：演示 1、 在对话框中显示文本;所需文件包括： text.lsp text.dcl;；加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test( / continue curBtn dlgId ) (setq dlgId (load_dialog "te...

演示按钮右对齐alignment.lsp;by 鸟哥 qq1833183060;功能：演示 1、alignment属性;所需文件包括：alignment.lsp alignment.dcl;；加载步骤：;1、加载lsp;2、命令行输入 test(defun c:test( / continue curBtn dlgId ) (setq dlgId (load_d...