level 3
完美堕luo
楼主
取得标注各关键坐标点值 (cond ((= (cdr (assoc 1 ent)) "<>{}{}") (setq txt2 (cdr (assoc 42 ent)) p10 (cdr (assoc 10 ent)) p14 (cdr (assoc 14 ent)) p11 (cdr (assoc 11 ent)) p13 (cdr (assoc 13 ent)) )) ((= (cdr (assoc 1 ent)) "" ) (setq txt2 (cdr (assoc 42 ent)) p10 (cdr (assoc 10 ent)) p14 (cdr (assoc 14 ent)) p11 (cdr (assoc 11 ent)) p13 (cdr (assoc 13 ent)) )) (t (princ ) ) ) (setq p10x (car p10) p10y (cadr p10) p14x (car p14) p14y (cadr p14) p11x (car p11) p11y (cadr p11) p13x (car p13) p13y (cadr p13) )
2013年04月16日 05点04分
1