CAD中数据统计方法.doc

CAD中数据统计方法
CAD中统计数字的方法：
使用CAD中的快捷键TT，但是需要先进行加载，加载方法是：打开CAD，选择菜单栏---工具---加载应用程序---选择窗口中全部文件---加载（即可）。然后就可以用这个快捷键t old new)
(foreach n (car numlst)
(setq lst (entget n))
(setq old (atof (cdr (assoc 1 lst))))
(setq new (eval (cons (read sym) (list old op))))
(setq new (cons 1 (rtos new (getvar "LUNITS") PRECISION)))
(setq lst (subst new (assoc 1 lst) lst))
(entmod lst)
)
)
;;;选择和插入点
(defun common1 ()
(and
(setq sel (ssget '((0 . "TEXT"))))
(null (initget 0 "Yes No"))
(if (setq key (getkword "\n是否保留原数字Yes,No?<默认不保留>:"))
(setq key "Yes")
(setq key "No")
)
(setq first (ssname sel 0))
(setq Numlst (sel->list sel))
)
)
;;;做文字或者更新文字
(defun common2 ()
(setq result (rtos result (getvar "LUNITS") PRECISION))
(if (= key "No")
(if (setq ins (getpoint "\n请输入插入点:"))
(make-text first result ins)
)
(update-text first result)
)
)
;;;选择集合转化成数字列表
(defun sel->list (sel / i ent lst num Els nls)
(setq i 0)
(repeat (sslength sel)
(setq ent (ssname sel i))
(setq lst (entget ent))
(setq num (atof (cdr (assoc 1 lst))))
(setq Els (cons ent Els))
(setq Nls (cons num Nls))
(setq i (1+ i))
)
(list
(reverse Els)
(reverse Nls)
)
)
;;;创建新文字,在指定点插入
(defun make-text (first string inspt / remove txtlst lst)
(setq remove (list -1 330 5 1 10 11 50))
(setq txtlst (entget first))
(foreach n txtlst
(if (not (member (car n) remove))
(setq lst (cons n lst))
)
)
(setq lst (cons (cons 1 string) lst))
(setq lst (cons (cons 10 inspt) lst))
(setq lst (cons (cons 11 inspt) lst))
(setq lst (reverse lst))
(cdr (assoc 40 (entmake lst)))
)
;;;保留文字,仅更新内容
(defun update-text (ent string / txtlst)
(setq txtlst (entget e