[分享]：论坛有关 “图块” 的帖子集锦（大量网页链接，非宽带莫入）

陌生人 · 发表于 2004-2-15 04:17:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

论坛有关 “图块” 的帖子集锦

***块替换***
[求助]：块替换 http://www.xdcad.net/forum/showt ... d=455186#post455186
ll_j 的 cb.lsp 程序： http://www.xdcad.net/forum/attachment.php?s=&postid=455186
xyzjint_cn 的块替换.lsp http://www.xdcad.net/forum/attachment.php?s=&postid=455746
lsjjm 推荐的国外网站图块相关程序：

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.afralisp.com/newsletter/code/code57.htm">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

myfreemind 的vba程序：
[php]
Dim tkobj As AcadBlockReference
Dim pnt As Variant
Dim entity As AcadEntity
Dim i As Integer
For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next
Dim tkset As AcadSelectionSet
Dim Ftype(0) As Integer
Dim Fdata(0) As Variant
Ftype(0) = 2
Fdata(0) = "GC211"
Set tkset = ThisDrawing.SelectionSets.Add("tksset")
tkset.Select acSelectionSetAll, , , Ftype, Fdata

For Each entity In tkset
'For Each entity In ThisDrawing.ModelSpace
pnt = entity.InsertionPoint
entity.Delete
Set tkobj = ThisDrawing.ModelSpace.InsertBlock(pnt, "gc209.dwg", 1, 1, 1, 0)
Next
End Sub
[/php]

***局部块改名***
[编程申请]：将一种图块中的一部分改名

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&threadid=88764">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

***造无名块***
[讨论]：关于无名块的疑问，请大家指点

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&postid=770563#post770563">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

另一贴：无名块

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&postid=743825#post743825">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

无名块的做法

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&postid=685955#post685955">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

如何将图块文件插入后使其为无名块（如何将有名块变为无名块）

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&postid=708642#post708642">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

******
测试:获得匿名块或组的最大名称。
http://www.xdcad.net/forum/showt ... d=229432#post229432

******
在C#中使用ObjectDBX技术从未打开图形中获得图块的信息
http://www.xdcad.net/forum/showt ... d=739108#post739108

******
一个图块管理程序
http://www.xdcad.net/forum/showt ... y=&pagenumber=1

******
CRTBLE.LSP图块文字编辑
http://www.xdcad.net/forum/showt ... d=511282#post511282

******
图块计数
http://www.xdcad.net/forum/showt ... d=321944#post321944

******
属性值修改程序
http://www.xdcad.net/forum/showt ... d=327671#post327671
ykklms 的 shuxxg.lsp
http://www.xdcad.net/forum/attachment.php?s=&postid=323943
******
对块追加属性

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&postid=332482#post332482">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

******
[分享]：得到块的属性,改块的属性

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&postid=339661#post339661">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

*****
修改图块内所有属性性质
http://www.xdcad.net/forum/showt ... d=220920#post220920
*****
从块中提取出任一属性的任一组码的值
http://www.xdcad.net/forum/showt ... d=229179#post229179
*****
用VLISP遍历块中的各个属性
http://www.xdcad.net/forum/showt ... d=306112#post306112
http://www.xdcad.net/forum/showt ... tid=12741#post12741
******
块属性编辑程序－by hqd9639
http://www.xdcad.net/forum/showt ... d=316303#post316303
*****
用LISP如何把一个图形块文件在插入当前图形时变为无名块!

[php]
;;By LUCAS(龙龙仔)
;;图块改为匿名块
(defun C:TT (/ BLK BLKDEF BLKREF)
  (while
(or (not (setq BLK (car (entsel "\n选择要改为匿名块的图块: "))))
(progn
   (setq BLKREF (vlax-ename->vla-object BLK))
   (not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))
)
)
  )
  (setq
BLKDEF (vla-item (vla-get-blocks
         (vla-get-activedocument (vlax-get-acad-object))
      )
      (vla-get-name BLKREF)
   )
  )
  (vla-put-name BLKDEF "*U")
  (vlax-release-object BLKREF)
  (vlax-release-object BLKDEF)
  (princ)
)

[/php]

*****
序号球程序 (改属性值并插入)

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&postid=160914#post160914">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

cxzr8 · 发表于 2004-3-4 14:39:31

辛苦长老了，受益非浅，学习不尽哪

碧浪可儿 · 发表于 2004-3-4 14:43:35

经典,，学海无涯呀

JOSDENNIS · 发表于 2004-3-5 09:15:26

好貼. 真想不到圖塊有這樣多的學問. 受教了.

xmchy · 发表于 2004-3-27 12:51:19

应该大大的加分!　

wdabo · 发表于 2004-3-31 13:14:54

免费万岁

mylion · 发表于 2004-4-5 09:38:53

向敬业的长老学习致敬！加分！

ywx0576 · 发表于 2004-4-8 12:13:04

请问陌生人长老：你上面的一个个窗口是怎么贴上去的？

心竹 · 发表于 2004-8-3 16:28:54

好贴，今天是来找民工的部分块替换的帖子偶然发现居然还有这么好的一贴

shisj · 发表于 2004-8-3 19:13:58

谢谢了，真是费心了，让我们捡便宜了

andyhua5240 · 发表于 2004-8-4 11:53:20

谢谢长老，花了两个小时看完，获益不少，收获的程序也不少！
谢谢，辛苦了！

guochang · 发表于 2007-12-3 12:13:45

bu neng xiazai
Sub AddAttribute()
' This example creates an attribute definition in model space.

Dim attributeObj As AcadAttribute
Dim height As Double
Dim mode As Long
Dim prompt As String
Dim insertionPoint(0 To 2) As Double
Dim tag As String
Dim value As String

' Define the attribute definition
height = 1#
mode = acAttributeModeVerify
prompt = "New Prompt"
insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0
tag = "NEW_TAG"
value = "New Value"

' Create the attribute definition object in model space
Set attributeObj = ThisDrawing.ModelSpace.AddAttribute(height, mode, prompt, insertionPoint, tag, value)
ZoomAll

End Sub

congcong96 · 发表于 2008-9-18 17:22:57

看看有没有将块里的多义线变成单线的命令

hhy1985 · 发表于 2008-9-21 11:35:46

长见识！多谢！

2sunny2 · 发表于 2008-9-24 12:35:06

看来速度不错，全看到了，多谢

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

[分享]：论坛有关 “图块” 的帖子集锦（大量网页链接，非宽带莫入）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

好阿