本帖最后由 xyp1964 于 2011-4-25 09:50 编辑
 - ;;
- (Defun C:tt (/ ss N s1 p0 pt p1 p2 tx)
- (Setvar "Cmdecho" 0)
- (Setq ss (Ssget '((2 . "E") (43 . 4.003)))
- N -1
- )
- (while (setq s1 (ssname ss (setq n (1+ n))))
- (Setq p0 (Cdr (Assoc 10 (Entget s1)))
- pt (List (+ (Car p0) 2.5) (+ (Cadr p0) 2.5))
- )
- (Vl-Cmdf ".Text" "S" "Standard" "J" "Mc" pt "3.0" "0" "E")
- )
- (Setq pt (Getpoint "\npt: ")
- p1 (List (+ (Car pt) 0.2) (+ (Cadr pt) 5.0))
- p2 (List (+ (Car pt) 0.2) (- (Cadr pt) 5.8))
- tx (Strcat "E:" (Itoa n) "-%%C4.000+0.003")
- )
- (Vl-Cmdf ".Text" "S" "Standard" "J" "Bl" p1 "3" "0" "合计: ")
- (Vl-Cmdf ".Text" p2 "2.35" "0" tx)
- (Setvar "Cmdecho" 1)
- (Princ)
- )
|