摘要:AutoLISP第一个DCL窗体,将如下代码写入编辑器窗体,“文件—另存为”,文件名为“hello”,文件类型选取”DCL源文件“。 hello:dialog{ label="First Dialog Box"; :text{ label="Hello,World!"; alignment=centered; } :bu... 阅读全文
AutoLISP绘制玻璃门
2011-04-05 16:38 by 精诚所至 金石为开, 680 阅读, 1 推荐, 收藏, 编辑
摘要:AutoLISP绘制玻璃门,代码如下。 (defun c:test () (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldlayer (getvar "clayer")) (setvar "osmode" 0) (get_door_bas_pp) ... 阅读全文
AutoLISP绘制表格
2011-04-05 15:43 by 精诚所至 金石为开, 926 阅读, 0 推荐, 收藏, 编辑
摘要:AutoLISP绘制表格,自动绘制表格,代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq pt1 (getpoint "\n第一角点:")) (setq pt3 (getcorne... 阅读全文
AutoLISP引线序号球
2011-04-05 11:00 by 精诚所至 金石为开, 484 阅读, 0 推荐, 收藏, 编辑
摘要:AutoLISP引线序号球,代码如下。 (defun c:test () (setvar "cmdecho" 0) (setq old_rr (getvar "circlerad")) (setq str_rr (strcat "\n圆半径:")) (setq rr1 (getdist str_rr)) ... 阅读全文
神化的韩寒
2011-04-04 09:58 by 精诚所至 金石为开, 279 阅读, 0 推荐, 收藏, 编辑
摘要:韩寒,赛车手,作家,某杂志前主编,集多重身份于一身现代偶像明星,当然,并不是所有的明星都能欣然接受被别人冠以偶像的称号,但是我不得不说,有很多人确实把韩寒当做一个偶像来看待,因为就算他实力再大,也无法掩盖掉偶像气质给他带来的优势,而这种优势是强大到足以激发不少涉世未深的手女以身相许的冲动的,韩寒也曾经说过自己的粉丝不会像刘德华的粉丝那样没有理性,但事实证明,他高估了自己的粉丝了。 一谈论到韩寒... 阅读全文
2011年4月1日星期五
2011-04-01 18:37 by 精诚所至 金石为开, 178 阅读, 0 推荐, 收藏, 编辑
摘要:2011年4月1日星期五愚人节。 从昨天开始忙,帮忙搬东西累的我腰酸腿疼,今天又几乎站了一天,后两天什么都不干了,不能站着。 从停上体育课,好像就没运动过了,以后一定注意身体。 阅读全文
AutoLISPDCL对话框设计
2011-03-30 09:30 by 精诚所至 金石为开, 634 阅读, 0 推荐, 收藏, 编辑
摘要:AutoLISPDCL对话框设计,代码如下。 (defun c:viewdcl() (if (null dcl_pt) (setq dcl_pt '(-1 -1)) ) (setq dcl_file (getfiled "打开DCL文件" "" "DCL" 2)) (princ "DCL文件名:") (princ ... 阅读全文
AutoLISP虚拟线变化图
2011-03-29 22:31 by 精诚所至 金石为开, 464 阅读, 0 推荐, 收藏, 编辑
摘要:AutoLISP虚拟线变化图,代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq k 1 n 1 hh 1) (get_screen_size) (while k (grread k) (while (>= hh 0.0005) (s... 阅读全文
AutoLISP切圆动画
2011-03-29 22:07 by 精诚所至 金石为开, 443 阅读, 0 推荐, 收藏, 编辑
摘要:AutoLISP切圆动画,在已知圆外绘制一外切圆,并逆时针运动,代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en (car (entsel "\n选取一圆心:"))) (setq cen2 (getpoint "\n切点圆:")) (princ "\n按选键盘任意键可转动切圆,[EN... 阅读全文