我的词库

lisone

;第一次运行请根据自己需要修改以下内容：
(setq ckml "E:/lisan/词库/" ) ;引号内为词库目录 注意路径为反斜杠“/”
;以下不用修改
(setq suoyin "0")
(setq suoyin2 "0")
(defun c:t6 ()
(setvar "cmdecho" 0)
(defun xsckdhk();显示词库对话框
       ;(setq tzbl (getvar "HPSCALE" ));天正比例
       (setq en nill)
       (setq mulu (list "" ))
       (setq mulu (vl-directory-files ckml "*.txt" ))
       (setq ml mulu)
       (setq mulu (list mulu))

;;;------------------------------------------------+++
(setq DLG_ID (load_dialog "t6.dcl"))
(if (< DLG_ID 0) (exit))

     (while (and (/= result 1) (/= result 0))                  
            (if (= do_what 3) (tolib))
(if (not (new_dialog "teclib" DLG_ID))(exit))
;;;------------------------------------------------+++
               (start_list "itemlist" )
               (if (= lst nil);第一次读取 第一个txt文件内容
                                       (progn
                     (setq text_2 (nth 0 ml))
                     (setq file (open (strcat ckml text_2) "r" ))
                     (setq txt_t (read-line file) lst (list "" ))
                     (while (/= txt_t nil)
                            (setq lst (append lst (list txt_t)))
                            (setq txt_t (read-line file))
                     );end while
                     (close file)
                     (setq lsti lst)
                     (setq lst (list (cdr lst)))
               ));end if
       (mapcar 'add_list (car lst))
       (end_list)
                        (load_text suoyin 1)
       (start_list "li" )
       (mapcar 'add_list (car mulu))
       (end_list)

       (action_tile "li" "(load_text $value $reason)        (setq suoyin2 (itoa 0))")
       (set_tile "li" suoyin);获取焦点
       (set_tile "itemlist" suoyin2)
       (action_tile "cancel" "(done_dialog 0)" )
                  (setq re (start_dialog))

       (start_dialog)
(unload_dialog DLG_ID);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;+++
)

       (if (/= en nill) ;动态文字
          (progn
                                        (princ "\n点取位置或[转90度(A)/右键退出]")
                                        (setq boolean t)
                                        (setq text-jiaodu 0)
                                        (while boolean
                                         (setq motion (grread T 8));grread 函数返回一个表，其中第一个元素说明输入类型的代码，第二个元素既可能是整数，又可能是点
                                         (setq code (car motion)) ;grread表第一个元素输入类型的代码
                                         (setq pt2 (cadr motion)) ;grread表第二个元素 拖动模式坐标
                                         (cond
                                          ((= code 5)   ;鼠标拖动模式
                                                 (entmod (setq endate (subst (cons 10 pt2) (assoc 10 endate) endate)));动态改文字坐标
                                          )
                                          ((= code 3)   ;鼠标左鍵按下
                                          (setq boolean nil)
                                          )
                                          ((= code 11)
                                           (setq boolean nil)
                                           (entdel en)
                                          )
                                          ((= code 25)
                                           (setq boolean nil)
                                           (entdel en)
                                          )
                                          ((equal motion '(2 32))
                                           (setq boolean nil)
                                          )
                                          ((equal motion '(2 13))
                                           (setq boolean nil)
                                          )
                                          ((equal motion '(2 27))
                                           (setq boolean nil)
                                           (entdel en)
                                          )
                                          ((equal motion '(2 65))
                                                 (setq text-jiaodu (+ text-jiaodu (/ pi 2)))
                                                 (entmod (setq endate (subst (cons 50 text-jiaodu) (assoc 50 endate) endate)));动态改文字角度
                                          )
                                          ((equal motion '(2 97))
                                                 (setq text-jiaodu (+ text-jiaodu (/ pi 2)))
                                                 (entmod (setq endate (subst (cons 50 text-jiaodu) (assoc 50 endate) endate)));动态改文字角度
                                          )
                                         )
          );end while
      ));end if
(princ)
) ;end xsckdhk

(defun load_text (value reason);子函数 提取txt内容
       (if (= reason 1)
              (progn
                     (setq suoyin value)
                     (setq text_2 (nth (atoi value) ml))
                     (setq file (open (strcat ckml text_2) "r" ))
                     (setq txt_t (read-line file) lst (list "" ))
                     (while (/= txt_t nil)
                            (setq lst (append lst (list txt_t)))
                            (setq txt_t (read-line file))
                     );end while
                     (close file)
                     (setq lsti lst)
                     (setq lst (list (cdr lst)))
       ));end if
       (start_list "itemlist" )
       (mapcar 'add_list (car lst))
       (end_list)
                        (setq wjm (nth (atoi value) ml))
       (setq filename (strcat ckml wjm))
);end load_text


(xsckdhk)
(setvar "cmdecho" 1)
(princ)
);end defun

lisone

大家一起整合一下这两段程序呀~~~

lisone

整合好了发俺一份哟！！我折了一天了~~有好东西要大家分享~~~

ynhh

经测试
这个由版主改来的
问题不断出现
难以实用啊
其实原版主的程序本身也是有点问题的

xotoo

print1985 发表于 2012-5-12 02:10
我是新手 参考论坛各位达人做的自用词库 代码很多是拼凑的看起来很垃圾 但是基本能用
使用前需要按说明设置 ...

ACAD2012 x64 启动后界面一闪而过

277434678

ACAD2010 x32 启动后界面一闪而过

smartstar

向各位达人学习。

davide888

不是LSP闪过

yuncai001

楼主。参数类型错误: consp nil 2008版的，怎么解决

lisone

好东西不要错过