博客网 >

一个文字左对齐并重新编号程序
作者:分类:默认分类标签:
(defun c:tt (ss ssl i e el ll d hi p vh vx vy str)
  (
if (setq ss (ssget '(("text"))))
    (
progn
      
(setq ssl    (sslength ss)
        
i    -1
      
)
      (
repeat ssl
    
(setq e     (ssname ss (setq (1+ i)))
          
el (entget e)
    )
    (
if ll
      
(setq ll (cons el ll))
      (
setq ll (list el))
    )
      )
      (
setq
    
ll (vl-sort ll
            
'(lambda (e1 e2)
               (
(caddr (assoc 10 e1)) (caddr (assoc 10 e2)))
             )
       )
      )
      (
setq p  (cdr (assoc 10 (car ll)))
        
vx (car p)
        
vy (cadr p)
        
i  1
      
)
      (
setq (getdist "\n行距: "))
      (
setq hi (getdist    p
            
(strcat    "\n字高<"
                
(rtos (cdr (assoc 40 (car ll)))
                      
2
                      2
                
)
                
">: "
            
)
           )
      )
      (
if hi
    
(setq vh (cons 40 hi))
      )
      (
foreach x ll
    
(if vh
      
(entmod (subst vh (assoc 40 xx))
    )
    (
setq str (vl-string-left-trim " " (cdr (assoc x))))
    (
if (wcmatch str "[0-9]*")
      (
setq    str (vl-string-left-trim "1234567890" str)
        
el  (subst (cons (strcat (itoa istr)) (assoc xx)
        
i   (1+ i)
      )
      (
setq el x)
    )
    (
setq el (subst (list 10 vx vy 0.) (assoc 10 xel))
    (
entmod el)
    (
if d
      
(setq vy (vy d))
    )
   )
   )
  )
  (
princ)
)
<< Qleader 设置中的某个选项... / 排序设置 >>

专题推荐

不平凡的水果世界

不平凡的水果世界

平凡的水果世界,平凡中的不平凡。 今朝看水果是水果 ,看水果还是水果 ,看水果已不是水果。这境界,谁人可比?在不平凡的水果世界里,仁者见仁,智者见智。

中国春节的那些习俗

中国春节的那些习俗

正月是农历新年的开始,人们往往将它看作是新的一年年运好坏的兆示期。所以,过年的时候“禁忌”特别多。当然,各个地方的风俗习惯不一样,过年的禁忌也是不一样的。

评论
0/200
表情 验证码:

eachy

  • 文章总数0
  • 画报总数0
  • 画报点击数0
  • 文章点击数0
个人排行
        博文分类
        日期归档