[求助]：entmake block 调试！

Dream.Fei · 发表于 2006-7-25 14:43:36

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

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

×

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

(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 (strcase (USTR 2 "\n请输入剖切号：" deaNo ""))
DwgNo (strcase (USTR 2 "\n请输入剖切图纸号：" DwgNo ""))
)
;;;开始entmake block
(entmake (list '(0 . "BLOCK")
(cons 2 blkm)
'(100 . "AcDbEntity")
'(70 . 2)
(cons 10 pif)
)
)
;;; block 成员之一
(entmake (list
'(0 . "ARC")
'(100 . "AcDbEntity")
'(100 . "AcDbCircle")
'(100 . "AcDbArc")
(cons 10 pic)
'(40 . 525.0)
'(50 . 3.95709)
'(51 . 5.46769)
)
)
;;;block 成员之二
(entmake (list
'(0 . "LINE")
'(100 . "AcDbEntity")
'(100 . "AcDbLine")
(cons 10 pif)
(cons 11 pit)
)
)
;;;block 成员之三
(entmake (list
'(0 . "ARC")
'(5 . "1C5")
'(100 . "AcDbEntity")
'(100 . "AcDbCircle")
(cons 10 pic)
'(40 . 525.0)
'(100 . "AcDbArc")
'(50 . 6.20039)
'(51 . 3.22439)
)
)
;;;定义属性第一个
(entmake (list '(0 . "ATTDEF")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(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")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(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)
)
)
(entmake '((0 . "ENDBLK"))) ;;;结束entmake block
;;; 插块
(entmake
(list '(0 . "INSERT")
(cons 2 blkm)
(cons 10 pif)
'(66 . 1)
)
)
;;;追加属性第一个
(entmake (list '(0 . "ATTRIB")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(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")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(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 . 0)
)
)
;;;结束复杂块
(entmake '((0 . "SEQEND")))
(princ)
)

(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  (strcase (USTR 2 "\n请输入剖切号：" deaNo "")) 
        DwgNo  (strcase (USTR 2 "\n请输入剖切图纸号：" DwgNo "")) 
  ) 
 
;;;开始entmake block 
  (entmake (list '(0 . "BLOCK") 
                 (cons 2 blkm) 
                 '(100 . "AcDbEntity") 
                 '(70 . 2) 
                 (cons 10 pif) 
           ) 
  ) 
 
;;; block 成员 之一 
  (entmake (list 
             '(0 . "ARC") 
             '(100 . "AcDbEntity") 
             '(100 . "AcDbCircle") 
             '(100 . "AcDbArc") 
             (cons 10 pic) 
             '(40 . 525.0) 
             '(50 . 3.95709) 
             '(51 . 5.46769) 
           ) 
  ) 
 
;;;block 成员之二 
  (entmake (list 
             '(0 . "LINE") 
             '(100 . "AcDbEntity") 
             '(100 . "AcDbLine") 
             (cons 10 pif) 
             (cons 11 pit) 
           ) 
  ) 
 
;;;block 成员之三 
  (entmake (list 
             '(0 . "ARC") 
             '(5 . "1C5") 
             '(100 . "AcDbEntity") 
             '(100 . "AcDbCircle") 
             (cons 10 pic) 
             '(40 . 525.0) 
             '(100 . "AcDbArc") 
             '(50 . 6.20039) 
             '(51 . 3.22439) 
           ) 
  ) 
 
;;;定义属性 第一个 
  (entmake (list '(0 . "ATTDEF") 
                 '(100 . "AcDbEntity") 
                 '(100 . "AcDbText") 
                 (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") 
                 '(100 . "AcDbEntity") 
                 '(100 . "AcDbText") 
                 (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) 
           ) 
  ) 
  (entmake '((0 . "ENDBLK")))   ;;;结束entmake block 
 
;;; 插块 
  (entmake 
    (list '(0 . "INSERT") 
          (cons 2 blkm) 
          (cons 10 pif) 
          '(66 . 1) 
    ) 
  ) 
 
;;;追加属性 第一个 
  (entmake (list '(0 . "ATTRIB") 
                 '(100 . "AcDbEntity") 
                 '(100 . "AcDbText") 
                 (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") 
                 '(100 . "AcDbEntity") 
                 '(100 . "AcDbText") 
                 (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 . 0) 
           ) 
  ) 
 
;;;结束复杂块 
  (entmake '((0 . "SEQEND"))) 
  (princ) 
)

hhc_1 · 发表于 2006-7-25 18:10:48

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

aaddff · 发表于 2006-7-25 18:41:06

关注中……

Dream.Fei · 发表于 2006-7-26 08:40:05

最初由 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]

雨箭风刀 · 发表于 2006-7-26 13:54:15

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

Dream.Fei · 发表于 2006-7-27 09:16:13

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

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

雨箭风刀 · 发表于 2006-7-27 13:49:59

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

Dream.Fei · 发表于 2006-7-27 14:09:29

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

ll_j · 发表于 2006-7-27 21:35:37

[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 · 发表于 2006-7-28 00:01:03

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

Dream.Fei · 发表于 2006-7-29 14:41:09

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

无痕 · 发表于 2006-7-29 15:56:03

稍微比较一下就知道了嘛

ll_j · 发表于 2006-7-30 08:43:43

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

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

Dream.Fei · 发表于 2006-8-1 09:36:33

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

无痕 · 发表于 2006-8-19 22:12:47

很久没下文了。。。

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

[求助] [求助]：entmake block 调试！

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

相关帖子