[痛哭流涕的求]："EntMake 增强属性块"编程申请

Dream.Fei

目的：

通过lsp语言entmake出一个rec、一个attdef或attrib，然后再把这二个图元变成一个块。


要求：

1、当双击这个块时，不能出现refedit，而应该是“增强属性编辑器”。

2、程序能在一个DWG文件中运行多次，后面生成的块不能因为是同名块而改变前面的块（因为attdef可能会有不同的数值）。

eachy

多看，尤其是“论坛精华”区。论坛上早就有过代码，下面是最近的一个
http://www.xdcad.net/forum/showthread.php?s=&threadid=562307

ll_j

最初由 Dream.Fei 发布
[B]目的：

通过lsp语言entmake出一个rec、一个attdef或attrib，然后再把这二个图元变成一个块。


要求：

1、当双击这个块时，不能出现refedit，而应该是“增强属性编辑器”。

2、程序能在一个DWG文件中运?.. [/B]

先说点概念给你提个醒，用Entmake构建一个块，这里所说的块可能是两个概念，其一是 BLOCK ，其二是 INSERT ，定义时都可以包含属性，但根本是不同的，关于构建BLOCK，可以参考一下构建无名块的例子，而直接构建包含属性的INSERT，是利用了属性的一种特殊形式，可以看看2楼回帖中的一些例子。
Entmake构建的BLOCK可以像其它块一样插入，插入后的块是正常的包含属性的块，双击激活“增强属性编辑器”，而由enmake之间构建的包含属性的INSERT，属性与块实际上是“分离”的，双击只能激活“块编辑器”，好像R2007已经能识别这种“属性块”，双击不再调用“块编辑器”了。
如果构建BLOCK，后面的块必须与前面的块不同名称，对于有名称的块需要给一个算法（比如时间），对于无名块，名称由系统指定，但后期使用有一定难度。
至于直接构建INSERT，实际上是将原来不相干的块与属性结合，也应该先构建BLOCK，起名规则与构建BLOCK是相同的，优点就是属性使用起来更灵活一些。

Dream.Fei

多谢二位老大的提醒，可是我是个新手，就是看不懂怎么做entmake block 才发这贴的啊。

我把程序发上来，你们帮我组合一下，好吗？

entmake rec (参数 ptrf ptrs ptrt ptrtxt 可以不预考虑，这是在程序运行中通过点选或是计算得出来的，没有错误，pngreno 是运行时输入的字符，估计这步有点问题，因为属性文字在做成增强块后，它会有提示让你再输入一次。)

2. 
   
3. (defun entmakepngrevno ()
   
4.   (setq ptrtxt (polar ptrf (angtof "30") 5))
   
5.   (entmake (list
   
6.              '(0 . "LWPOLYLINE")
   
7.              '(100 . "AcDbEntity")
   
8.              '(100 . "AcDbPolyline")
   
9.              '(90 . 3)
   
10.              (cons 10 ptrf)
    
11.              (cons 10 ptrs)
    
12.              (cons 10 ptrt)
    
13.              (cons 10 ptrf)
    
14.            )
    
15.   )
    
16.   (entmake (list
    
17.              '(0 . "ATTDEF")
    
18.              '(100 . "AcDbEntity")
    
19.              '(100 . "AcDbText")
    
20.              (cons 11 ptrtxt)
    
21.              '(10 0.0 0.0 0.0)
    
22.              '(40 . 3.5)
    
23.              (cons 1 PngReNo)
    
24.              (cons 3 PngReNo)
    
25.              '(2 . "RevNo")
    
26.              '(72 . 4)
    
27.              '(100 . "AcDbAttributeDefinition")
    
28.              '(70 . 4)
    
29.            )
    
30.   )
    
31. )
    

<br /> (defun entmakepngrevno ()<br />   (setq ptrtxt (polar ptrf (angtof "30") 5))<br />   (entmake (list<br />              '(0 . "LWPOLYLINE")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbPolyline")<br />              '(90 . 3)<br />              (cons 10 ptrf)<br />              (cons 10 ptrs)<br />              (cons 10 ptrt)<br />              (cons 10 ptrf)<br />            )<br />   )<br />   (entmake (list<br />              '(0 . "ATTDEF")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbText")<br />              (cons 11 ptrtxt)<br />              '(10 0.0 0.0 0.0)<br />              '(40 . 3.5)<br />              (cons 1 PngReNo)<br />              (cons 3 PngReNo)<br />              '(2 . "RevNo")<br />              '(72 . 4)<br />              '(100 . "AcDbAttributeDefinition")<br />              '(70 . 4)<br />            )<br />   )<br /> )<br />

这是我在网上找到的entmake block

2. 
   
3. (defun c:MB2 (/ tmp ss ip)
   
4.   (if
   
5.     (and
   
6.       (setq ip (getpoint "Pick Insertion Point (<0,0,0>): "))
   
7.       (setq ss (ssget))
   
8.     )
   
9.      (progn
   
10.        (entmake        (list '(0 . "BLOCK")
    
11.                       '(2 . "*u")
    
12.                       '(100 . "AcDbEntity")
    
13.                       '(100 . "AcDbBlockBegin")
    
14.                       '(70 . 1)
    
15.                       (cons '10 ip)
    
16.                 )
    
17.        )
    
18.        (setq cnt (sslength ss))
    
19.        (while (>= (setq cnt (1- cnt)) 0)
    
20.          (progn
    
21.            (setq tmp (ssname ss cnt))
    
22.            (entmake (entget tmp))
    
23.            (entdel tmp)
    
24.          )
    
25.        )
    
26.        (setq tmp (entmake '((0 . "ENDBLK"))))
    
27.        (entmake (list '(0 . "INSERT") '(2 . "*u") (cons '10 ip)))
    
28.      )
    
29.   )
    
30. )
    

<br /> (defun c:MB2 (/ tmp ss ip)<br />   (if<br />     (and<br />       (setq ip (getpoint "Pick Insertion Point (<0,0,0>): "))<br />       (setq ss (ssget))<br />     )<br />      (progn<br />        (entmake        (list '(0 . "BLOCK")<br />                       '(2 . "*u")<br />                       '(100 . "AcDbEntity")<br />                       '(100 . "AcDbBlockBegin")<br />                       '(70 . 1)<br />                       (cons '10 ip)<br />                 )<br />        )<br />        (setq cnt (sslength ss))<br />        (while (>= (setq cnt (1- cnt)) 0)<br />          (progn<br />            (setq tmp (ssname ss cnt))<br />            (entmake (entget tmp))<br />            (entdel tmp)<br />          )<br />        )<br />        (setq tmp (entmake '((0 . "ENDBLK"))))<br />        (entmake (list '(0 . "INSERT") '(2 . "*u") (cons '10 ip)))<br />      )<br />   )<br /> )<br />

flh1314

看不懂！

Dream.Fei

怎么没人帮我解决下啊~~~~

雨箭风刀

做块包含属性定义
插块先插后跟属性实体

Dream.Fei

你只要帮我把上面的组装起来或是写出一个更简单的就行了。我要的就是一个rec、一个attdef 做成一个增强属性块！

雨箭风刀

属性块就是属性块，你一说增强属性块我就犯糊涂。。。。
[PHP]
(defun c:tt (/ tmp ss ip)
  (setq pt1  (getpoint "\n 第1点:")
        pt2  (getpoint pt1 "\n 第2点:")
        pt3  (getpoint pt2 "\n 第3点:")
        pt4  (getpoint pt3 "\n 第3点:")
        ptt  (polar pt1 (angtof "30") 50)
        ip   (getpoint "\n 块插入点:")
        attv (getstring "\n 属性值:")
        ipp  (mapcar '- ptt pt1)
        p$   "a"
        blkn (rtos (* (getvar "cdate") 1e8))
  )
  (entmake (list '(0 . "BLOCK") (cons 2 blkn) '(100 . "AcDbEntity") '(70 . 2) (cons 10 pt1)))
  (entmake (list '(0 . "LWPOLYLINE")
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbPolyline")
                 '(90 . 3)
                 '(70 . 1)
                 (cons 10 pt1)
                 (cons 10 pt2)
                 (cons 10 pt3)
                 (cons 10 pt4)
           )
  )
  (entmake (list '(0 . "ATTDEF")
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbText")
                 (cons 10 ptt)
                 '(40 . 350.)
                 (cons 1 "")
                 (cons 3 p$)
                 '(2 . "RevNo")
                 '(72 . 0)
                 '(100 . "AcDbattributeDefinition")
                 '(70 . 0)
           )
  )
  (entmake '((0 . "ENDBLK")))
  (entmake (list '(0 . "INSERT") (cons 2 blkn) (cons 10 ip) '(66 . 1)))
  (entmake (list '(0 . "ATTRIB")
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbText")
                 (cons 10 (mapcar '+ ip ipp))
                 '(40 . 350.0)
                 (cons 1 attv)
                 '(72 . 0)
                 '(100 . "AcDbattribute")
                 '(2 . "REVNO")
                 '(70 . 0)
           )
  )
  (entmake '((0 . "SEQEND")))
  (princ)
)

[/PHP]

Dream.Fei

多谢楼上的大哥了~ 试过，可行。

但是有一个小问题，就是在输入属性值的时候，不能用回车来完成，如果直接回车的话，就不能做成块了。有办法解决吗？

另：文字的对齐 dxf 72 设成4 为什么文字会不显示呢？attdef、attrib都改成4也同样不显示。

雨箭风刀

就是在输入属性值的时候，不能用回车来完成，
你的属性值是默认的么？
72 设成4   要添加 11 组码才行。

aeo

最初由 ll_j 发布
而由enmake之间构建的包含属性的INSERT，属性与块实际上是“分离”的，双击只能激活“块编辑器”，

entmake 可以生成一个"没有属性的块定义" 的"带属性的块插入"

block -->没attdef
entmake -->insert可以加入attrib

双击编辑时,由于块定义中没属性定义,所以没法打开属性编辑框

Dallas_whu

如果想做成无名块，该怎么搞呢？

雨箭风刀

用"*U"做块名

jx2008

上面的程序不能建立属性快，

命令: sxk
第1点:
第2点:
第3点:
第3点:
块插入点:
属性值:2
无法嵌套块定义。错误 : DXF 组不正确: (10)
命令: