longer1000 发表于 2014-1-5 16:14:26

矩形框内文字批量随矩形框的图层

求高手帮忙，将已区分好的图层矩形框、任意层的文字编号，求一LSP运行，将矩形框内的文字修改为对应的矩形框的图层

q3_2006 发表于 2014-1-5 16:14:27

(defun c:tt ( / e i ly pts se ss x)
      (vl-load-com)
      (vl-cmdf "undo" "be")
      (setq ss (ssget '((0 . "*POLYLINE"))) i -1)
      (while (setq e (ssname ss (setq i (1+ i))))
                (setq pts (mapcar 'cdr(vl-remove-if-not '(lambda (x) (= (car x) 10))(entget e)))
                ly (Vlax-Get (Vlax-Ename->Vla-Object e) 'Layer )
                        se (ssget "wp" pts '((0 . "*text"))))
                        (vl-cmdf "chprop" se "" "la" ly "")
      )
      (vl-cmdf "undo" "e")
)

longer1000 发表于 2014-1-6 12:37:53

没有人回答啊

longer1000 发表于 2014-1-7 13:36:53

非常感谢！！！！！！！能不能在文字前面将图层名作为前缀加上？

水仙的错 发表于 2016-2-20 20:00:37

不知道好用不

start4444 发表于 2016-7-22 17:09:34

vladimirputin 发表于 2016-10-20 13:02:21

非常不错的程序，谢谢楼主分享。

Trouble12138 发表于 2022-6-24 10:01:44

有没有反向操作的啊，就是矩形框随文字图层
页: [1]
查看完整版本: 矩形框内文字批量随矩形框的图层