点上的高度
您好，我发现了一个代码，可以从点的Z值创建文本。但我无法从Z值生成文本，并在高度前面放置SL，如SL45.12，有谁能帮助代码如下：（德文c:zheight45（）
（setvar“cmdecho”0）
（setq u 0）
（setq numss（sslength（setq ss（ssget）））
（setq th（cdr（assoc 40（tblsearch“STYLE”“HEIGHT”）））
（ls“高度”）
（命令“style”“height”“”“”）
（而（/=numss 0）
（setq numss（1-numss））
（setq etl（entget（ssname ss numss）））
（如果（=“插入”（cdr（assoc'0 etl）））
（progn；；仅对块执行此操作
（setq u（1+u））
（setq hgt（cadddr（assoc 10 etl）））
（如果（/=hgt 0.0）
（progn（setq hgtx（rtos hgt 2 2））
（setq p1（2d（极性（trans（cdr（assoc 10 etl））0 1）0.0 th）））
（命令“text”p1 45.0 hgtx）
)
)
)
)
)
（普林斯）
)
页:
[1]