程序代码高亮设置方法，贴代码前必看...

流水线登 · 发表于 2018-5-18 12:10:14

[pcode=csharp,true]
程序代码
[/pcode]

aa5995 · 发表于 2018-6-20 09:41:40

不错继续学习

xudongchu · 发表于 2018-8-27 11:13:54

顶...顶很多东西

gdfyhao · 发表于 2019-1-23 12:18:01

看看学习一下，规范起来才好

wskiqght · 发表于 2019-3-15 16:27:30

(defun c:tt (/ hz lst pt ss txt txt1 var x xw y)
(if (and
(xdrx_initssget "\n选取要统计的文字<退出>:")
(setq ss (xdrx_ssget '((0 . "TEXT"))))
)
(progn
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(setq lst (mapcar
'(lambda (x)
(setq txt (xdrx_getpropertyvalue x "textstring"))
(setq txt1 (xd::string:regexps "[\\u4e00-\\u9fa5]{1,}[0-9.]+"
txt ""
)
)
(if txt1
(setq lst (mapcar
'(lambda (y)
(setq hz (xd::string:regexps "[\\u4e00-\\u9fa5]{0,}"
y ""
)
)
(setq xw (xd::string:regexps "(-?[0-9]+)(\\.[0-9]+)?"
y ""
)
)
(list (car hz) (atof (car xw)))
)
txt1
)
)
)
)
(xdrx_pickset->ents ss)
)
lst (apply
'append
lst
)
lst (xd::list:groupbyindex lst 0.1)
lst (vl-sort lst '(lambda (x y)
(< (car x) (car y))
)
)
lst (mapcar
'(lambda (x)
(list (car x) (rtos (apply
'+
(cdr x)
) 2 1
)
)
)
lst
)
lst (append lst (list (list "合计" (rtos (apply '+ (mapcar '(lambda(x)(atof (cadr x))) lst)) 2 1))))
lst (append
(list (list "统计表" nil) '("名称" "数量"))
lst
)
)
(if (not #miaomu-tj-height)
(setq #miaomu-tj-height 3.5)
)
(if (setq var (getreal (xdrx_prompt "\n字高<" #miaomu-tj-height ">:" t)))
(setq #miaomu-tj-height var)
)
(if (setq pt (getpoint "\n表格插入点:"))
(progn
(xd::text:init 1)
(XD::Table:MakeFromList lst pt #miaomu-tj-height (/ #miaomu-tj-height
2.0
)
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
)
)
(princ)
)

(defun c:tt (/ hz lst pt ss txt txt1 var x xw y) 
  (if (and 
        (xdrx_initssget "\n选取要统计的文字<退出>:") 
        (setq ss (xdrx_ssget '((0 . "TEXT")))) 
      ) 
    (progn 
      (xdrx_begin) 
      (xdrx_sysvar_push '("dimzin" 0)) 
      (setq lst (mapcar 
                  '(lambda (x) 
                     (setq txt (xdrx_getpropertyvalue x "textstring")) 
                     (setq txt1 (xd::string:regexps "[\\u4e00-\\u9fa5]{1,}[0-9.]+" 
                                                    txt "" 
                                ) 
                     ) 
                     (if txt1 
                       (setq lst (mapcar 
                                   '(lambda (y) 
                                      (setq hz (xd::string:regexps "[\\u4e00-\\u9fa5]{0,}" 
                                                                   y "" 
                                               ) 
                                      ) 
                                      (setq xw (xd::string:regexps "(-?[0-9]+)(\\.[0-9]+)?" 
                                                                   y "" 
                                               ) 
                                      ) 
                                      (list (car hz) (atof (car xw))) 
                                    ) 
                                   txt1 
                                 ) 
                       ) 
                     ) 
                   ) 
                  (xdrx_pickset->ents ss) 
                ) 
            lst (apply 
                  'append 
                  lst 
                ) 
            lst (xd::list:groupbyindex lst 0.1) 
            lst (vl-sort lst '(lambda (x y) 
                                (< (car x) (car y)) 
                              ) 
                ) 
            lst (mapcar 
                  '(lambda (x) 
                     (list (car x) (rtos (apply 
                                           '+ 
                                           (cdr x) 
                                         ) 2 1 
                                   ) 
                     ) 
                   ) 
                  lst 
                ) 
            lst (append lst (list (list "合计" (rtos (apply '+ (mapcar '(lambda(x)(atof (cadr x))) lst)) 2 1)))) 
            lst (append 
                  (list (list "统计表" nil) '("名 称" "数 量")) 
                  lst 
                ) 
      ) 
      (if (not #miaomu-tj-height) 
        (setq #miaomu-tj-height 3.5) 
      ) 
      (if (setq var (getreal (xdrx_prompt "\n字高<" #miaomu-tj-height ">:" t))) 
        (setq #miaomu-tj-height var) 
      ) 
      (if (setq pt (getpoint "\n表格插入点:")) 
        (progn 
          (xd::text:init 1) 
          (XD::Table:MakeFromList lst pt #miaomu-tj-height (/ #miaomu-tj-height 
                                                              2.0 
                                                           ) 
          ) 
        ) 
      ) 
      (xdrx_sysvar_pop) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

迷、 · 发表于 2019-9-20 13:03:07

感谢分享，学习一下

迷、 · 发表于 2019-9-20 13:19:10

感谢分享，学习一下

小白菜嘛 · 发表于 2020-5-23 11:30:54

表示看不懂

13678642166 · 发表于 2021-3-27 08:15:26

学习了

Endlesswx · 发表于 2022-5-17 08:23:11

学习了~学习了~学习了~

drshang · 发表于 2023-10-26 23:36:30

x64win7 chrome100,语法着色不正常

drshang · 发表于 2023-10-26 23:49:22

一直在高亮进行中

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

[他山之石] 程序代码高亮设置方法，贴代码前必看...