[编程申请]：若该数字小于1200则将其改为1200且将其颜色改为红色

lengliqun · 发表于 2005-9-16 17:42:18

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

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

×

（求LSP程序，cad2002用）判断选定的数字，若该数字小于1200则将其改为1200且将其颜色改为红色，谢谢。

青马 · 发表于 2005-9-17 01:36:29

你试试吧，找了两个通用函数，问题解决了

(defun c:ll (/ ss s1 i sn sl sp sp1 sl1 ia sp2 a b)
(command "undo" "be")
(setq ss (ssget '((0 . "TEXT")))
s1
(ssadd)
sl
(sslength ss)
i
0
sn
(ssname ss i)
)
(repeat sl
(progn (setq sp (entget (ssname ss i))
sp1
(cdr (assoc 1 sp))
)
(setq b (strisnum sp1))
(if (= b T)
(progn (setq a (atoi sp1))
(if (< a 1200)
(progn (setq s1 (ssadd (ssname ss i) s1)
i (+ i 1)
)
)
(setq i (+ i 1))
)
)
(setq i (+ i 1))
)
)
)
(setq sl1 (sslength s1)
ia 0
)
(if (> sl1 0)
(progn (command "change" s1 "" "p" "c" 1 "")
(repeat sl1
(progn
(setq sp2 (entget (ssname s1 ia))
sp2 (subst (cons 1 "1200") (assoc 1 sp2) sp2)
;sp2 ((subst (cons 62 1) (assoc 62 sp2) sp2))
)
(entmod sp2)
(setq ia (+ ia 1)
)
)
)
)
)
(command "undo" "end")
(prin1)
)
(princ "\n文字变数----LL")
(prin1)
;;;功能
;;;确定字符串是否为数字
;;;语法
;;;(strIsNum str)
;;;参数
;;;Str: str 检查的字符串
;;;返回值
;;;[LOG] T ：字符串为数字, F 字符串不是数字
;;;样例
;;;(setq a '123')
;;;(setq b '1B5')
;;;(strIsNum a) 返回 T
;;;(strIsNum b) 返回 F
(defun strIsNum (str / ascList n len return char)
(setq ascList (stoal str))
(setq n 0)
(setq return T)
(setq len (length ascList))
(while (and return (< n len))
(setq char (nth n ascList))
(if (or
(and (>= char 48) ; 0
(<= char 57)
) ; 9
(= char 46) ; .
) ;_ end of or
(setq return T)
(setq return nil)
) ;_ end of if
(setq n (1+ n))
) ;_ end of while
return
) ;_ end of defun
;;;功能
;;;将字符串转换为以ASCII码表示的整数的列表
;;;语法
;;;(stoal strA)
;;;参数
;;;要转换为列表的字符串
;;;返回值
;;;ASCII码列表
(defun stoal (strA)
(cond ((> (strlen strA) 1)
(cons (ascii (substr strA 1)) (stoal (substr strA 2)))
)
((list (ascii (substr strA 1))))
)
)

(defun c:ll (/ ss s1 i sn sl sp sp1 sl1 ia sp2 a b) 
  (command "undo" "be") 
  (setq        ss (ssget '((0 . "TEXT"))) 
        s1 
           (ssadd) 
        sl 
           (sslength ss) 
        i 
           0 
        sn 
           (ssname ss i) 
  ) 
  (repeat sl 
    (progn (setq sp  (entget (ssname ss i)) 
                 sp1 
                     (cdr (assoc 1 sp)) 
           ) 
           (setq b (strisnum sp1)) 
           (if (= b T) 
             (progn (setq a (atoi sp1)) 
                    (if        (< a 1200) 
                      (progn (setq s1 (ssadd (ssname ss i) s1) 
                                   i  (+ i 1) 
                             ) 
                      ) 
                      (setq i (+ i 1)) 
                    ) 
             ) 
             (setq i (+ i 1)) 
           ) 
    ) 
  ) 
  (setq        sl1 (sslength s1) 
        ia  0 
  ) 
  (if (> sl1 0) 
    (progn (command "change" s1 "" "p" "c" 1 "") 
           (repeat sl1 
             (progn 
               (setq sp2 (entget (ssname s1 ia)) 
                     sp2 (subst (cons 1 "1200") (assoc 1 sp2) sp2) 
                                        ;sp2        ((subst (cons 62 1) (assoc 62 sp2) sp2)) 
               ) 
               (entmod sp2) 
 
               (setq ia        (+ ia 1) 
               ) 
             ) 
 
           ) 
    ) 
  ) 
  (command "undo" "end") 
  (prin1) 
) 
 
(princ "\n文字变数----LL") 
(prin1) 
 
;;;功能   
;;;确定字符串是否为数字   
;;;语法   
;;;(strIsNum str)   
;;;参数   
;;;Str: str 检查的字符串   
;;;返回值   
;;;[LOG] T ：字符串为数字, F 字符串不是数字   
;;;样例   
;;;(setq a '123') 
;;;(setq b '1B5') 
;;;(strIsNum a) 返回 T 
;;;(strIsNum b) 返回 F   
 
(defun strIsNum        (str / ascList n len return char) 
  (setq ascList (stoal str)) 
  (setq n 0) 
  (setq return T) 
  (setq len (length ascList)) 
  (while (and return (< n len)) 
    (setq char (nth n ascList)) 
    (if        (or 
          (and (>= char 48)                ; 0 
               (<= char 57) 
          )                                ; 9 
          (= char 46)                        ; . 
        ) ;_ end of or 
      (setq return T) 
      (setq return nil) 
    ) ;_ end of if 
    (setq n (1+ n)) 
  ) ;_ end of while 
  return 
) ;_ end of defun 
 
 
;;;功能   
;;;将字符串转换为以ASCII码表示的整数的列表   
;;;语法   
;;;(stoal strA)   
;;;参数   
;;;要转换为列表的字符串   
;;;返回值   
;;;ASCII码列表   
 
(defun stoal (strA) 
  (cond        ((> (strlen strA) 1) 
         (cons (ascii (substr strA 1)) (stoal (substr strA 2))) 
        ) 
        ((list (ascii (substr strA 1)))) 
  ) 
)

xyp1964 · 发表于 2005-9-17 22:44:53

[FONT=courier new](defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "TEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq tx (dxf 1 (entget s1)))
(if (< (distof tx) 1200)
(sub_upd s1 1 "1200")
)
)
(CMDLA1)
)[/FONT]

青马 · 发表于 2005-9-17 23:44:03

xyp,您的命令没把小于1200的烽变成红色，还有，就是如果选到的字不是整数字符串或实数字符串，就不行了，我加的那两个通用函数就是那个目的，可以把字都滤出选择集，对于这个命令，我认为还可以延伸的就是把1200变成用户输入的，只要输入过一回，回车就确认那种方式，这个命令就算是一个通用的命令了

xyp1964 · 发表于 2005-9-17 23:58:45

最初由青马发布
[B]xyp,您的命令没把小于1200的烽变成红色，还有，就是如果选到的字不是整数字符串或实数字符串，就不行了，我加的那两个通用函数就是那个目的，可以把字都滤出选择集，对于这个命令，我认为还可以延伸的就是把1200变成... [/B]

修改：

[FONT=courier new](defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "TEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq tx (dxf 1 (entget s1)))
(if (and (distof tx) (< (distof tx) 1200))
(progn
(sub_upd s1 1 "1200")
(command "change" s1 "" "p" "co" 1 "")
)
)
)
(CMDLA1)
)[/FONT]

狂刀 · 发表于 2005-9-18 01:29:56

(defun c:test ()
(setq ss (ssget '((0 . "TEXT")(1 . "#*")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq tx (distof(cdr(assoc 1 (setq ent(entget s1))))))
(if(and tx (< tx 1200))
(entmod (append (subst (cons 1 "1200")(assoc 1 ent) ent) '((62 . 1))))
)
)(princ)
)

青马 · 发表于 2005-9-18 23:49:15

最初由狂刀发布
[B][code]
(defun c:test ()
  (setq ss (ssget '((0 . "TEXT")(1 . "#*")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq tx (distof(cdr(assoc 1 (setq ent(entget s1))))))
(if... [/B]

又学到了新东西，#*过滤真是太方便了，不过我看了一下书，发现#是匹配任何单个字母，@是匹配任何单个数字，我用@*过滤试了，只能选重字母开头的text,感觉是书上写错了

还有一个问题了，命令中定义的ent（实体属性列表）,如果text是随层的，62代码不会出现，用(append ent '((62 . 1))很明白，但我又设了一个不随层的数，(62 .3)，用append后，ent中就有两组62的代码，(62 . 3 ) (62 .1) 后者在列表的尾部，字真是变成了红色，但我不明白了，为什么有两组62的代码，都没有问题，为什么是以最后的那个（62 .1）为准呢

狂刀 · 发表于 2005-9-19 11:21:40

第一个问题。是什么书啊？你应该看cad帮助。#是数字
第二个：为什么为什么？程序写多了。就会发现一些书上不一定讲到的窍门。你写多了也一样。至于原理是什么？你真要知道的话得问编写autocad的人。
我感觉有点像堆栈，后面的后入，但是用同一个“地址”，就把原来前面的数据“冲”掉了。
所以，传递给entmod的表不是一个“好”表，但是在cad自己数据处理的时候，把这个bug忽略了。结果是正常的。
这样，在entmod实体表的时候，不一定要用subst，用append也是可以的：）

lengliqun · 发表于 2005-9-19 19:27:40

谢谢青马、谢谢xyp1964斑竹、谢谢狂刀大侠，三位的程序在CAD2002上测试可用。

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

[编程申请]：若该数字小于1200则将其改为1200且将其颜色改为红色

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

相关帖子

浏览过的版块