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

使用文本对设备进行编号

你好
 
有谁知道有一个LSP可以在不编辑每一段文本的情况下正确地对下面的选择进行编号？
 
http://i.imgur.com/Rz677qP.png

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

还有一个：
(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

如果使用注释性文字，则会将一个选项设置为查看角度，因此如果旋转所拥有的内容，文字将旋转回水平方向。
页: [1] 2
查看完整版本: 使用文本对设备进行编号