pycad 横向，竖向复制文本，直接粘贴到excel

枫叶棋语

# -*- coding: utf-8 -*
from pycad.system import *
from pycad.runtime import *
import clr, System
clr.ImportExtensions(System.Linq)
clr.AddReference('System.Windows.Forms')
from System.Windows.Forms import Clipboard
@command()
def wq(doc):
    #竖向复制文字
    with dbtrans(doc) as tr:
        str=""
        i= 0
        ss=edx.ssget(mode=':A',filters=(0,'*text'))
        if (not ss.ok)and(len(ss.value)):return
        texts=(
            ss.Cast[acdb.ObjectId]()
            .Select(lambda i: tr.getobject(i))
            .OrderBy(lambda t: t.Position.X))
        strlen=len(list(texts))
        for text in  texts:
            i=1+i
            if i !=strlen :
                str=str+text.TextString+"\n"
            else:str=str+text.TextString
        Clipboard.Clear()
        Clipboard.SetText(str)
@command()
def we(doc):
    #横向复制文字
    with dbtrans(doc) as tr:
        str=""
        i= 0
        ss=edx.ssget(mode=':A',filters=(0,'*text'))
        if (not ss.ok)and(len(ss.value)):return
        texts=(
            ss.Cast[acdb.ObjectId]()
            .Select(lambda i: tr.getobject(i))
            .OrderBy(lambda t: t.Position.Y))
        list1=list(texts)
        list1.reverse()
        strlen=len(list1)
        for text in  list1:
            i=1+i
            if i !=strlen :
                str=str+text.TextString+"\n"
            else:str=str+text.TextString
        Clipboard.Clear()
        Clipboard.SetText(str)

664571221

大神你这个是啥语言呀，如何用

枫叶棋语

664571221 发表于 2022-4-13 08:32
大神你这个是啥语言呀，如何用

我刚学习，用的pycad，python