菜鸟求教：怎么指定“宽度因子”？

fatkids

各位好！

       我在程序里面指定了文字样式，可是发现“宽度因子”不对。我预设的文字样式“宽度因子”为0.7，但是我通过程序指定TextStyleId后发现“宽度因子”变成了1.0。怎么通过程序指定呢？

       谢谢啊！

琴剑江山_10184

(defun c:kuu()
  (setq ent(entget (car (entsel))))
  (setq ge (getdist "\n输入文字宽度:"))
  (entmod (subst (cons 41 ge) (assoc 41 ent) ent))
  (princ)
  )
点选文字，直接改宽度
  

雪山飞狐_lzh

2.         [CommandMethod("t2")]
   
3.         public static void Test2()
   
4.         {
   
5. 
   
6.             using (var tr = new DBTransaction())
   
7.             {
   
8.                 var tsid = tr.TextStyleTable.Add("Test1", "gbenor.shx", "gbcbig.shx", 0.7);
   
9.                 var btr = tr.OpenModelSpace();
   
10.                 var tstr = tr.TextStyleTable["Test1"].GetObject<TextStyleTableRecord>(tr);
    
11. 
    
12.                 var txt =
    
13.                     new DBText
    
14.                     {
    
15.                         TextStyleId = tsid,
    
16.                         TextString = "hello",
    
17.                         Position = new Point3d(10,10,0),
    
18.                         WidthFactor = 0.7,
    
19.                     };
    
20. 
    
21.                 tr.AddEntity(btr, txt);
    
22.             }
    
23. 
    
24.         }

        [CommandMethod("t2")]<br />         public static void Test2()<br />         {<br /> <br />             using (var tr = new DBTransaction())<br />             {<br />                 var tsid = tr.TextStyleTable.Add("Test1", "gbenor.shx", "gbcbig.shx", 0.7);<br />                 var btr = tr.OpenModelSpace();<br />                 var tstr = tr.TextStyleTable["Test1"].GetObject<TextStyleTableRecord>(tr);<br /> <br />                 var txt = <br />                     new DBText<br />                     {<br />                         TextStyleId = tsid,<br />                         TextString = "hello",<br />                         Position = new Point3d(10,10,0),<br />                         WidthFactor = 0.7,<br />                     };<br /> <br />                 tr.AddEntity(btr, txt);<br />             }<br /> <br />         }

reyun

把你写的程序贴上来。

fatkids

我的代码：
Dim bt As BlockTable = trans.GetObject(dwg.BlockTableId, OpenMode.ForRead)
Dim btrMs As BlockTableRecord = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
Dim tst As TextStyleTable = trans.GetObject(dwg.TextStyleTableId, OpenMode.ForRead) '获取字体样式集合

Dim tech_req_pt As Point3d '插入点
                    
                        Dim Tech_req_head As MText = New MText()
                        Tech_req_head.Contents = "          技术要求"
                        Tech_req_head.TextHeight = 350
                        'Tech_req.SetAttachmentMovingLocation(AttachmentPoint.MiddleCenter)
                        tech_req_pt = New Point3d(sheet_pt(0) + sheet - 8000, sheet_pt(1) + 13850, 0)
                        Tech_req_head.Location = tech_req_pt
                        Tech_req_head.Layer = "JY"
                        Tech_req_head.ColorIndex = 81
                        Tech_req_head.TextStyleId = tst("HZ")‘该样式是已经制定好的
                        btrMs.AppendEntity(Tech_req_head)
                        trans.AddNewlyCreatedDBObject(Tech_req_head, True)

fatkids

雪山飞狐_lzh 发表于 2014-8-26 19:54

感谢飞狐！