lengliqun 发表于 2011-3-14 14:32:38

申请一个LSP程序，将框选的字符分别加上前缀，前缀是所选各字符各自对应的图层名

申请一个LSP程序，将框选的字符分别加上前缀，前缀是所选各字符各自对应的图层名
如字符BBB123所在的图层为AAA，则改为AAA BBB123，(前缀后最好能有个空格)

yshf 发表于 2011-3-14 14:32:39


(defun c:cc()
    (if (setq p1 (getpoint "\n左上角:"))
      (if (setq p2 (getcorner p1 "\n右下角:"))
          (if (setq ssa (ssget "w" p1 p2 '((0 . "TEXT"))))
                (progn
                  (setq i0n (sslength ssa))
                  (repeat n
                        (setq ent (ssname ssa i)
                              dxf (entget ent)
                              zfc (assoc 1 dxf)
                              tcm (assoc 8 dxf)
                              dxf (subst (cons 1 (strcat (cdr tcm) " " (cdr zfc))) zfc dxf)
                        )
                        (entmod dxf)
                        (setq i (1+ i))
                  )
                )
             )
       )
   )
)

1548845899 发表于 2011-3-16 17:10:34

lengliqun 发表于 2011-3-16 21:29:53

多谢三楼，cad2004测试可用。

lichunyu 发表于 2011-4-15 20:53:40

谢谢分享！！！！！

alexmai 发表于 2017-11-1 20:36:34

yshf 发表于 2011-3-14 14:32


如果要支持属性块的文字？应该改哪里？
页: [1]
查看完整版本: 申请一个LSP程序，将框选的字符分别加上前缀，前缀是所选各字符各自对应的图层名