[求助]在VLISP中,怎样标注形位公差?

龙龙仔 · 发表于 2003-1-9 08:25:00

(defun CA2 (/ APP DOC SPC TXTSTR TOLOBJ PT1 PT2)
  (vl-load-com)
  (setq       APP (vlax-get-acad-object)
      DOC (vla-get-activedocument APP)
  )
  (if (= (getvar "tilemode") 0)
(progn
   (if (= (getvar "cvport") 1)
      (setq SPC (vla-get-paperspace DOC))
      (setq SPC (vla-get-modelspace DOC))
   )
)
(setq SPC (vla-get-modelspace DOC))
  )
  (setq
TXTSTR
   "{\\Fgdt;i}%%v{\\Fgdt;n}345345%%v%%vA%%v%%v"
  )
  (setq       TOLOBJ
      (vla-addtolerance
         SPC
         TXTSTR
         (vlax-3d-point
         (setq PT1 (getpoint "\nSelect Insertion Point: "))
         )
         (vlax-3d-point
         (progn
            (setq PT2 (getpoint PT1 "\nDirection Point: "))
            (list (- (car PT2) (car PT1)) (- (cadr PT2) (cadr PT1)))
         )
         )
      )
  )
  (vla-put-scalefactor TOLOBJ (getvar "dimscale"))
  (vlax-release-object TOLOBJ)
  (princ)
)

[求助]在VLISP中,怎样标注形位公差?

发表回复

精选推荐