如何实现分数式数据

wengsg

如何实现分数式数据,具体要求：


1点——作为文字或线的起点


2点——作为文字或线的参照角度


也就是说先在屏幕上选择一点作为文字的起点，然后再选择线作为文字的参照角度。文字最好用TEXT，便于以后修改！

meflying

mtext命令


如图，输入a\b，再点击图上画圈那个按钮。。。同文本一样，修改方便

wengsg

这个我知道，我是说要怎么去编(lisp)这个程序？

雪山飞狐_lzh

你用Lisp函数把MText的内容取出看看

meflying

(command "_.mtext" pt1 pt2 "\\Sa/b" "")

wengsg

(defun c:00 ()
(setq pt1 (getpoint "路线起点"))
(command "_.mtext" pt1 回复 支持 反对

使用道具 举报

• 显身卡

meflying

(strcat "\\s" a "/" b)

wengsg

不解，你能否帮我编一个作为参考？

ZZXXQQ

1. ; 写分数文字
2. (DEFUN C:FWZ ()
3.    (SETVAR "CMDECHO" 0)
4.    (SETQ OLDOS (GETVAR "OSMODE"))
5.    (SETVAR "OSMODE" 0)
6.    (SETQ PT1 (GETPOINT "\n选择文字位置左下角点 :"))
7.    (SETQ OBJ (ENTSEL "\n选择直线 :"))
8.    (COMMAND "STYLE" "ST" "宋体" "" "" "" "" "");;设置文字样式。
9.    (SETQ TXTH (* (GETVAR "DIMSCALE") (GETVAR "DIMTXT")))
10.    (SETQ PT2 (POLAR (POLAR PT1 0 (* TXTH 20)) (/ PI 2) (* TXTH 3)))
11.    (SETQ TXT (GETSTRING "\n分子 :"))
12.    (SETQ TXT (STRCAT "\\S" TXT "/" (GETSTRING "\n分母 :") ";"))
13.    (SETQ PT3 (OSNAP (CADR OBJ) "NEA"))
14.    (SETQ ANG (ANGLE PT3 (CDR (ASSOC 10 (ENTGET (CAR OBJ))))))
15.    (WHILE (> ANG (/ PI 2)) (SETQ ANG (- ANG PI)))
16.    (SETQ ANG (* (/ ANG PI) 180))
17.    (COMMAND "MTEXT" PT1 PT2 TXT "")
18.    (COMMAND "ROTATE" "L" "" PT1 ANG)
19.    (SETVAR "OSMODE" OLDOS)
20.    (SETVAR "CMDECHO" 1)
21.    (PRINC)
22. )

复制代码