Topic: text entmake problem

[taner]

Dear all,

Please see the attachment,the same lisp code run in the two dwg files,we got different rtesult,why?

Tks!

Taner

[CAB]

Drawing 2 has the text style "Backwards" box checked.

[taner]

Drawing 2 has the text style "Backwards" box checked.

Thanks CAB very much!

change as below is ok.

Code: [Select]

(defun c:emake ()
  (command "style" "mol" "swiss.ttf" "" "" "" "n" "n")
  (entmake '((0 . "TEXT") (100 . "AcDbEntity")
    (67 . 0)
    (8 . "COM")
    (62 . 3)
    (100 . "AcDbText")
    (10 -421.0501190928188 1114.386474490744 0.0)
    (40 . 2.0)
    (1 . "HK639")
    (50 . 0.0)
    (41 . 1.0)
    (51 . 0.0)
    (7 . "mol")
    (71 . 0)
    (72 . 0)
    (11 0.0 0.0 0.0)
    (100 . "AcDbText")
    (73 . 0)
   )
  )
  (entmake '((0 . "TEXT") (100 . "AcDbEntity")
    (67 . 0)
    (8 . "COM")
    (62 . 1)
    (100 . "AcDbText")
    (10 -411.1573992793351 1113.995069490480 0.0)
    (40 . 2.0)
    (1 . "HK639")
    (50 . 0.0)
    (41 . 1.0)
    (51 . 0.0)
    (7 . "mol")
    (71 . 2)
    (72 . 0)
    (11 0.0 0.0 0.0)
    (100 . "AcDbText")
    (73 . 0)
   )
  )
  (entmake '((0 . "TEXT") (100 . "AcDbEntity")
    (67 . 0)
    (8 . "COM")
    (62 . 6)
    (100 . "AcDbText")
    (10 -405.7509388457833 1113.051869709140 0.0)
    (40 . 2.0)
    (1 . "HK639")
    (50 . 0.0)
    (41 . 1.0)
    (51 . 0.0)
    (7 . "mol")
    (71 . 4)
    (72 . 0)
    (11 0.0 0.0 0.0)
    (100 . "AcDbText")
    (73 . 0)
   )
  )
  (princ)
)


[CAB]

You are welcome.