文字或属性文字包围盒

st788796 · 发表于 2014-12-6 15:04:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

原文在Alisp联机帮助，简单修改

(defun C:TBOX2 (/ textent ang sinrot cosrot t1 t2 p0 p1 p2 p3 p4)
(setq textent (entget (car (nentsel "\nSelect text: "))));_entsel -> nentsel
(setq p0 (cdr (assoc 10 textent))
ang (cdr (assoc 50 textent))
sinrot (sin ang)
cosrot (cos ang)
t1 (car (textbox textent))
t2 (cadr (textbox textent))
p1 (list
(+ (car p0)
(- (* (car t1) cosrot) (* (cadr t1) sinrot))
)
(+ (cadr p0)
(+ (* (car t1) sinrot) (* (cadr t1) cosrot))
)
)
p2 (list
(+ (car p0)
(- (* (car t2) cosrot) (* (cadr t1) sinrot))
)
(+ (cadr p0)
(+ (* (car t2) sinrot) (* (cadr t1) cosrot))
)
)
p3 (list
(+ (car p0)
(- (* (car t2) cosrot) (* (cadr t2) sinrot))
)
(+ (cadr p0)
(+ (* (car t2) sinrot) (* (cadr t2) cosrot))
)
)
p4 (list
(+ (car p0)
(- (* (car t1) cosrot) (* (cadr t2) sinrot))
)
(+ (cadr p0)
(+ (* (car t1) sinrot) (* (cadr t2) cosrot))
)
)
)
(command "pline" "_none" p1 "_none" p2 "_none" p3 "_none" p4 "c");_none
(princ)
)

(defun C:TBOX2 (/ textent ang sinrot cosrot t1 t2 p0 p1 p2 p3 p4) 
  (setq textent (entget (car (nentsel "\nSelect text: "))));_entsel -> nentsel 
  (setq        p0     (cdr (assoc 10 textent)) 
        ang    (cdr (assoc 50 textent)) 
        sinrot (sin ang) 
        cosrot (cos ang) 
        t1     (car (textbox textent)) 
        t2     (cadr (textbox textent)) 
        p1     (list 
                 (+ (car p0) 
                    (- (* (car t1) cosrot) (* (cadr t1) sinrot)) 
                 ) 
                 (+ (cadr p0) 
                    (+ (* (car t1) sinrot) (* (cadr t1) cosrot)) 
                 ) 
               ) 
        p2     (list 
                 (+ (car p0) 
                    (- (* (car t2) cosrot) (* (cadr t1) sinrot)) 
                 ) 
                 (+ (cadr p0) 
                    (+ (* (car t2) sinrot) (* (cadr t1) cosrot)) 
                 ) 
               ) 
        p3     (list 
                 (+ (car p0) 
                    (- (* (car t2) cosrot) (* (cadr t2) sinrot)) 
                 ) 
                 (+ (cadr p0) 
                    (+ (* (car t2) sinrot) (* (cadr t2) cosrot)) 
                 ) 
               ) 
        p4     (list 
                 (+ (car p0) 
                    (- (* (car t1) cosrot) (* (cadr t2) sinrot)) 
                 ) 
                 (+ (cadr p0) 
                    (+ (* (car t1) sinrot) (* (cadr t2) cosrot)) 
                 ) 
               ) 
  ) 
  (command "pline" "_none" p1 "_none" p2 "_none" p3 "_none" p4 "c");_none 
  (princ) 
)

/db_自贡黄明儒_ · 发表于 2014-12-8 11:00:33

用了高飞大师的矩阵，就简化了
(defun w1 (/ E MAT MAT1 PTS X)
  (setq e (car (entsel)))
  (setq Mat (Mat:EntityMatrix e))
  (setq Mat1 (cadr Mat))                                  ;Mat1 4x4
  (setq Mat (car Mat))                                           ;Mat 4x4
  (setq pts (textbox (entget e)))                         ;ocs坐标点
  (setq pts (mapcar '(lambda (x) (mat:mxp mat1 x)) pts)) ;世界坐标系
  (mapcar '(lambda (x) (trans x 0 1)) pts)                   ;ucs下坐标
)

st788796 · 发表于 2014-12-8 11:44:16

/db_自贡黄明儒_ 发表于 2014-12-8 11:00
用了高飞大师的矩阵，就简化了
(defun w1 (/ E MAT MAT1 PTS X)
(setq e (car (entsel)))

(defun c:tt (/ e box ecs mat pts)
(if (setq e (car (xdrx_entsel "\nPick text: ")))
(progn
(setq box (apply 'xdrx_points_box (textbox (entget e)))
ecs (xdrx_entity_getecs e)
mat (xdrx_matrix_aligncoordsystem
(xdrx_matrix_getcoordsystem (xdrx_matrix_identity))
ecs
)
pts (xdrx_points_transform box mat)
)
(apply 'xdrx_polyline_make (cons t pts))
)
)
(princ)
)

账号		自动登录	找回密码
密码			立即注册

[他山之石] 文字或属性文字包围盒

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。