lizagen 发表于 2016-1-5 12:57:41

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

(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 发表于 2016-1-5 13:37:34

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

lizagen 发表于 2016-1-5 13:56:17

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

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

知行ooo李肖坪 发表于 2016-1-5 19:58:30

同步学习中………………
页: [1]
查看完整版本: 老师们帮我看看为什么老是DXF码错误？