[求助]插入图块的LISP程序。急！！！

yfywk

我是做施工图的，由于经常会遇到画剖切符号，而单位的剖切符号是下图中的那个样子，经常性的拷贝，太麻烦，（还要打开另外一张图）所以，我想将其做成属性块，然后编一个lisp程序，用命令的形式将其调入。但我不知道怎样编辑。那位大虾能帮我个忙。


程序在调入时先画一条pl线，虚线。然后再插入剖切的小三角符号（第一点），再插入剖切索引符号（第二点）。


程序执行顺序：


command:xxx


输入剖切线第一点


输入剖切线第二点[回车结束]


输入剖切线第三点[回车结束]


输入剖切线第四点[回车结束]（注：可以不停的划线直到回车或击右键结束划线）


点取插入剖切符号


点取插入索引符号


方向旋转：(可输入角度)


输入索引号：


输入索引页码：


程序完毕。


截图：





cad文件：

xqyhome

利用模板简化重复工作

我们在用AutoCAD绘制图形时,经常需要绘制大量形状相同,但尺寸不一样的常用图
形。如果每次需要这样的图形时，都要手工进行调整再插入，太麻烦。为了提高绘图效
率,我们可以利用AutoCAD的模板功能来简化这样的操作。

什么是摸板

AutoCAD模板就是把各种设置及用户常用的自定义图形元素制成的图形格式，所有
的新图都是以模板为基础的，模板中的所有信息都将传递到新图上。以现有的模板为基
础建立新图并作修改，这些修改并不改变模板的内容，因此，可将任何图形保存为模板
（*.dwt）。
模板具有各种用户通常使用的设置及一些基本的图形元素。模板可根据用户需要
自定义，
也可以根据需要在模板中加入边界和标题块。

将模板文件插入绘制图形中

当使用新建模板Acadiso.dwt绘制图形时，通过“插入块”的方法将保存在模板文件中
的图形快速地插入到当前绘制的图形中，这样你会发现工作效率一下提高了不少。具体
步骤和方法如下：

一、打开已绘制好的AutoCAD图形文件（例：chilun.dwg），在命令(COMMAND)行中输入
WBLOCK命令回车。

AutoCAD弹出“写块”对话框，在“源”中选择“整个图形”，在“目标”中选择
“文件名和路径”及“插入单位”，按“确定”后AutoCAD按指定的文件名和路径保存
一个图块文件（例：齿轮.dwg）。

二、打开指定的模板（例：Acadiso.dwt）,在工具条上点击“插入块”或在命令
(COMMAND)行中输入INSERT命令，回车。AutoCAD弹出“插入”对话框，点击“浏览”
找到AutoCAD按指定的文件名和路径保存的图块文件“齿轮.dwg”，选择好“插入
点”、
“缩放比例”、“旋转”三项参数后，按“确定”（如图）。

三、将刚才插入到Acadiso.dwt模板的齿轮图块删除，再将Acadiso.dwt模板保存到系统
指定的文件夹内。
对于Autocad2000,将Acadiso.dwt模板保存到文件夹X:\AutoCAD2000\Template内。
对于Autocad2004,将Acadiso.dwt模板保存到文件夹C:\Documents and
Settings\LQH\Local
Settings\Application Data\Autodesk\AutoCAD 2004\R16.0\chs\Template内。
（假设当前用户名为LQH,WINDOWS2000 Pro系统安装在C盘）;

四、删除图形文件“chilun.dwg”和图块文件“齿轮.dwg”

五、当使用新建模板Acadiso.dwt绘制图形时，如需用到保存在模板文件中的常用图形
时，就点击工具条上的“插入块”或在命令(COMMAND)行中输入INSERT命令回车，就可
以按需要的插入点、缩放比例、旋转角度很方便地将图块插入。


登于2004年8月30日 电脑报 软件世界 CAD社区 我写的稿，请多提意见。

bai2000

我也想知道

linheyuanpcb

2. (defun c:cm1 ( / laspt)
3. (setq dwg "150" laspt 1);假设CAD支持搜索目录有*.dwg这个文件
4. (while laspt
5.   (setq p1 (getpoint "模架的插入点:"))(terpri)
6. (if (/= p1 nil)(command "_.insert" dwg p1 "1" "1" pause)(setq laspt nil))
7. )
8. )

(defun c:cm1 ( / laspt) (setq dwg "150" laspt 1);假设CAD支持搜索目录有*.dwg这个文件 (while laspt   (setq p1 (getpoint "模架的插入点:"))(terpri) (if (/= p1 nil)(command "_.insert" dwg p1 "1" "1" pause)(setq laspt nil)) ) )

my_autocad

楼主是做景观施工图的吧

wenmaokun

ok

wjl1014

linheyuanpcb 发表于 2009-5-15 10:48

蛮经典第。蛮经典第。

sjl_fyl

谢谢分享

天命

用源泉啊，满足你要求