• Replies 7 replies
  • Subscribers 5 subscribers
  • Views 6 views
  • Users 0 members are here
Options
Related

Pdms to cad (text to large)

ABBA
 
Parents
  • try to drop this in your dwg or dxf:


    ;;; ----------------
    ;;;NEW TEXT STYLE Arial
    ;;; ----------------
    -Rename
    S
    TTFN5
    SPCX-Arial
    ._STYLE
    SPCX-Arial
    Arial
    3
    1.0
    0
    _NO
    _NO
    ;;; ----------------
    ;;;CONVERT TEXT SMALL
    ;;; ----------------
    (defun c:txt_ht (/ a ts n index b1 b c d b2)
    (setq a (ssget "_X" '((0 . "TEXT") (40 . 3.925))))
    (setq ts 2.2)
    (setq n (sslength a))
    (setq index 0)
     (repeat n
      (setq b1 (entget (ssname a index)))
      (setq index (1+ index))
      (setq b (assoc 0 b1))
       (if (= "TEXT" (cdr b))
        (progn
         (setq c (assoc 40 b1))
         (setq d (cons (car c) ts))
         (setq b2 (subst d c b1))
         (entmod b2)
        )
       )
     )
    )
    txt_ht

    in the 2nd part, change the 3.925 in the 2nd code line (in function of the too big size of your text) and 2.2 in the 3rd (in function of what you would like).
Reply
  • try to drop this in your dwg or dxf:


    ;;; ----------------
    ;;;NEW TEXT STYLE Arial
    ;;; ----------------
    -Rename
    S
    TTFN5
    SPCX-Arial
    ._STYLE
    SPCX-Arial
    Arial
    3
    1.0
    0
    _NO
    _NO
    ;;; ----------------
    ;;;CONVERT TEXT SMALL
    ;;; ----------------
    (defun c:txt_ht (/ a ts n index b1 b c d b2)
    (setq a (ssget "_X" '((0 . "TEXT") (40 . 3.925))))
    (setq ts 2.2)
    (setq n (sslength a))
    (setq index 0)
     (repeat n
      (setq b1 (entget (ssname a index)))
      (setq index (1+ index))
      (setq b (assoc 0 b1))
       (if (= "TEXT" (cdr b))
        (progn
         (setq c (assoc 40 b1))
         (setq d (cons (car c) ts))
         (setq b2 (subst d c b1))
         (entmod b2)
        )
       )
     )
    )
    txt_ht

    in the 2nd part, change the 3.925 in the 2nd code line (in function of the too big size of your text) and 2.2 in the 3rd (in function of what you would like).
Children
No Data