老师们帮我看看为什么老是DXF码错误？

lizagen

(defun c:InsertMtext ( / MTextInsertPoint Wmttext Hmttext)
  (setq Wmttext 1.35
        Hmttext 15.6
        Htext   2.0
        MTextInsertPoint (list 3019.4 1056.8 0.0)
        )
  (setq        MTextEnt (list
                   '(0 . "MTEXT")
                   '(100 . "AcDbEntity")
                   '(67 . 0)
                   '(8 . "文字")
                   '(100 . "AcDbMText")
                   (cons 10 MTextInsertPoint)
                   (cons 40 Htext)
                   (cons 41 Wmttext)
                   '(46 . 0.0)
                   '(71 . 3)
                   '(72 . 5)
                   '(1 . "设计中心线")
                   '(7 . "面积文字")
                   '(210 0.0 0.0 1.0)
                   '(11 1.0 0.0 0.0)
                   (cons 42 Wmttext)
                   (cons 43 Hmttext)
                   '(50 . 0.0)
                   '(73 . 1)
                   '(44 . 1.0)
                 )
  )
  (entmake MTextInsertPoint)
)

waterchen

代码没问题，你有个变量搞错了。(entmake MTextInsertPoint)改为(entmake MTextEnt)就可以了。

lizagen

waterchen 发表于 2016-1-5 13:37
代码没问题，你有个变量搞错了。(entmake MTextInsertPoint)改为(entmake MTextEnt)就可以了。

多谢，多谢，我看了两个小时就是没有看出来，我说奇怪了。

知行ooo李肖坪

同步学习中………………