[求助]：如何直接标注m2和m3？

qq8899

请问，有没有这方面的程序？

lsjjm

你的问题tai笼统, 什么是m2,m3?

qq8899

就是直接标注平方米，立方米啊

lt_zzy

2. 
   
3.   [FONT=courier new]
   
4. (defun c:m2()
   
5. (setvar "cmdecho" 0)
   
6. (command "undo""group")
   
7. (setq pt1 (getpoint "\n请输入起点位置:"))
   
8. (setq bl (getint"\n请输入比例:"))
   
9. (xwb "(m%%202)" (* 0.25 bl) pt1)
   
10. (command "undo""end")
    
11. (setvar "cmdecho"1)
    
12. (princ)
    
13. )
    
14. 
    
15. (defun c:m3()
    
16. (setvar "cmdecho" 0)
    
17. (command "undo""group")
    
18. (setq pt1 (getpoint "\n请输入起点位置:"))
    
19. (setq bl (getint"\n请输入比例:"))
    
20. (xwb "(m%%203)" (* 0.25 bl) pt1)
    
21. (command "undo""end")
    
22. (setvar "cmdecho"1)
    
23. (princ)
    
24. )
    
25. 
    
26. (defun xwb(txt height ptnew / txt_pp sty txt_p height_p ptold )
    
27.    (setq txt_pp  '((0 . "TEXT") (67 . 0) (10 1.0 1.0 0.0) (40 . 20.0) (1 . "000") (50 . 0.0) (41 . 0.75) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) (73 . 0)))
    
28.    (setq sty (getvar "textstyle"))        
    
29.    (setq sty (cons 7 sty))
    
30.    (setq txt_p (cons 1 txt))
    
31.    (setq height_p (cons 40 height))
    
32.    (setq txt_pp (subst sty (assoc 7 txt_pp) txt_pp))
    
33.    (setq txt_pp (subst height_p (assoc 40 txt_pp) txt_pp))
    
34.    (setq txt_pp (subst txt_p (assoc 1 txt_pp) txt_pp))
    
35.    (setq ptnew (cons 10 ptnew))
    
36.    (setq txt_pp (subst ptnew (assoc 10 txt_pp) txt_pp))
    
37.    (entmake txt_pp)                                      
    
38.    (princ)
    
39. )
    
40. 
    
41. (defun c:xwb ()
    
42.   (xwb txt height ptnew)
    
43. (princ))
    
44.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:m2()<br /> (setvar "cmdecho" 0)<br /> (command "undo""group")<br /> (setq pt1 (getpoint "\n请输入起点位置:"))<br /> (setq bl (getint"\n请输入比例:"))<br /> (xwb "(m%%202)" (* 0.25 bl) pt1)<br /> (command "undo""end")<br /> (setvar "cmdecho"1)<br /> (princ)<br /> )<br /> <br /> (defun c:m3()<br /> (setvar "cmdecho" 0)<br /> (command "undo""group")<br /> (setq pt1 (getpoint "\n请输入起点位置:"))<br /> (setq bl (getint"\n请输入比例:"))<br /> (xwb "(m%%203)" (* 0.25 bl) pt1)<br /> (command "undo""end")<br /> (setvar "cmdecho"1)<br /> (princ)<br /> )<br /> <br /> (defun xwb(txt height ptnew / txt_pp sty txt_p height_p ptold )<br />    (setq txt_pp  '((0 . "TEXT") (67 . 0) (10 1.0 1.0 0.0) (40 . 20.0) (1 . "000") (50 . 0.0) (41 . 0.75) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) (73 . 0)))<br />    (setq sty (getvar "textstyle"))        <br />    (setq sty (cons 7 sty))<br />    (setq txt_p (cons 1 txt))<br />    (setq height_p (cons 40 height))<br />    (setq txt_pp (subst sty (assoc 7 txt_pp) txt_pp))<br />    (setq txt_pp (subst height_p (assoc 40 txt_pp) txt_pp))<br />    (setq txt_pp (subst txt_p (assoc 1 txt_pp) txt_pp))<br />    (setq ptnew (cons 10 ptnew))<br />    (setq txt_pp (subst ptnew (assoc 10 txt_pp) txt_pp))<br />    (entmake txt_pp)                                      <br />    (princ)<br /> )<br /> <br /> (defun c:xwb ()<br />   (xwb txt height ptnew)<br /> (princ))<br />   [/FONT]<br />

你将上面的两个LSP程序加载上，输入m2，就是写平方米，m3就是写立方米。你要用到下面的型字体！

lt_zzy

型字体。

lsjjm

最初由 qq8899 发布
[B]就是直接标注平方米，立方米啊 [/B]

你说个平方/立方不就都清楚了! 好了, 班主给了你答
案, 还可以参考论坛其他贴子.

qq8899

为什么下载还要现金和积分，我急着用，却下载不了

nwlulu

给你个字型mm.shx,  m2输入"m%%1562%%157", m3输入"m%%1563%%157"
%%156,%%157为上标起与止
%%158，%%159为下标起与止
mm.shx还是中英文等高的，与hztxt.shx(1.17M)配合极佳。

wjl911

谢谢，还有别的没有？

mwu5

唉!我还不能下载!!

zd81

                               
登录/注册后可看大图

                               
登录/注册后可看大图

一

                               
登录/注册后可看大图

huyong

本人使用有一种字体既可注上标又可注下标（从1～9均可）。试试吧。