跪求一LISP程序

hl2006 · 发表于 2010-10-7 18:23:00

哦，以前那个程序能改不，点哪根线，哪根线就变成平常CAD中选中的东西一样。能和没选中的分辨出来

gufeng · 发表于 2010-10-9 17:38:00

下载文件Test.rar,解压得到文件 Test.VLX ,加载运行命令,Test

hl2006 · 发表于 2010-10-9 18:15:00

大哥，能不能给我个源代码啊，小弟谢谢了

hl2006 · 发表于 2010-10-10 22:57:00

当图形有几层的时候，如正方形中还有几个正方形时就填不完整，还有一个小问题就是填充的时候比较慢。还请大哥在帮忙完善一下，小弟感激不尽。另发上一款我们的图纸让大哥改的时候可以参照一下。

gufeng · 发表于 2010-10-11 16:43:00

1、填充的时候不慢，主要是 (ssget "F")栏选的时候如果线多，搜索深度越多就越慢优化了一下.

2、如正方形中还有几个正方形时就填不完整这个是由于填充的填充方式是把所有的需要填充的选择集添加到一起，最后再填充，这样就导致多边形里的环就有可能是空的，改为逐个图元填充.

3、关于源码，有一个编译的函数库文件（主要些常用处理函数）。主程序也就几行代码，贴出来对于你来说也没用，所以一并打包，不需要你另外单独加载.

hl2006 · 发表于 2010-10-11 20:34:00

还是几层的问题填充有点问题，上面我发了一个我们的图，大哥可以看看。像字线A外面有一层里面也有一层，填充不了。还有其它图形也是双层的。不知道是什么原因。图框内部的是我们要用到这个命令显视的图形。外面的外框不算，最下面那一排出线的不算。

hl2006 · 发表于 2010-10-11 20:36:00

我要原代码的原因是，到时我用到繁体的系统想改变里的字，反之又用到简体的也一样。还有就是填充的颜色我想改成品红

hl2006 · 发表于 2010-10-11 20:38:00

希望大哥耐心帮小弟完善一下些程序。谢谢

gufeng · 发表于 2010-10-14 15:57:00

1、在CAD中点一根线，这根线所有连接的封闭图元，全部以填充变色的形式显视出来，点另一根就显视另一根所连接的图元。

2、有时那个多段线上可能不是单一的一根多段线，有可能有一根相交的，能否改成相交的线也填充显视出来，但必须是在同一个层的线才会填充显视。
(自定义  主从线图层一致)

3、在点那根线的时候，线会变成选中状态的或是变成和填充一样的颜色，退出命令后变成原来的。正方形中还有几个正方形时，线没连到里面那个正方形，我也希望它能填充显示出来。

4、线上拉出去了一根，而拉出去的线上又拉出去了一根级，而点任何一根线，这些连在一起的线上的所接的图元都会填充出来
(自定义  搜索深度)

5、还有就是填充的颜色我想改成品红
(自定义  填充索引颜色)

6、用到繁体的系统想改变里面的文字
(自行修改以下这段文字,只能修改双引号的内容,不要删除或者增加双引号)
  (setq s1 '("当前填充索引颜色"       "搜索深度"
   "重新设置"    "填充索引颜色" "当前"
   "选择多段线"    "搜索深度"    "主从线图层一致"
   "是"    "否"
   )
运行命令test后可以按S设置
命令: test
.....当前填充索引颜色=3,搜索深度=3,主从线图层一致=否,<重新设置(S)>:s

除了以上6点的，还有什么问题，最好一次写出来.
加载Acad Tools.VLX，下载地址http://ls0201.ys168.com
保存下面代码为lsp文件，加载运行命令Test

(defun c:Test (/ s1)
(setq s1 '("当前填充索引颜色" "搜索深度"
"重新设置" "填充索引颜色" "当前"
"选择多段线" "搜索深度" "主从线图层一致"
"是" "否"
)
)
(Test20101013 s1)
)

hl2006 · 发表于 2010-10-14 18:59:00

1.

2.

以上1为填充后的正常效果,2是用命令填充后的效果.注意a字线中间有一空白处没显视出来,而i字母上面那一个没有填充出来.而正方形那一段只是打个比方,正方形和其它图形一样,比如a字母外面有一层而内部也有一层挖空.这就是拿正方形打的比方.现在就这个问题了.还有好多字母和图形是几层的.填充时都没显视出来,我一会发个用命中令的效果图.真的非常感谢大哥对我的帮助.现在就这个问题解决了,就基本上解决了问题

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

跪求一LISP程序

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源