文字转封闭的多段线轮廓

lisp_beginner

来论坛只有索取，今天分享大家一个代码


(defun c:wmft ()
  (setq ss (ssget '((0 . "*TEXT"))))
  (command "wmfopts") ;| ckeck for solid !! |;
  (setq file (strcat (getvar "dwgprefix") "wmf.wmf"))
  (setq n (sslength ss))
  (setq k -1)
  (repeat n
    (setq k (1+ k))
    (setq s (ssname ss k))
    (setq en (entget s))
    (setq pt1 (cdr (assoc 10 en)))
    (setq pt2 (polar pt1 (* pi 0.5) 1.0))
    (setq obj (vlax-ename->vla-object s))
    (setq typ (cdr (assoc 0 en)))
    (setq bw 0)
    (cond ((and (= typ "TEXT") (= (vlax-get-property obj "backward") :vlax-true)) (setq bw 1)))
    (cond ((= bw 0) (command "mirror" s "" pt1 pt2 "yes")))
    (command "zoom" "object" s "")
    (command "wmfout" file s "")
    (setq viewctr (getvar "viewctr"))
    (setq viewsize (getvar "viewsize"))
    (setq screensize (getvar "screensize"))
    (setq ratio (/ (car screensize) (cadr screensize)))
    (setq po (polar viewctr (* pi 0.5) (* viewsize 0.5)))
    (setq po (polar po (* pi 1.0) (* viewsize ratio 0.5)))
    (setvar "clayer" (vla-get-layer obj))
    (command "wmfin" file po 2.0 2.0 0.0)
    (entdel s)
  )
  (setvar "clayer" "0")
  (princ)
)

kmliro_2017

谢谢分享！！！！

yangjian001

做一个热心并受欢迎的人！