;;;自動標註 *
;;;思路：1.選擇物件 *
;;; 2.指定基點 *
;;; 3.輸入比例 *
;;; 4.獲取特徵點座標 *
;;; 5.提煉 x 座標，並排序 *
;;; 6.提煉 y 座標，並排序 *
;;; 7.標註 *
;;; 總控 zml84 於 2009-05-07 *
(defun c:tt ()
(if(and (setq ss (ssget)) ;_'((0 . "line,arc,pline"))
(setq pt0 (getpoint "\n指定基點: "))
(setq sc (getreal "\n輸入比例: "))
(progn
(setq lst_pt (tt-04 ss))
(setq lst_x(tt-05 lst_pt)
lst_y(tt-06 lst_pt)
(tt-07 lst_x lst_y pt0 sc)
(princ)
;;; 4.獲取特徵點座標 *
(defun tt-04 (ss / lst_pt i ent n pt)
(setq lst_pt '()
i 0(repeat (sslength ss)
(setq ent (entget (ssname ss i)))
(foreach n ent
(if(<= 10 (car n) 19)
(setq pt (cdr n)
lst_pt (cons pt lst_pt)
(setq i (1+ i))
;;返回
(reverse lst_pt)
;;; 5.提煉 x 座標，並排序 *
(defun tt-05 (lst_pt / lst_x pt x y tmp)
(setq lst_x '())
(foreach ptlst_pt
(setq x(car pt)
y(cadr pt)
(if (setq tmp (assoc x lst_x))
(setq lst_x (cons (list x y) lst_x))
;;排序
(setq lst_x(mapcar'(lambda (e1)
(cons (car e1) (vl-sort (cdr e1) '
lst_x
(setq lst_x(vl-sort lst_x
'(lambda (e1 e2)
(< (car e1) (car e2))
;;返回
lst_x
;;; 6.提煉 y 座標，並排序 *
(defun tt-06 (lst_pt / lst_y pt y y tmp)
(setq lst_y '())
(foreach ptlst_pt
(setq x(car pt)
y(cadr pt)
(if (setq tmp (assoc y lst_y))
(setq lst_y (cons (list y x) lst_y))
;;排序
(setq lst_y(mapcar'(lambda (e1)
(cons (car e1) (vl-sort (cdr e1) '
lst_y
(setq lst_y(vl-sort lst_y
'(lambda (e1 e2)
(< (car e1) (car e2))
;;返回
lst_y
;;; 7.標註 *
(defun tt-07 (lst_x lst_y pt0 sc / tmp x y pt str x_last pt1)
;;標註 x
(setq x_last (caar lst_x))
(foreach tmp lst_x
(setq x (car tmp)
y (cadr tmp)
pt (list x y)
str (rtos (* sc (- x (car pt0))))
(setq x_last (max x x_last)
pt1 (list x_last (- (cadr pt0) (* 1.0 sc))) ;_標註點
x_last (+x_last
(* 2 (getvar "dimtxt") (getvar "dimscale"))
(command "_dimordinate" "non" pt "x" "t" str "non" pt1)
;;標註 y
(setq y_last (caar lst_y))
(foreach tmp lst_y
(setq y (car tmp)
x (cadr tmp)
pt (list x y)
str (rtos (* sc (- y (cadr pt0))))
(setq y_last (max y y_last)
pt1 (list (- (car pt0) (* 1.0 sc)) y_last) ;_標註點
y_last (+y_last
(* 2 (getvar "dimtxt") (getvar "dimscale"))
(command "_dimordinate" "non" pt "y" "t" str "non" pt1)
5 4 自動標註
最重要的乙個專案！from nltk.corpus import brown brown tagged sents brown.tagged sents categories news brown sents brown.sents categories news import nltk tags ...
NLTK中文詞性自動標註
學習自然語言處理，一定會參考nltk,主要是學習它的思路,從設計地角度看看能做什麼.其本質就是把語言看成字串，字串組，字串集，尋找其間規律 nltk是多語言支援的,但目前網上的例程幾乎沒有用nltk處理中文的，其實可以做。比如標註功能,它自身提供了帶標註的中文語庫 繁體語料庫sinica treeb...
python實現labelme樣本自動標註
公司前段時間做乙個專案，需要用到語義分割，樣本很多，但是都沒有標註，也沒有讓標註公司弄，只好自己標註，平均兩分半一張，一天標200多張人都要瘋了，而且專案進度也比較著急。所以自己實現了乙個基於labelme的自動標註模組，在了解正文之前，請先看下一段的說明，選擇性繞道，以免耽誤個人寶貴的時間。一 模...