请各位大虾们看一下，为什么同样的程序在两个图纸中的表现却不同，已对比了388个变量

革天明

请各位看一下，同样的程序，在经下两个图纸中表现的却不一样，已经对比了388个系统变量，尝试将系统变量不同的改成一样的，可结果还是不相同。应该和字体关系不大，现在正常的图纸有7成，不正常的有3成，却不知道为什么不正常。
大家在测试时先安装字体，对于打印不正常的不必考虑，那是因为打印机名字不对而已，只用考虑打出来字的方向，我在程序中没有设置字的方向，使用entmake也得不到正确的结果。请大虾支招！！！

;;---------------------------------------------------------------------
(DEFUN C:W (/ PT1 PT2)
  (command "-purge" "a" "" "n")
  (command "-purge" "a" "" "n")
  (command "-purge" "a" "" "n")
  (SETVAR "CMDECHO" 0)
  (COMMAND "-style" "mystyle1" "maozedong.ttf" 5 1 0 "N" "N")
  (SETQ PT1 (GETPOINT "\n请输入一点:"))
  (SETQ PT2 (LIST (+ (CAR PT1) 177) (- (CADR PT1) 250)))
  ;;(SETQ PT2 (GETCORNER PT1 "\n请输入另一点:"))
  (SETQ PT3 (LIST (+ (CAR PT1) 3) (- (CADR PT1) 135)))
  (setq pt4 (list (+ (CAR PT1) 8) (- (CADR PT1) 150)))
  (SETQ NN (GETINT "\n请输入要打印的份数<1>:"))
  (IF (= NN NIL)
    (SETQ NN 1)
  )
  (setq
    zd-gyy "测试测试"
  )
  (REPEAT NN
    (SETVAR "CMDDIA" 0)
    (setvar "osmode" 0)
    ;;(setvar "uscvp" "1")
    ;;(setvar "dimadec" 0)
    ;;(setq old_lay (getvar "clayer"))
    ;;(setvar "clayer" "0")
    (command "-Mtext" pt3 pt4 zd-gyy "")
    ;|(entmake
      (list '(0 . "MTEXT")
     '(100 . "AcDbEntity")
     '(100 . "AcDbMText")
     '(7 . "mystyle")
     (cons 1 txt1dy)
     (cons 10
    (list
      (+ (car (nth 40 (ptlistdy FPdy))) (car FPdy))
      (+ 5 (cadr (nth 40 (ptlistdy FPdy))) (cadr FPdy))
    )
     )
      )
    )|;
    (setq era1 (entlast))
    (COMMAND "_PLOT"   "Y"  ""    "HP LaserJet P1007"
      "A5"      "M"  "P"    "N"      "W"
      PT1       PT2  "F"    ""      "Y"
      "monochrome.ctb"  "Y"    "W"      "N"
      "N"       "Y"
     )
    (SETVAR "CMDDIA" 1)
    (SETVAR "CMDECHO" 1)
  )
  (setvar "osmode" 16383)
  ;;(command "layer" "set" old_lay "")
  (COMMAND "-style" "mystyle" "Times New Roman" 5 1 0 "N" "N")
  (PRINC "\nOK!")
  (PRINC)
)
;;---------------------------------------------------------------------

下图左侧是我想要的结果，右侧为不正常的情况

ZZXXQQ

在STYLE设置字体时你提供的文字文件分成了两个字体，一个带@一个不带。带@的字体就是竖排版。

革天明

good.dwg是正常运行的图纸，bad.dwg是出错的图纸

革天明

ZZXXQQ 发表于 2012-6-13 22:47
在STYLE设置字体时你提供的文字文件分成了两个字体，一个带@一个不带。带@的字体就是竖排版。

(COMMAND "-style" "mystyle1" "maozedong.ttf" 5 1 0 "N" "N")
是这一句吗？“分成两个字体”这是怎么分的，如何避免出现竖排的情况？