使用文本对设备进行编号

ryankevin15 · 发表于 2022-7-5 16:06:47

你好

有谁知道有一个LSP可以在不编辑每一段文本的情况下正确地对下面的选择进行编号？

登录/注册后可看大图

ryankevin15 · 发表于 2022-7-5 16:13:31

还有，有人知道你是否可以将整个选择旋转90度，文本也随之旋转？如果可能的话，我希望这是一个完全独立的LSP。谢谢

Steven P · 发表于 2022-7-5 16:23:01

要创建一个数组并增加每个数字，请查看Lee Macs Informaray lisp和Informaray

Steven P · 发表于 2022-7-5 16:28:41

至于你的第二个问题，我取决于你需要做多少次，我只需要旋转它，然后使用“属性”菜单来设置文本旋转。。但可能有一种聪明的方法可以一次性完成这一切

asos2000 · 发表于 2022-7-5 16:33:43

使用Express命令t计数

这些Lisp程序
http://www.lee-mac.com/incrementalarray.html
http://www.lee-mac.com/numinc.html

ryankevin15 · 发表于 2022-7-5 16:38:30

不是我想要的，而是谢谢你的回复。

我正在寻找一个LISP，我选择所有的文本对象，它可以从第一个数字到最后一个文本对象的增量为1。我不喜欢数组。

ryankevin15 · 发表于 2022-7-5 16:48:06

t计数效果很好。谢谢

ronjonp · 发表于 2022-7-5 16:54:31

还有一个：

copy

(defun c:number        (/ i s)
 (setq i 0)
 (if (and (setq s (ssget ":L" '((0 . "text")))))
   (foreach e
     (vl-sort (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
              '(lambda (a b) (> (caddr (assoc 10 (entget a))) (caddr (assoc 10 (entget b)))))
     )
     (entmod (append (entget e) (list (cons 1 (itoa (setq i (1+ i)))))))
   )
 )
 (princ)
)

Lee Mac · 发表于 2022-7-5 16:56:24

还有这个。

BIGAL · 发表于 2022-7-5 17:01:45

如果使用注释性文字，则会将一个选项设置为查看角度，因此如果旋转所拥有的内容，文字将旋转回水平方向。

[编程交流] 使用文本对设备进行编号

发表回复

精选推荐