自动标注

sz19821x

;对象长宽标注

(defun c:25t(/ dimtx minx0 miny0 maxx0 maxy0 ss end end_data i p1 p2 p3 p4 P5 p6
    keyh p7 p8 p9 p10)
(vl-load-com)
(command "undo" "be")
(setvar "cmdecho" 0)
  (setq keyh nil)
  (setq dimtx (getvar "dimtxt"))
(command "ucs" "w")
(if (and (princ "\nSelect object to dim :") (setq ss (ssget))) (progn
  (setq minx0 1e6 miny0 1e6 maxx0 -1e6 maxy0 -1e6)
  (setq i 0)
  (repeat (sslength ss)
   (setq end (ssname ss i))
   (setq end_data (entget end))
   (Min_Max)
   (setq i(1+ i))
  );end repeat
  (setq p1 (list minx0 miny0)    p2 (list minx0 maxy0)
        p3 (list maxx0 maxy0)    p4 (list maxx0 miny0))
  (autodrawline)
  (command "DIMLINEAR" "non" p1 "non" p2 "non" (polar p2 pi p5))
  (command "DIMLINEAR" "non" p1 "non" p4 "non" (setq p6 (polar p4 (/ pi -2) p5)))
    (princ "\n Please give height ...default<25>：")
    (if (= (car (grread)) 3) (exit))
    (if (= keyh nil) (setq keyh 25))
    (setq p7 (list minx0 (- miny0 p5 (* 4 dimtx))))
    (setq p8 (list maxx0 (- miny0 p5 (* 4 dimtx))))
    (setq p9 (list maxx0 (- (- miny0 p5 (* 4 dimtx)) keyh)))
    (setq p10 (list minx0 (- (- miny0 p5 (* 4 dimtx)) keyh)))
    (vl-cmdf "rectang" p7 p9 "")
  (command "DIMLINEAR" "non" p7 "non" p10 "non" (polar p2 pi p5))
  (command "undo" "e")
))
(princ)
)






;;;子程序，求选集是大外形坐标
(defun Min_Max(/ minx maxx miny maxy)
(vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)
(setq minp (vlax-safearray->list minp)
       maxp (vlax-safearray->list maxp))
(setq minx (car minp)
       maxx (car maxp)
       miny (cadr minp)
       maxy (cadr maxp))
(if (> minx0 minx) (setq minx0 minx))
(if (> miny0 miny) (setq miny0 miny))
(if (< maxx0 maxx) (setq maxx0 maxx))
(if (< maxy0 maxy) (setq maxy0 maxy))
)

;;  defun grread
(defun ZML-GRREAD (LST / test tmp mode val tmp2)
    (setq TEST t)
    (while TEST
(setq TMP  (grread 2)
       MODE (car TMP)
       val  (cadr tmp)
)
(cond ((= mode 2)
        (if (and (setq TMP2 (assoc mode LST))
   (setq tmp2 (cdr tmp2))
   (setq tmp2 (assoc val tmp2))
     )
     (eval (cons 'progn (cdr TMP2)))
     ()
        )
       );row end
       ((setq TMP2 (assoc MODE LST))
        (eval (cons 'progn (cdr TMP2)))
       )
       (t (princ tmp))
)
    )
)

;;;;;;;;;;;;;auto draw line
(defun autodrawline(/ SS lst PT PT0)
     (setq LST
       (list '(5
        (setq pt val)
        ;;
        (redraw)
        (grdraw PT p1 3)
       )
      ;;left press
      '
       (3
        (setq pt val)
(setq p5 (distance PT p1))
        (redraw)
        (setq TEST NIL)
       )
      '(25
        (redraw)
        (setq TEST NIL)
       )
      '(11
        (redraw)
        (setq TEST NIL)
       )
       )
     )
     (ZML-GRREAD lst)
    (princ)
)

sz19821x

如附件图片，求高手指教，谢谢！

tzfcn

很好的代码，可以方便的进行标注了。

zjy2999

学习了！！！！！

yz1223

楼主好厉害，这功能可实用了

代敬龙

谢谢，收藏 学习

sfqosk

谢谢分享 下载备用