[分享]：蜜蜂软体：轴线绘制（源码）

xjlmlxbq · 发表于 2004-5-4 21:06:07

我试过了在2005下完全可以，呵呵，不好意思，楼主能否把LIB.VLX的源码传上来？让我们学习学习，嘿嘿，有点过分哦

coolyxw · 发表于 2004-5-8 17:07:09

你的工具条放到网上来，大伙为你测试，呵呵。红眼。。。

yangjr · 发表于 2004-5-8 23:29:34

在2005中还是不能标注，31楼xjlmlxbq能不能将标注具体的使用过程介绍一下。

zjfcumt · 发表于 2004-5-9 08:41:05

已经下载，谢谢！

netbee · 发表于 2004-5-11 16:53:37

最初由 xjlmlxbq 发布
[B]我试过了在2005下完全可以，呵呵，不好意思，楼主能否把LIB.VLX的源码传上来？让我们学习学习，嘿嘿，有点过分哦 [/B]

呵呵
不好意思!
里面有很多函数是我的其他程序的，我还没有考虑公开！
我发布这个轴线程序是为了给大家演示如何在LISP对话框中进行图形的实时生成显示。因为以前有帖子在讨论如何在LISP中实现图象的显示问题。

而且我在轴线绘制中进行轴线的图象显示的函数只是进行了将直线、圆弧线数据转换。特别的是将圆、弧转换为多边形来显示而已，就是用多边形代替圆！
－－－－－－－－－
你还可以编制一些函数进行字母、数字等等的图象显示绘制
原理和定义CAD的形文件一样，全部用很小的直线来代替所有你要显示的图象。
呵呵，数据量太大我没有做！
－－－－－－－－－－－

只是抛砖引玉而已！
希望各位高手们不要笑我哟！

三根毛 · 发表于 2004-5-12 18:30:45

能不能把VLX的源码放上，我不知道为什么有这个文件，图像会在对话框中时时显示？谢谢！

netbee · 发表于 2004-5-15 12:11:33

最初由三根毛发布
[B]能不能把VLX的源码放上，我不知道为什么有这个文件，图像会在对话框中时时显示？谢谢！ [/B]

它是一些程序要用到的初始化函数和算法函数。
图象实时显示，是指当你进行一些参数化绘图时(如本题的轴线、基础绘制、楼梯、门窗等等)当你的参数改变时，在对话框中的图象控件(预览)就能相映变化，而不是等你确定绘制后才能看到效果!
在LISP中进行DWG文件的预览，可能LISP语言现在是无法实现的。

lzy9788 · 发表于 2004-5-17 11:14:10

请教netbee，我使用轴线工具时出现如下错误：
（错误: 线型 Axis 未定义，位于图层表记录 Axis
AutoCAD 变量设置被拒绝: "clayer" "Axis"）
是怎么回事了?

netbee · 发表于 2004-5-17 19:26:40

你未将netbee.lin文件复制到CAD的Support目录吧。

它是我自定义的一个线型。因我觉得CAD自带的线型作轴线不太好。

lzy9788 · 发表于 2004-5-17 20:52:54

你是搜索的那个文件吗？我在CAD的线型里定义了你的轴线，没用。可否帮忙改下了，
你就用CAD的线型吧。我也是用自定义的轴线。
还是不行，我试了，出现相同的错误。
用下面的图测试下

buba · 发表于 2004-5-18 03:56:17

呵呵！我没有用过2005，我是在2002中调试的。
可能是在2005中获取的DXF数据不一样
你在2005中用Vlisp下中断来跟踪一下试试吧！

萍水相逢 · 发表于 2004-5-18 17:28:38

我下载了，程序加载后，可是不能用，怎么才可以调用呀。

netbee · 发表于 2004-5-18 18:19:40

最初由萍水相逢发布
[B]我下载了，程序加载后，可是不能用，怎么才可以调用呀。 [/B]

运行命令：NetBee_RectAxis
你也可以改啊

lzy9788 · 发表于 2004-5-18 21:44:36

不太明白这的，好像在LISP文件里不能改吧
(if *Axis_layer*
   (setclayer (list *Axis_layer* 1 "Axis"))
   (progn
(Nsetini "Axis_layer" "Axis")
(setclayer (list *Axis_layer* 1 "Axis"))
   ) ;_ 结束progn
) ;_ 结束if
  ) ;_ 结束defun

netbee · 发表于 2004-5-18 22:29:49

setclayer函数是设置图层。
Nsetini是设置netbee.ini配置文件

setclayer函数
http://www.xdcad.net/forum/showthread.php?threadid=152635

加载线型代码：

(if (= (tblobjname "ltype" "AXIS") nil)
(command "-linetype"
"l"
"Axis"
"NetBee.lin"
""
)
)

账号		自动登录	找回密码
密码			立即注册