[求助]对文字加边框

TLHMQH · 发表于 2007-4-20 06:49

本帖最后由作者于 2007-4-20 7:01:43 编辑

下面是我按一本书中抄写的“给文字加边框”的程序，不知那里有错误？

烦请高手指点。谢谢！

(defun c:wzk (/ teztent ang sinrot cosrot t1 t2 p0 p1 p2 p3 p4)
(setq teztent (entget (car (entsel "\nselect text:"))))
(setq p0 (car (assoc 10 textent))
      ang (car (assoc 50 textent))
      sinrot (sin ang)
      cosrot (cos ang)
      t1 (car (textbox textbox))
      t2 (cadr (textbox textbox))
      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))
         )
    );setq end
    (command "pline" p1 p2 p3 p4 "c")
    (princ)
)

byghbcx · 发表于 2007-4-20 08:25

好多地方输入错误

(defun c:wzk (/ teztent ang sinrot cosrot t1 t2 p0 p1 p2 p3 p4);文字加框
(setq textent (entget (car (entsel "\nselect text:"))))
(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)))
)
);setq end
(command "pline" p1 p2 p3 p4 "c")
(princ)
)

(defun c:wzk (/ teztent ang sinrot cosrot t1 t2 p0 p1 p2 p3 p4);文字加框
  (setq textent (entget (car (entsel "\nselect text:"))))
  (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)))
         )
    );setq end
    (command "pline" p1 p2 p3 p4 "c")
    (princ)
)

TLHMQH · 发表于 2007-4-20 12:51

本帖最后由作者于 2007-4-20 12:57:29 编辑

谢谢byghbcx的帮助！

复制代码

(defun c:wzk (/ teztent ang sinrot cosrot t1 t2 p0 p1 p2 p3 p4);文字加框
(setq textent (entget (car (entsel "\n请选择文字:"))))
(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 (+ -5(car p0)
(- (* (car t1) cosrot)(* (cadr t1) sinrot)))
(+ (cadr p0)
(+ -5 (* (car t1) sinrot)(* (cadr t1) cosrot)))
)
p2 (list (+ 5 (car p0)
(- (* (car t2) cosrot)(* (cadr t1) sinrot)))
(+ -5 (cadr p0)
(+ (* (car t2) sinrot)(* (cadr t1) cosrot)))
)
p3 (list (+ 5 (car p0)
(- (* (car t2) cosrot)(* (cadr t2) sinrot)))
(+ 5 (cadr p0)
(+ (* (car t2) sinrot)(* (cadr t2) cosrot)))
)
p4 (list (+ -5 (car p0)
(- (* (car t1) cosrot)(* (cadr t2) sinrot)))
(+ 5 (cadr p0)
(+ (* (car t1) sinrot)(* (cadr t2) cosrot)))
)
);setq end
(command "pline" p1 p2 p3 p4 "c")
(princ)
)

(defun c:wzk (/ teztent ang sinrot cosrot t1 t2 p0 p1 p2 p3 p4);文字加框
   (setq textent (entget (car (entsel "\n请选择文字:"))))
   (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 (+ -5(car p0)
         (- (* (car t1) cosrot)(* (cadr t1) sinrot)))
         (+ (cadr p0)
          (+ -5 (* (car t1) sinrot)(* (cadr t1) cosrot)))
          )
       p2 (list (+ 5 (car p0)
         (- (* (car t2) cosrot)(* (cadr t1) sinrot)))
         (+ -5 (cadr p0)
         (+ (* (car t2) sinrot)(* (cadr t1) cosrot)))
          )
       p3 (list (+ 5 (car p0)
         (- (* (car t2) cosrot)(* (cadr t2) sinrot)))
         (+ 5 (cadr p0)
         (+ (* (car t2) sinrot)(* (cadr t2) cosrot)))
          )
       p4 (list (+ -5 (car p0)
         (- (* (car t1) cosrot)(* (cadr t2) sinrot)))
         (+ 5 (cadr p0)
         (+ (* (car t1) sinrot)(* (cadr t2) cosrot)))
          )
     );setq end
     (command "pline" p1 p2 p3 p4 "c")
     (princ)
)

为什么四边全部增加字框与文字的距离（5）后（如上面程序），系统提示：
错误: 参数类型错误: lentityp nil
而只增加三边时却可以？

byghbcx · 发表于 2007-4-20 15:08

增加距离用极坐标算较方便,用笛卡尔坐标系较复杂,你上面程序可以运行的,只是求的不对.

(defun c:wzk (/ teztent ang sinrot cosrot h t1 t2 p0 p1 p2 p3 p4);文字加框
(setq textent (entget (car (entsel "\n请选择文字:"))))
(setq p0 (cdr (assoc 10 textent))
ang (cdr (assoc 50 textent))
h (cdr (assoc 40 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)))
)
p1 (polar p1 (+ ang (* pi 1.25)) (* h 0.2))
p2 (polar p2 (+ ang (* pi 1.75)) (* h 0.2))
p3 (polar p3 (+ ang (* pi 0.25)) (* h 0.2))
p4 (polar p4 (+ ang (* pi 0.75)) (* h 0.2))
);setq end
(command "pline" p1 p2 p3 p4 "c")
(princ)
)

(defun c:wzk (/ teztent ang sinrot cosrot h t1 t2 p0 p1 p2 p3 p4);文字加框
   (setq textent (entget (car (entsel "\n请选择文字:"))))
   (setq p0 (cdr (assoc 10 textent))
       ang (cdr (assoc 50 textent))
       h  (cdr (assoc 40 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)))
          )
       p1 (polar p1 (+ ang (* pi 1.25)) (* h 0.2))
       p2 (polar p2 (+ ang (* pi 1.75)) (* h 0.2))
       p3 (polar p3 (+ ang (* pi 0.25)) (* h 0.2))
       p4 (polar p4 (+ ang (* pi 0.75)) (* h 0.2))
     );setq end
     (command "pline" p1 p2 p3 p4 "c")
     (princ)
)

TLHMQH · 发表于 2007-4-20 17:33

再次谢谢byghbcx的帮助！

本想送上鲜花，但“帖子操作”不能使用。

只能再次说声谢谢！！！

ngeqt521 · 发表于 2007-4-30 11:25

能不能改成给标注文字加边框

jxphklibin · 发表于 2007-4-30 14:14

尚存在问题，受与之相交的图元的影响，加框线会有变化，请在修改.

phoenixdjq · 发表于 2007-4-30 20:21

如果要求不高的话，可以用et工具里面的给文字加边框

网上有一个找实体最大外围的程序，也可以用的

abcxyz0517 · 发表于 2007-5-2 08:26

phoenixdjq发表于2007-4-30 20:21:00网上有一个找实体最大外围的程序，也可以用的

哦~

改天找找~

xyp1964 · 发表于 2007-5-2 20:44

本帖最后由作者于 2007-5-2 20:45:39 编辑

关于text文本处理的程序“文本编辑套件”：

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

[求助]对文字加边框

本帖子中包含更多资源