'attdef.Prompt = "25" attdef.TextString = "0000" attdef.Tag = "Number" attdef.Invisible = False 'attdef.Verifiable = False 'attdef.Preset = False 'attdef.Constant = False record.Origin = points(3) 'record.AppendEntity(attdef) 粗体的都有错误,看来没有办法了,只能用COM了,COM我有不太会,版主能否帮我写点提示。 |