各位大神看下求一个链接标注的命令

664571221

如图  比如有这些标注，输入tt 框选标注  提示输入长度   比如输入3000，然后框选标注，框选后吧标注大于3000的连线。

ZZXXQQ

1. ;选择大于n的尺寸
   
2. (defun c:tt ()
   
3. (setq n (getdist "\n输入尺寸: "))
   
4. (setq ss (ssget (list '(-4 . "<and")
   
5.        '(0 . "DIMENSION")
   
6.        '(-4 . ">") (cons 42 n)
   
7.        '(-4 "and>"))))
   
8. )
   

;选择大于n的尺寸<br /> (defun c:tt ()<br /> (setq n (getdist "\n输入尺寸: "))<br /> (setq ss (ssget (list '(-4 . "<and")<br />        '(0 . "DIMENSION")<br />        '(-4 . ">") (cons 42 n)<br />        '(-4 "and>"))))<br /> )<br />