[下载]：AutoCAD文本上下标

陆小凤65 · 发表于 2008-4-24 08:20:47

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

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

×

AutoCAD文本上下标.rar

dkkgljglejg · 发表于 2008-4-27 03:36:30

不错,可我没币

tow · 发表于 2008-5-7 14:14:56

zgmsl · 发表于 2008-5-19 15:26:30

也来凑热闹，学习学习

ycwjf · 发表于 2008-5-25 21:17:43

还有这样的程序，下来试试，谢谢

hao3ren · 发表于 2008-5-28 09:54:05

;;;文本上下标
(defun c:wbsxb()
(vl-load-com)
(setq cm (getvar "cmdecho") om (getvar "osmode"))
(setvar "cmdecho" 0) (setvar "osmode" 0)
(initget "1 2")
(setq bz (getkword "\n请输入标记类型[1 上标,  2 下标]:"))
(if (= bz "1") (setq tsf "\n请输入上标:") (setq tsf "\n请输入下标:" ))
(while (setq qb (car (entsel "\n请选择文本:")))
   (setq sb (getstring tsf) db (entget qb)
   zg  (cdr (assoc 40 db))
   zfc (cdr (assoc 1 db))          pt (cdr (assoc 10 db))
   wb  (cons 1 (strcat "\\A1;" zfc "{\\H0.7x;\\S" sb "^;}"))
   )
   (if (= bz "2") (setq wb  (cons 1 (strcat "\\A1;" zfc "{\\H0.7x;\\S^" sb ";}"))))
   (if (= (cdr (assoc 0 db)) "TEXT")
         (progn
   (setq pt (mapcar '+ (list 0.2 zg 0) pt))
            (entmake
         (list  '(0 . "MTEXT") '(100 . "AcDbEntity") '(67 . 0) '(100 . "AcDbMText")
               (cons 10 pt) wb
         )
   )
   (command "_matchprop" qb (entlast) "")
   (entdel qb)
         )
         (progn (setq db (subst wb (assoc 1 db) db)) (entmod db))
   )
)
(setvar "cmdecho" cm) (setvar "osmode" om) (princ)
)

ljh19991220 · 发表于 2008-5-30 19:25:09

谢谢，正在寻找中。

zhaoyafei19 · 发表于 2008-6-3 22:38:26

不就是公差标注吗?

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

[下载]：AutoCAD文本上下标

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

相关帖子