[求助]：如何使用lisp写出堆叠啊？

fatcat1985

现在要用autolisp 作出堆叠效果的文字,怎么实现？谢谢。
这个是我现在写出来的lisp:
(defun bz (/ pt1 pt2)
  (setq        pt1 (getpoint  "\n 输入第一点")
        pt2 (getpoint  "\n 输入第二点")
  )
  (defun 3dPoint->2dPoint (3dpt)(list (float(car 3dpt)) (float(cadr 3dpt))))
  (3dPoint->2dPoint pt1)
  (3dPoint->2dPoint pt2)


    (command "_.mtext" )
  (command pt1)
  (command pt2)


  (princ)
)

执行完之后，他是在命令窗口提示输入文字，怎么输入分数啊?

doubao

您的“堆叠效果”是怎样一种效果啊？ 能说的具体些么？ 您所说的“分数”是什么意思？

您的程序只是让autocad执行mtext命令。

fatcat1985

就是输入分数啊,比如1/2。但是问题是前面还有字符，怎么样让其他的字符对准分数线?

ohmylove

给一个简单例子：

2. 
   
3. (defun c:piled_mtext ( / )
   
4.         (command "-mtext" '(0 0) '(10 10) "\\A1;2{\\H0.7x;\\S3^7;}" "")
   
5. )
   

<br /> (defun c:piled_mtext ( / )<br />         (command "-mtext" '(0 0) '(10 10) "\\A1;2{\\H0.7x;\\S3^7;}" "")<br /> )<br />