[编程申请]：选择性删除的小命令

独孤雪 · 发表于 2004-1-14 10:03:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

因为这些字符串都在一个图层而且很乱
唯一的区别就是：
有的是以数字开头的如：1A，1AB，1CE等
有的是以字母开头的如：A1，B12，C14等
所以想写个小命令
只删除以数字开头串
搞网架的知道这个
以数字开头的是杆件
以字母开头是球！！
请高手指点

playboy · 发表于 2004-1-14 10:26:08

(defun c:test()
(setq ss (ssget "x" (list (cons 0 "text"))))
(setq n 0 )
(setq m (sslength ss))
(while (< n m)
(setq entname (ssname ss n))
(setq enttbl (entget entname))
(setq txt (cdr(assoc 1 enttbl)))
(setq  aa  (strlen txt) )
  (setq tt (substr txt 1 1 ))
  (setq t1 (atoi tt ))
  (if (= t1 1);这个地方可以设置第一个字符是什么
(command "erase" entname "")
  )
  (setq n (+ 1 n))
  )
)

独孤雪 · 发表于 2004-1-14 11:40:02

怎么用啊！！
我可不会LISP编程！！
二楼的朋友可不可做个现成的命令！！
谢谢你了

xc720706 · 发表于 2004-1-14 11:49:02

CAD2000的QSELECT可以解决这问题

独孤雪 · 发表于 2004-1-14 11:52:03

谢谢楼上朋友
问题解决了！！

coolzhb · 发表于 2004-1-14 12:24:48

最初由独孤雪发布
[B]谢谢楼上朋友
问题解决了！！ [/B]

怎样用呀，我用了qselect，好像不能过滤以数字打头的文字呀！

独孤雪 · 发表于 2004-1-14 12:49:37

可以的啊！！
在对象类型中选文字
在特性中选内容
在运算符中选“通配符”
值选“A＊”等

coolzhb · 发表于 2004-1-14 14:02:06

最初由独孤雪发布
[B]可以的啊！！
在对象类型中选文字
在特性中选内容
在运算符中选“通配符”
值选“A＊”等 [/B]

这个我知道，那怎么选中以数字打头的文字呀，难道要写A* or B* or C*。。。吗，数字1*,2*吗，太麻烦了，还是编程快！

eachy · 发表于 2004-1-14 14:02:33

最初由独孤雪发布
[B]因为这些字符串都在一个图层而且很乱
唯一的区别就是：
有的是以数字开头的如：1A，1AB，1CE等
有的是以字母开头的如：A1，B12，C14等
所以想写个小命令
只删除以数字开头串
搞网架的知道这个
以数字开头的是... [/B]

选择数字开头

(ssget '((1 . "#*")))

复制代码

选择字母开头

(ssget '((1 . "@*")))

复制代码

独孤雪 · 发表于 2004-1-15 00:50:01

不错！！
谢谢各位朋友的帮助！！
我的工作又进了一大步！！

账号		自动登录	找回密码
密码			立即注册

[编程申请]：选择性删除的小命令

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [编程申请]：选择性删除的小命令

浏览过的版块