摘要：
AutoLISP实现同时绘制多条直线，没有预览效果，代码如下。 (defun c:tt () (setq r (getreal "\n请输入风管宽度：")) (if (= nil r) (setq r 100) ) (while t (if (= p1 ... 阅读全文
阅读排行榜
VB编程改变AutoCAD圆对象的圆形坐标和半径
2011-06-12 21:04 by 精诚所至 金石为开, 768 阅读, 收藏,
摘要：
通过设置圆和圆弧实体的Center、Radius属性，可以改变其圆心坐标和半径值，通过返回其属性值，可以获取其圆心坐标和半径值。 下面的代码将模型空间的所有圆向上移动100的单位，并将半径减为原来的一半。 Private Sub Command1_Click() Dim i As Integer Dim currcenterpt As Variant ... 阅读全文
VB编程编辑AutoCAD样条曲线
2011-06-12 21:40 by 精诚所至 金石为开, 765 阅读, 收藏,
摘要：
编辑样条曲线的方法很多，可以通过对其进行拟合进行增加、移动和删除，提高拟合点的权重等操作，可以设置样条曲线的公差，可以提高样条曲线的等级总新定义样条曲线。 一下代码创建一条样条曲线，并改变公差，测试效果。 Private Sub Command1_Click() acadapp.ActiveDocument.SetVariable "SPLFRAME", 0 ... 阅读全文
拼图游戏
2012-04-08 20:12 by 精诚所至 金石为开, 762 阅读, 收藏,
摘要：
本例创建一个简单的拼图游戏，将一个打乱的图形拼合完整，本例用数字替代图形，游戏界面如图。程序代码如下。using System;using System.Collections.Generic;using System.Drawing;using System.Windows.Forms;namespace eg50_pintu{ public partial class MainForm : Form { int flag; private int count; private int[] numbers=new int[16]; public MainForm() { Ini... 阅读全文
通风系统真的像电影中那样四通八达吗？
2013-03-12 17:35 by 精诚所至 金石为开, 756 阅读, 收藏,
摘要：
在好莱坞的谍战片中，特工们都会使用一个神秘而强大的系统：通风系统。在这里，他们几乎可以前往建筑中的所有房间，完成窃听/杀人/逃生等不可能完成的任务。不过在一名机电工程师看来，这才是不可能完成的任务……。好莱坞间谍类电影中一直很喜欢使用一个看起来是通天入地无所不能的系统：通风系统。这是个如同任意门一般的强大系统，不管特工先生的起点在哪里，他总是有办法从天花板上找到风管，并且总是能够爬到任何他想去的地方。比如悄悄租下反派Boss下榻酒店隔壁的房间，再顺着通风管悄悄爬到隔壁，或者被关在某个房间内，利用通风管逃出生天…… 作为一名专业的机电工程师，这种情节让我痛苦无比……特工先生，那些反派的楼到底都是 阅读全文
VB编程在AutoCAD绘图空间创建点
2011-06-12 14:15 by 精诚所至 金石为开, 754 阅读, 收藏,
摘要：
VB编程在AutoCAD中创建图形，利用Add方法，在AutoCAD模型空间ModelSpace中创建二维或三维图形对象，也可在图纸空见或块中创建对象。 利用AddPoint方法可以创建一个点对象，应用该方法时需要给出点的X、Y、Z坐标。 通过系统变量PDMODE来控制点的显示方式，通过系统变量PDSIZE控制点的大小，修改系统变量值后，通过图形重生成来更新屏幕显示，下面代码创建一个点并修改其... 阅读全文
AutoCAD LISP循环判断自动绘制楼梯
2011-03-26 23:57 by 精诚所至 金石为开, 753 阅读, 收藏,
摘要：
AutoCAD LISP REPEAT循环判断根据左下角点、楼梯高度、高度和阶数自动绘制楼梯，代码如下。(defun c:test() (setq pa (getpoint "请输入左下角点：")) (setq ww (getdist pa "\n请输入楼梯宽度：")) (setq hh (getdist pa "\n请输入楼梯高度：")) (setq n (getint "\n请输入楼梯阶数：")) (setq pb (polar pa 0 ww)) (setq pc (polar pb (/ pi 2) hh) 阅读全文
Sketchup轻量级免费渲染插件Maxwell
2013-03-01 16:43 by 精诚所至 金石为开, 752 阅读, 收藏,
摘要：
轻量级渲染插件Maxwell，有免费版和收费版，免费版可渲染800像素图像，收费版渲染1920像素图像，并提供技术支持。官方网站，下载。渲染速度略慢。内置，简单，方便。 阅读全文
AutoLISP绘制圆DCL对话框
2011-04-08 22:12 by 精诚所至 金石为开, 750 阅读, 收藏,
摘要：
AutoLISP绘制圆DCL对话框，代码如下。 yuan:dialog { label = "绘制圆" ; :row { :image { width = 30 ; height = 8 ; key = "img_cr" ; color = -2 ; ... 阅读全文
AutoVBA获取基本图元对象
2011-05-31 22:06 by 精诚所至 金石为开, 746 阅读, 收藏,
摘要：
AutoVBA获取基本图元对象，以LINE为例，代码如下。 Public Sub animatedline() Dim mylineobject As AcadLine Dim startmovevector(0 To 2) As Double Dim endmovevector(0 To 2) As Double Di... 阅读全文
浙公网安备 33010602011771号