[求助]：entmake block 调试！

Dream.Fei

以下是我自己写的entmake测试，不知道为什么，增加属性后就不能做成块了，不增加属性就能成块。请帮忙看下，我要做的是一个属性块。
(后面的注释是我自己的理解)

2. 
   
3. (defun c:x1 ()
   
4.   (setq        pif    (getpoint "\n 选择插入点：")
   
5.         pic    (polar pif (angtof "0") 525)
   
6.         pis    (polar pif (angtof "315") 742)
   
7.         pit    (polar pif (angtof "0") (* 2 525))
   
8.         pifo   (polar pif (angtof "45") 742)
   
9.         pitxt1 (polar pic (angtof "90") 200)
   
10.         pitxt2 (polar pic (angtof "270") 200)
    
11.         blkm   (rtos (* (getvar "cdate") 1e7))
    
12.         deaNo  (strcase (USTR 2 "\n请输入剖切号：" deaNo ""))
    
13.         DwgNo  (strcase (USTR 2 "\n请输入剖切图纸号：" DwgNo ""))
    
14.   )
    
15. 
    
16. ;;;开始entmake block
    
17.   (entmake (list '(0 . "BLOCK")
    
18.                  (cons 2 blkm)
    
19.                  '(100 . "AcDbEntity")
    
20.                  '(70 . 2)
    
21.                  (cons 10 pif)
    
22.            )
    
23.   )
    
24. 
    
25. ;;; block 成员 之一
    
26.   (entmake (list
    
27.              '(0 . "ARC")
    
28.              '(100 . "AcDbEntity")
    
29.              '(100 . "AcDbCircle")
    
30.              '(100 . "AcDbArc")
    
31.              (cons 10 pic)
    
32.              '(40 . 525.0)
    
33.              '(50 . 3.95709)
    
34.              '(51 . 5.46769)
    
35.            )
    
36.   )
    
37. 
    
38. ;;;block 成员之二
    
39.   (entmake (list
    
40.              '(0 . "LINE")
    
41.              '(100 . "AcDbEntity")
    
42.              '(100 . "AcDbLine")
    
43.              (cons 10 pif)
    
44.              (cons 11 pit)
    
45.            )
    
46.   )
    
47. 
    
48. ;;;block 成员之三
    
49.   (entmake (list
    
50.              '(0 . "ARC")
    
51.              '(5 . "1C5")
    
52.              '(100 . "AcDbEntity")
    
53.              '(100 . "AcDbCircle")
    
54.              (cons 10 pic)
    
55.              '(40 . 525.0)
    
56.              '(100 . "AcDbArc")
    
57.              '(50 . 6.20039)
    
58.              '(51 . 3.22439)
    
59.            )
    
60.   )
    
61. 
    
62. ;;;定义属性 第一个
    
63.   (entmake (list '(0 . "ATTDEF")
    
64.                  '(100 . "AcDbEntity")
    
65.                  '(100 . "AcDbText")
    
66.                  (cons 10 pitxt1)
    
67.                  '(40 . 180.0)
    
68.                  '(41 . 0.8)
    
69.                  '(1 . "3")
    
70.                  '(72 . 0)
    
71.                  '(11 0.0 0.0 0.0)
    
72.                  '(100 . "AcDbAttributeDefinition")
    
73.                  '(3 . "2")
    
74.                  '(2 . "1")
    
75.                  '(70 . 0)
    
76.            )
    
77.   )
    
78. 
    
79. ;;;定义属性  第二个
    
80.   (entmake (list '(0 . "ATTDEF")
    
81.                  '(100 . "AcDbEntity")
    
82.                  '(100 . "AcDbText")
    
83.                  (cons 10 pitxt2)
    
84.                  '(40 . 180.0)
    
85.                  '(41 . 0.8)
    
86.                  '(1 . "3")
    
87.                  '(72 . 0)
    
88.                  '(11 0.0 0.0 0.0)
    
89.                  '(100 . "AcDbAttributeDefinition")
    
90.                  '(3 . "2")
    
91.                  '(2 . "1")
    
92.                  '(70 . 0)
    
93.            )
    
94.   )
    
95.   (entmake '((0 . "ENDBLK")))   ;;;结束entmake block
    
96. 
    
97. ;;; 插块
    
98.   (entmake
    
99.     (list '(0 . "INSERT")
    
100.           (cons 2 blkm)
     
101.           (cons 10 pif)
     
102.           '(66 . 1)
     
103.     )
     
104.   )
     
105. 
     
106. ;;;追加属性 第一个
     
107.   (entmake (list '(0 . "ATTRIB")
     
108.                  '(100 . "AcDbEntity")
     
109.                  '(100 . "AcDbText")
     
110.                  (cons 11 pitxt1)
     
111.                  '(10 0.0 0.0 0.0)
     
112.                  '(40 . 180.0)
     
113.                  (cons 1 deano)
     
114.                  '(7 . "text")
     
115.                  '(41 . 0.8)
     
116.                  '(72 . 4)
     
117.                  '(100 . "AcDbattribute")
     
118.                  '(2 . "大样号")
     
119.                  '(70 . 0)
     
120.            )
     
121.   )
     
122. 
     
123. ;;;追加属性第二个
     
124.   (entmake (list '(0 . "ATTRIB")
     
125.                  '(100 . "AcDbEntity")
     
126.                  '(100 . "AcDbText")
     
127.                  (cons 11 pitxt2)
     
128.                  '(10 0.0 0.0 0.0)
     
129.                  '(40 . 180)
     
130.                  (cons 1 dwgno)
     
131.                  '(7 . "text")
     
132.                  '(41 . 0.8)
     
133.                  '(72 . 4)
     
134.                  '(100 . "AcDbattribute")
     
135.                  '(2 . "图纸号")
     
136.                  '(70 . 0)
     
137.            )
     
138.   )
     
139. 
     
140. ;;;结束复杂块
     
141.   (entmake '((0 . "SEQEND")))
     
142.   (princ)
     
143. )
     
144. 
     

<br /> (defun c:x1 ()<br />   (setq        pif    (getpoint "\n 选择插入点：")<br />         pic    (polar pif (angtof "0") 525)<br />         pis    (polar pif (angtof "315") 742)<br />         pit    (polar pif (angtof "0") (* 2 525))<br />         pifo   (polar pif (angtof "45") 742)<br />         pitxt1 (polar pic (angtof "90") 200)<br />         pitxt2 (polar pic (angtof "270") 200)<br />         blkm   (rtos (* (getvar "cdate") 1e7))<br />         deaNo  (strcase (USTR 2 "\n请输入剖切号：" deaNo ""))<br />         DwgNo  (strcase (USTR 2 "\n请输入剖切图纸号：" DwgNo ""))<br />   )<br /> <br /> ;;;开始entmake block<br />   (entmake (list '(0 . "BLOCK")<br />                  (cons 2 blkm)<br />                  '(100 . "AcDbEntity")<br />                  '(70 . 2)<br />                  (cons 10 pif)<br />            )<br />   )<br /> <br /> ;;; block 成员 之一<br />   (entmake (list<br />              '(0 . "ARC")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbCircle")<br />              '(100 . "AcDbArc")<br />              (cons 10 pic)<br />              '(40 . 525.0)<br />              '(50 . 3.95709)<br />              '(51 . 5.46769)<br />            )<br />   )<br /> <br /> ;;;block 成员之二<br />   (entmake (list<br />              '(0 . "LINE")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbLine")<br />              (cons 10 pif)<br />              (cons 11 pit)<br />            )<br />   )<br /> <br /> ;;;block 成员之三<br />   (entmake (list<br />              '(0 . "ARC")<br />              '(5 . "1C5")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbCircle")<br />              (cons 10 pic)<br />              '(40 . 525.0)<br />              '(100 . "AcDbArc")<br />              '(50 . 6.20039)<br />              '(51 . 3.22439)<br />            )<br />   )<br /> <br /> ;;;定义属性 第一个<br />   (entmake (list '(0 . "ATTDEF")<br />                  '(100 . "AcDbEntity")<br />                  '(100 . "AcDbText")<br />                  (cons 10 pitxt1)<br />                  '(40 . 180.0)<br />                  '(41 . 0.8)<br />                  '(1 . "3")<br />                  '(72 . 0)<br />                  '(11 0.0 0.0 0.0)<br />                  '(100 . "AcDbAttributeDefinition")<br />                  '(3 . "2")<br />                  '(2 . "1")<br />                  '(70 . 0)<br />            )<br />   )<br /> <br /> ;;;定义属性  第二个<br />   (entmake (list '(0 . "ATTDEF")<br />                  '(100 . "AcDbEntity")<br />                  '(100 . "AcDbText")<br />                  (cons 10 pitxt2)<br />                  '(40 . 180.0)<br />                  '(41 . 0.8)<br />                  '(1 . "3")<br />                  '(72 . 0)<br />                  '(11 0.0 0.0 0.0)<br />                  '(100 . "AcDbAttributeDefinition")<br />                  '(3 . "2")<br />                  '(2 . "1")<br />                  '(70 . 0)<br />            )<br />   )<br />   (entmake '((0 . "ENDBLK")))   ;;;结束entmake block<br /> <br /> ;;; 插块<br />   (entmake<br />     (list '(0 . "INSERT")<br />           (cons 2 blkm)<br />           (cons 10 pif)<br />           '(66 . 1)<br />     )<br />   )<br /> <br /> ;;;追加属性 第一个<br />   (entmake (list '(0 . "ATTRIB")<br />                  '(100 . "AcDbEntity")<br />                  '(100 . "AcDbText")<br />                  (cons 11 pitxt1)<br />                  '(10 0.0 0.0 0.0)<br />                  '(40 . 180.0)<br />                  (cons 1 deano)<br />                  '(7 . "text")<br />                  '(41 . 0.8)<br />                  '(72 . 4)<br />                  '(100 . "AcDbattribute")<br />                  '(2 . "大样号")<br />                  '(70 . 0)<br />            )<br />   )<br /> <br /> ;;;追加属性第二个<br />   (entmake (list '(0 . "ATTRIB")<br />                  '(100 . "AcDbEntity")<br />                  '(100 . "AcDbText")<br />                  (cons 11 pitxt2)<br />                  '(10 0.0 0.0 0.0)<br />                  '(40 . 180)<br />                  (cons 1 dwgno)<br />                  '(7 . "text")<br />                  '(41 . 0.8)<br />                  '(72 . 4)<br />                  '(100 . "AcDbattribute")<br />                  '(2 . "图纸号")<br />                  '(70 . 0)<br />            )<br />   )<br /> <br /> ;;;结束复杂块<br />   (entmake '((0 . "SEQEND")))<br />   (princ)<br /> )<br /> <br />

hhc_1

"ATTRIB"与"ATTDEF"有什么不一样吗,如果一样的话,为什么CAD要搞这两个名称.楼主的程序无法调试,USTR未定义
我喜欢用command生成图块:
(command "-block" 图块名 插入点 en1 en2 en3  "")

aaddff

关注中……

Dream.Fei

最初由 hhc_1 发布
[B]"ATTRIB"与"ATTDEF"有什么不一样吗,如果一样的话,为什么CAD要搞这两个名称.楼主的程序无法调试,USTR未定义
我喜欢用command生成图块:
(command "-block" 图块名 插入点 en1 en2 en3  "") [/B]

1、ATTDEF与ATTRIB究竟有什么区别，我也不知道。我这个是根据晓东CAD里一位兄弟给我的程序改写的。

2、USTR为XYP版主的一个通用程序。

3、我主要是做ENTMAKE，而不是调用CAD原有的命令。

附上USTR的定义：
[php]
(defun ustr (bit msg def spflag / inp nval)
  (if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">:")
          inp (getstring msg spflag)
          inp (if (= inp "")
                def
                inp
              )
    )
    (progn
      (setq msg (strcat "\n" msg ": "))
      (if (= bit 1)
        (while (= "" (setq inp (getstring msg spflag))))
        (setq inp (getstring msg spflag))
      )
    )
  )
  (if inp
    inp
    def
  )
)
[/php]

雨箭风刀

整来整去的,干脆搞一个程序,根据拾取的图块为参照,自动生成参数程序好了.

Dream.Fei

我是想做一个剖面程序，然后自动生成的大样号和图纸号要成一个属性块。如果说我在生成了图元后还要手动去把他做成块。那样的话，与我没做程序有什么区别？

做程序的时候虽然是很复杂，但是用的时候就会方便很多啊。我不怕程序复杂，就怕用复杂。

雨箭风刀

我说的是一种方法,你说的是一种方式 :)

Dream.Fei

呵呵，有没有空帮我搞定顶楼的问题？

ll_j

[php](defun c:x1 ()
  (setq        pif    (getpoint "\n 选择插入点：")
        pic    (polar pif (angtof "0") 525)
        pis    (polar pif (angtof "315") 742)
        pit    (polar pif (angtof "0") (* 2 525))
        pifo   (polar pif (angtof "45") 742)
        pitxt1 (polar pic (angtof "90") 200)
        pitxt2 (polar pic (angtof "270") 200)
        blkm   (rtos (* (getvar "cdate") 1e7))
        deaNo  " deaNo "
        DwgNo  " DwgNo "
  )

;;;开始entmake block
  (entmake (list '(0 . "BLOCK")
                 (cons 2 "*U")
                 '(100 . "AcDbBlockBegin")
                 '(70 . 3)
                 (cons 10 pif)
           )
  )

;;; block 成员 之一
  (entmake (list
             '(0 . "ARC")
             '(100 . "AcDbArc")
             (cons 10 pic)
             '(40 . 525.0)
             '(50 . 3.95709)
             '(51 . 5.46769)
           )
  )

;;;block 成员之二
  (entmake (list
             '(0 . "LINE")
             '(100 . "AcDbLine")
             (cons 10 pif)
             (cons 11 pit)
           )
  )

;;;block 成员之三
  (entmake (list
             '(0 . "ARC")
             (cons 10 pic)
             '(40 . 525.0)
             '(100 . "AcDbArc")
             '(50 . 6.20039)
             '(51 . 3.22439)
           )
  )

;;;定义属性 第一个
  (entmake (list '(0 . "ATTDEF")
                 (cons 10 pitxt1)
                 '(40 . 180.0)
                 '(41 . 0.8)
                 '(1 . "3")
                 '(72 . 0)
                 '(11 0.0 0.0 0.0)
                 '(100 . "AcDbAttributeDefinition")
                 '(3 . "2")
                 '(2 . "1")
                 '(70 . 0)
           )
  )

;;;定义属性  第二个
  (entmake (list '(0 . "ATTDEF")
                 (cons 10 pitxt2)
                 '(40 . 180.0)
                 '(41 . 0.8)
                 '(1 . "3")
                 '(72 . 0)
                 '(11 0.0 0.0 0.0)
                 '(100 . "AcDbAttributeDefinition")
                 '(3 . "2")
                 '(2 . "1")
                 '(70 . 0)
           )
  )
  (setq blk(entmake '((0 . "ENDBLK")))  ) ;;;结束entmake block

;;; 插块
  (entmake
    (list '(0 . "INSERT")
          (cons 2 blk)
          (cons 10 pif)
         '(100 . "AcDbBlockReference")
          '(66 . 1)
    )
  )

;;;追加属性 第一个
  (entmake (list '(0 . "ATTRIB")
                 (cons 10 pitxt1)
                 (cons 11 pitxt1)
;                 '(10 0.0 0.0 0.0)
                 '(40 . 180.0)
                 (cons 1 deano)
;                 '(7 . "text")
                 '(41 . 0.8)
                 '(72 . 4)
                 '(100 . "AcDbattribute")
                 '(2 . "大样号")
                 '(70 . 0)
           )
  )

;;;追加属性第二个
  (entmake (list '(0 . "ATTRIB")
                 (cons 10 pitxt2)
                 (cons 11 pitxt2)
;                 '(10 0.0 0.0 0.0)
                 '(40 . 180)
                 (cons 1 dwgno)
;                 '(7 . "text")
                 '(41 . 0.8)
                 '(72 . 4)
                 '(100 . "AcDbattribute")
                 '(2 . "图纸号")
                 '(70 . 2)
           )
  )

;;;结束复杂块
  (entmake '((0 . "SEQEND")))

  (princ)
)
[/php]

cy956

我也用block直接成块。entmake做块太麻烦了。

Dream.Fei

ll_j，为什么成块后只能更改一个属性？另一个属性呢？另：能指出你更改了哪些部位吗？

无痕

稍微比较一下就知道了嘛

ll_j

最初由 Dream.Fei 发布
[B]ll_j，为什么成块后只能更改一个属性？另一个属性呢？另：能指出你更改了哪些部位吗？ [/B]

DWGNo属性被我设置为固定了（70组码）。
注意，在高版本的DXF组码中，100组码很重要。

Dream.Fei

另一个问题，关于选择集。因为5楼的兄弟也说了，可以用选择集。但是对于需要entmake多个图元的时候，怎么样才能这些图元成为一个选择集呢？难道每entmake一次添加到选择集一次吗？

无痕

很久没下文了。。。