摘要：AutoCAD LISP修改已存在圆半径，代码如下(defun c:chgrad() (setvar "cmdecho" 0) (setq en (entsel "选取已知圆：")) (setq en_data (entget (car en))) (setq old_rad_list (assoc 40 en_data)) (setq old_rr (cdr rad_list)) (princ "\n旧半径=") (princ old_rr) (setq cenpt (cdr (assoc 10 en_data))) ... 阅读全文
AutoCAD LISP利用一顶点和三边长绘制三角形
2011-03-26 19:37 by 精诚所至 金石为开, 588 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD LISP利用一顶点和三边长绘制三角形，代码如下。(defun c:test() (setq pointa (getpoint "请输入左下角点：")) (setq A (getreal "\n请输入底边长：")) (setq B (getreal "\n请输入左下角点对边长：")) (setq C (getreal "\n请输入第三边长：")) (setq pointb (polar pointa 0 a)) (setq pointh (polar pointa 0 (/ a 2))) (setq 阅读全文
AutoCAD LISP绘制多个等半径圆相切
2011-03-26 19:03 by 精诚所至 金石为开, 511 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD LISP绘制多个等半径圆相切，代码如下：(defun c:test() (setq baspt (getpoint "请输入基准点：")) (setq rad (getdist "\n请输入小圆半径：")) (setq num (getint "\n请输入相切的小圆数量：")) (setq ang1 (/ (* pi 2) (* num 2))) (setq kk (/ rad (sin ang1))) (setq ang2 (- (/ pi 2) ang1)) (setq cenpt (polar ba... 阅读全文
AutoCAD LISP利用直角顶点斜边和一条直角边绘制直角三角形
2011-03-26 18:49 by 精诚所至 金石为开, 552 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD LISP利用直角顶点斜边和一条直角边绘制直角三角形，还可以显示变长和角度信息。(defun c:test() (setq pa (getpoint "直角定点：")) (setq ww (getreal "\n底边长：")) (setq kk (getreal "\n斜边长：")) (setq pb (polar pa 0 ww)) (setq hh (sqrt (- (* kk kk) (* ww ww)))) (setq pc (polar pa (/ pi 2) hh)) (command "lin.. 阅读全文
AutoCAD LISP矩形窗格绘制
2011-03-26 18:23 by 精诚所至 金石为开, 757 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD LISP矩形窗格绘制，田字形图形，代码如下：(defun c:pbox() (setq pa (getpoint "请输入左下角点：")) (setq ww (getreal "\n请输入矩形宽度实数值w：")) (setq hh (getreal "\n请输入矩形高度实数值h：")) (setq pb (polar pa 0 ww)) (setq pc (polar pb (/ pi 2) hh)) (setq pd (polar pc pi ww)) (command "pline" pa pb 阅读全文
AutoCAD LISP ：Hellow World!
2011-03-26 14:35 by 精诚所至 金石为开, 440 阅读, 0 推荐, 收藏, 编辑
摘要：CAD命令行输入:vlide，打开LISP编辑器，新建一个文件，输入代码：(alert “hellow world!”)工具栏点击加载，返回CAD窗口，弹出提示框”hellow world!”计算一个数的平方：(defun c:test() (setq a (getint "请输入一个数字：")) (setq b (* a a )) (print b) (princ) ） 加载后，CAD命令行输入：test，按照提示进行操作，输入任意一个数字，比如7，按回车，命令行出现49。 阅读全文
校园真的是太小了
2011-03-25 21:16 by 精诚所至 金石为开, 233 阅读, 0 推荐, 收藏, 编辑
摘要：回忆是紫色的轮回，那看不见的国度有你的影子 在 徘徊，也许时间是最好的解药，哭泣也变得好模糊，我遗忘了那金色的十字路口，还是有你的身影残留，每当眼睛紧闭，总有一个梦境，我走在漆黑的街，陌生的道路，记不起 来时的路，唯有的是你的气息，还那么真切，忽然明白，活着不是为了得到什么，只是 不想忘掉曾经的美好，也许幸是色 的牢笼， 自由是孤独的等待，期盼的不是红色 的果实，只想能够回到过去。 模拟考试，排... 阅读全文
2011年3月24日星期四
2011-03-24 21:02 by 精诚所至 金石为开, 186 阅读, 0 推荐, 收藏, 编辑
摘要：2011年3月24日星期四晚上8点54分。 这几天一直在敲VBA的代码，没想到这么累，每天早上起不来。 给未来一点投资吧，今天在淘宝网上花了175元买了套LISP教程，昨天鼠标又坏掉了，又买了个鼠标，再加上昨天买的U盘，将近400块钱就这没了，有点小心疼。 115网盘明天五级，能多点空间存点东西了。 初中时候学校没有足球，我们就拿排球当足球来踢，但是，学校有规定说排球是不能踢的。我们只能一... 阅读全文
AutoCAD VBA基于对象的分层
2011-03-22 22:23 by 精诚所至 金石为开, 589 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA基于对象的分层，讲不同对象根据特性分层，代码如下。 Dim Value As Variant Value = ThisDrawing.GetVariable("cmdecho") ThisDrawing.SetVariable "cmdecho", 0 Dim ObjLayer As AcadLayer Set O... 阅读全文
AutoCAD VBA根据对象缩放
2011-03-22 21:54 by 精诚所至 金石为开, 427 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA根据对象缩放，代码如下。代码完。 阅读全文
AutoCAD VBA对象的组合和拆散
2011-03-22 21:11 by 精诚所至 金石为开, 959 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA对象的组合和拆散，很好用的操作，代码如下。 Sub AddUnNameGroup() Dim SelObjects As AcadSelectionSet Dim appendObjs() As AcadEntity Set SelObjects = GetSelSet Dim UnNameGroup As Aca... 阅读全文
AutoCAD VBA对齐对象
2011-03-22 20:33 by 精诚所至 金石为开, 633 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA对齐对象，代码如下。 Sub AlignEnt() Dim ss As AcadSelectionSet Set ss = CreateSelectionSet ss.SelectOnScreen Dim ent As AcadEntity Dim MinPoint As Variant ... 阅读全文
AutoCAD VBA多重延伸
2011-03-22 20:06 by 精诚所至 金石为开, 761 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA多重延伸，将多条直线延伸至同一条直线，代码如下。 Public Sub MultiExtend() Dim number As Integer Dim ObjSelectionSet As AcadSelectionSet number = ThisDrawing.SelectionSets.Count While... 阅读全文
CAD二次开发语言简介
2011-03-22 18:29 by 精诚所至 金石为开, 1759 阅读, 0 推荐, 收藏, 编辑
摘要：CAD二次开发，有很多不同层次的语言和库可供选择。首先是VisualLisp和AutoLisp。Lisp是一门历史悠久的函数式编程语言，很多概念和C这种过程式语言不一样，据说他在人工智能等方面有广泛的应用。CAD引入了这种语言，给他添加相应的函数库，就成了命令行使用的AutoLisp。在此基础上再增加关于对话框和窗口界面的库，就是VisualLisp，简称VL。VL在CAD中可以视为CAD命令的整合，是脚本语言，而且由CAD程序提供了编写环境。因此上手相当容易，便于编写，调试也很方便。不过由于是脚本语言，就有两大缺陷。第一是速度，当程序规模很大或是操作的对象数量过多时，你会明显感觉到迟钝。第二 阅读全文
AutoCAD VBA单行文字转换为多行文字
2011-03-22 16:41 by 精诚所至 金石为开, 1160 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA单行文字转换为多行文字，多行文字便于编辑，代码如下。 Public Sub TextToMtext() On Error Resume Next Dim ptInsert As Variant Dim txtStr As String Dim height As Double Dim width As... 阅读全文