能不能帮我实现这样的一个功能，比如，同时有900到1200之间好几个楼。能不能让900～950之间的改成950，950～1000的数改成1000。能框选。谢谢。
能不能帮我实现这样的一个功能，比如，同时有900到1200之间好几个楼。能不能让900～950之间的改成950，950～1000的数改成1000。能框选。谢谢。
2楼
;取整50
(DEFUN C:TXTFIX ()
(SETVAR "CMDECHO" 0)
(PRINC "\nPlease Select Text(s) 请选择文字 :")
(IF (SETQ SS (SSGET '((0 . "TEXT")))) (PROGN
(PRINC SS)
(SETQ SL (SSLENGTH SS) I 0)
(REPEAT SL
(SETQ SN (SSNAME SS I) I (1+ I)
DL (ENTGET SN)
TT (CDR (ASSOC 1 DL))
TF (ASCII TT))
(IF (AND (> TF (ASCII "0")) (<= TF (ASCII "9"))) (PROGN
(SETQ TN (ATOI TT))
(IF (> (ABS (- (/ TN 50.0) (/ TN 50))) 1E-6) (PROGN
(SETQ TT1 (ITOA (* (1+ (/ TN 50)) 50))
DL (SUBST (CONS 1 TT1) (CONS 1 TT) DL))
(ENTMOD DL)
))
))
)
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
回复
3楼
非常感谢，已经实现了我的功能，我好好研读下这个程序，好好的学习一下，再次表示感谢。
回复
