怎样实现分数的输入呢？

cxg121

如题，在LISP里怎样写一个分数到CAD呢？譬如说，分子是AAA，分母是BBB？

ljpnb

输入之后你要什么样的结果，比如说输入1/4，让程序知道实际你想要的是0.25，如果是这样的，可以实现。

ZZXXQQ

(command "mtext" pt1 pt2 "\SAAA/BBB;" "");pt1和pt2为给定对角点

wengsg

;; 写分数文字
(DEFUN C:FWZ (/ OLDOS PT1 OBJ TXTH PT2 TXT PT3 ANG)
(SETvar "CMDECHO" 0)
(SETQ OLDOS (GETvar "OSMODE"))
(SETvar "OSMODE" 0)
(SETQ PT1 (GETPOINT "\n选择文字位置左下角点 :"))
(SETQ OBJ (ENTSEL "\n选择直线 :"))
(command "style" "ST" "宋体" 2.5 1.0 0 "N" "N")
;;设置文字样式。
(SETQ TXTH (* (GETvar "DIMSCALE") (GETvar "DIMTXT")))
(SETQ PT2 (POLAR (POLAR PT1 0 (* TXTH 20)) (/ PI 2) (* TXTH 3)))
(SETQ TXT (GETSTRING "\n分子 :"))
(SETQ TXT (STRCAT "\\S" TXT "/" (GETSTRING "\n分母 :") ";"))
(SETQ PT3 (OSNAP (CADR OBJ) "NEA"))
(SETQ ANG (ANGLE PT3 (CDR (ASSOC 10 (ENTGET (CAR OBJ))))))
(WHILE (> ANG (/ PI 2)) (SETQ ANG (- ANG PI)))
(SETQ ANG (* (/ ANG PI) 180))
(COMMAND "MTEXT" PT1 PT2 TXT "")
(COMMAND "ROTATE" "L" "" PT1 ANG)
(SETvar "OSMODE" OLDOS)
(SETvar "CMDECHO" 1)
(PRINC)
)