AutoCAD的定制与开发

    (setq k (1+ k))
    )
    (setq pt (list (/ (+ (car p2) (car p3)) 2) (+ (* 1.2 sc) (cadr p3))))
    (command "line" p0 P2 ""
     "LAYER" "S" "0" ""
     "dtext" "J" "C" pt hd1 0
     )
    (setvar "osmode" sb)
    )
    （4）定义形位公差
    (defun C:gc (/ pp1 pp2 pp3 pp4 s2 k1 k2 sb1 sb2 g1)
    (setq sb1 (getvar "ORTHOMODE")
    sb2 (getvar "OSMODE")
    )
    (setvar "ORTHOMODE" 1)
    (setvar "OSMODE" 512)
    (setq pp1 (getpoint "\n请在实体上选一点:"))
    (setvar "OSMODE" 0)
    (setq pp2 (getpoint pp1 "\n请确定引出线位置:")
    pp3 (getpoint pp2 "\n请确定引出线终点:")
    s2 (getvar "DIMSCALE")
    g1 (angle pp1 pp2)
    k1 (* 1.5 s2)
    k2 (* 4.5 s2)