菜鸟求调试！

Dream.Fei · 发表于 2006-7-24 17:16:17

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

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

×

以下是我自己写的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) 
)

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

菜鸟求调试！

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

相关帖子