wengsg 发表于 2004-12-25 21:03:00

如何实现分数式数据




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


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


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


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

meflying 发表于 2004-12-26 13:32:00

mtext命令


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

wengsg 发表于 2004-12-26 16:59:00

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

雪山飞狐_lzh 发表于 2004-12-26 19:28:00

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

meflying 发表于 2004-12-27 08:41:00

(command "_.mtext" pt1        pt2 "<A href="file://Sa/b" target="_blank" >\\Sa/b</A>" "")

wengsg 发表于 2004-12-27 10:00:00

(defun c:00 ()<BR>       (setq pt1 (getpoint "路线起点"))<BR>       (command "_.mtext" pt1 <A href='mailto:"w" target="_blank" >"w" "@13,13</A>" "<A href="file://Sa/b" target="_blank" >\\Sa/b</A>" "")<BR>       (princ)<BR>)


“a”，“b”如何得到人为输入方式。

meflying 发表于 2004-12-27 10:08:00

(strcat "<A href="file://s/" target="_blank" >\\s</A>" a "/" b)

wengsg 发表于 2004-12-27 11:31:00

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

ZZXXQQ 发表于 2004-12-27 16:30:00

; 写分数文字
(DEFUN C:FWZ ()
   (SETVAR "CMDECHO" 0)
   (SETQ OLDOS (GETVAR "OSMODE"))
   (SETVAR "OSMODE" 0)
   (SETQ PT1 (GETPOINT "\n选择文字位置左下角点 :"))
   (SETQ OBJ (ENTSEL "\n选择直线 :"))
   (COMMAND "STYLE" "ST" "宋体" "" "" "" "" "");;设置文字样式。
   (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)
)
页: [1]
查看完整版本: 如何实现分数式数据