[求助]：如何过滤标注的尺寸小于一个特定值呢

nickel · 发表于 2005-4-14 18:58:36

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

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

×

如题，主要是由于想检查有没有小于1800这个数值的标注

ljpnb · 发表于 2005-4-14 22:12:49

(setq ss(ssget "x" '((-4 . "<") (42 . 1800))))

xyp1964 · 发表于 2005-4-14 23:56:49

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:test()
  (cmdla0)
  (command ".undo" "BE")
  (setq SS (ssget '((0 . "DIMENSION")))
ss0 (ssadd)
      i -1)
  (while (setq s1 (ssname ss (setq i (1+ i))))
(if (< (dxf 42 (entget s1)) 1800)
   (setq ss0 (ssadd s1 ss0))
   )
)
  (princ"\n共有 ")(princ (sslength ss0))(princ" 个尺寸小于1800！")
  (command ".undo" "E")
  (cmdla1)
  )
[/php]

nickel · 发表于 2005-4-15 15:29:11

嘿嘿···能用！谢谢两位！不过要是可以改变这个1800的数值就好了！每次都要输入这么长有点麻烦

狂刀 · 发表于 2005-4-15 18:36:28

推荐用二楼的方法。

ljpnb · 发表于 2005-4-15 18:59:06

最初由 nickel 发布
[B]嘿嘿···能用！谢谢两位！不过要是可以改变这个1800的数值就好了！每次都要输入这么长有点麻烦 [/B]

这个1800的数值也可以自己输入啊，只是格式稍微变变，比如
(setq value(getreal "\n输入一个要过滤的尺寸值"))
(setq lists (list '(-4 . "<") (cons 42 value)))
(setq ss(ssget "x" lists))

xyp1964 · 发表于 2005-4-15 20:41:29

这样也成：
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:test ()
  (cmdla0)
  (command ".undo" "BE")
  (setq no1 (ureal 1 "" "\n请输入最小尺寸数值" no1)
SS  (ssget (list '(0 . "DIMENSION") '(-4 . "<") (cons 42 no1)))
  )
  (setq tx (strcat "共有 "
   (rtos (sslength ss) 2 0)
   " 个尺寸小于"
   (rtos no1 2)
   "!!!"
   )
  )
  (princ "\n")
  (princ tx)
  (princ "\n选择集名称 : !SS")
  (command ".undo" "E")
  (cmdla1)
)
[/php]

太湖 · 发表于 2005-7-11 10:32:59

最初由 ljpnb 发布
[B](setq ss(ssget "x" '((-4 . "<") (42 . 1800)))) [/B]

能否请二楼搂主讲的更细一点：如何使用上述命令或者程序。多谢了！

它山之石 · 发表于 2005-7-11 11:25:07

选择易

zh_6531394 · 发表于 2005-7-11 11:50:18

楼上的选择易最好

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

[求助] [求助]：如何过滤标注的尺寸小于一个特定值呢

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

相关帖子