求教，框选数字范围，然后选择变色，怎么写

ambox · 发表于 2012-10-23 18:52:24

; 错误: 参数类型错误: lselsetp nil

fcut2004 · 发表于 2012-10-24 13:04:00

本帖最后由 fcut2004 于 2012-10-24 13:04 编辑

byghbcx 发表于 2012-10-23 11:18
(defun test(/ r_min r_max co ss n en ent s)
(if (setq r_min (getreal "\n请输入变色数字下限:")) ni ...

顶，用于结构佬的板配筋不错。

wrw830820 · 发表于 2012-10-27 08:25:27

太厉害了！！只是没有币了我

戏男 · 发表于 2012-10-29 11:40:56

哇这样也可以啊不过用处不是很大吧

yaokui25 · 发表于 2012-10-29 22:40:24

好东西。谢谢LZ的分享

asd19400 · 发表于 2013-4-2 00:08:28

byghbcx 发表于 2012-10-23 11:18
(defun test(/ r_min r_max co ss n en ent s)
(if (setq r_min (getreal "\n请输入变色数字下限:")) ni ...

有没有完整的lisp，有点小笨，单独测试发现米有反应

byghbcx · 发表于 2013-4-2 09:16:34

加载后运行

chleiwu · 发表于 2015-7-6 17:16:04

本帖最后由 chleiwu 于 2015-7-6 17:17 编辑

byghbcx 发表于 2012-10-23 11:18
(defun test(/ r_min r_max co ss n en ent s)
(if (setq r_min (getreal "\n请输入变色数字下限:")) ni ...

加载后无反应，未知命令test

cad版本2012

yjtdkj · 发表于 2018-8-3 17:10:55

duotu007 发表于 2012-10-23 08:57
(sssetfirst nil (ssget '((0 . "*text") (-4 . ""))));选择200到300间的单行文本
(sssetfirst nil (ssg ...

这个语句有问题，有些数字选不中

龙__平 · 发表于 2018-8-21 02:35:47

(defun c:10190 ( / &c1 &k1 &kw1 obj)
(vl-load-com)
(if (and (princ "\n请选择要改变颜色的对象--适用于10@190通长")
  (setq &kw1 (ssget '((0 . "TEXT"))))
  )
  (progn
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1))
(setq obj (vlax-ename->vla-object &k1))
(setq &c1 (vla-get-TextString obj))


   (if (AND (> (atof &c1) 413) (<= (atof &c1) 524))  (vla-put-color obj 3) );变为绿色
   (if (AND (> (atof &c1) 524) (<= (atof &c1) 654)) (vla-put-color obj 6) );变为粉色
   (if (AND (> (atof &c1) 654) (<= (atof &c1) 785)) (vla-put-color obj 1) );变为红色
   (if (AND (> (atof &c1) 785) (<= (atof &c1) 942)) (vla-put-color obj 5) );变为蓝色
   (if (AND (> (atof &c1) 942) (<= (atof &c1) 1131)) (vla-put-color obj 2) );变为黄色

)
  )
)
(princ)
)

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