求一个删除批量梁截面的源码，以提高工作效率，请大神出手

了liao

求一个删除批量梁截面的源码，比如KL1(2) 200x450修改后变成KL1(2)。XL11 200x600修改后变成XL11。
L1(1) 200x600修改后变成L1(1)。
LL1(1) 200x700修改后变成LL1(1)。说明一下类似KL1(2) 200x450的为单行文字，连在一起的
就是类似以上几种情况，运行一次，选中范围内批量删除截面，下面提供，请大神帮写一个，小弟感激不尽

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:测试图.zip 
下载次数:9  文件大小:74.44 KB 
下载权限: 不限 以上  [免费赚D豆]

q3_2006

过滤带X号的文字删除就行..很容易

了liao

q3_2006 发表于 2018-3-6 10:31

带X的和前面得编号是连再一起的单行文字，CAD自带的命令不能只删除类似200x600的截面

Lisphk

了liao 发表于 2018-3-6 10:46

可以用通配符 *

q3_2006

了liao 发表于 2018-3-6 10:46

fi文字值
*X*
应用

LIYOGNZHI

可以试一下这个

Underway

(vl-load-com)

(Defun Lstr (eet / str)
   (setq str (cdr (assoc 1 eet)))
   (substr str 1 (vl-string-search " " str))
)

(defun C:qoo (/ ss i ee)
  (cond
   ((null (setq ss (ssget '((0 . "TEXT") (1 . "*L*x*"))))))
   ((setq i -1)
    (while (setq ee (ssname ss (setq i (1+ i))))
      (setq ee (entget ee))
      (entmod (subst (cons 1 (Lstr ee)) (assoc 1 ee) ee))
   )))
)

sicky111

都是这方面的高手啊。

了liao

LIYOGNZHI 发表于 2018-3-6 14:11

测试可用，不过有点小问题，箍筋符号会边问号，编号位置会移动，可以看看楼下的代码，非常帮！谢谢二位

了liao

Underway 发表于 2018-3-6 14:30

感谢大神出手，试了下效果非常棒

newer

了liao 发表于 2018-3-8 11:09

解决了，请编辑下主题贴，前面类型修改成 【已解决】

kqqt6236

热心人就是多。

xinxin378

有相关插件的

evayleung

1. (defun c:plsljm (/ ss)
   
2. (xdrx_begin)
   
3. (setq ss (xdrx_ssget '((0 . "TEXT")(1 . "*L*"))));最好自个加上梁截面的图层，这样比较精准
   
4. (mapcar '(lambda (x)
   
5. (xdrx_text_setstring x (car (xdrx_string_tok (xdrx_text_string x) " ")))
   
6. )
   
7. (xdrx_pickset->ents ss)
   
8. )
   
9. (xdrx_end)
   
10. )
    
11. 
    

(defun c:plsljm (/ ss)<br /> (xdrx_begin)<br /> (setq ss (xdrx_ssget '((0 . "TEXT")(1 . "*L*"))));最好自个加上梁截面的图层，这样比较精准<br /> (mapcar '(lambda (x)<br /> (xdrx_text_setstring x (car (xdrx_string_tok (xdrx_text_string x) " ")))<br /> )<br /> (xdrx_pickset->ents ss)<br /> )<br /> (xdrx_end)<br /> )<br /> <br />

试试这样子

南山不雨

大神就是多