[编程申请]：怎么调用txt_modangle程序

baihc798

(defun c:txt_modangle (/ ss code $angle)
  (xdrx_begin)
  (while (progn
           (princ "\n选择要修改角度/倾角文字<回车退出>: ")
           (setq ss (ssget '((0 . "text"))))
         )
    (if        ss
      (progn
        (xdrx_setsstodb ss 0)
        (initget 128 "Obliquing")
        (setq $angle (getangle "\n旋转角[O - 倾角]<0>: "))
        (if (and (= (type $angle) 'STR)
                 (/= $angle "")
            )
          (progn
            (setq $angle (getangle "\n倾  角<0>: "))
            (setq code 51)
          )
          (progn
            (setq code 50)
          )
        )
        (if (not $angle)
          (setq $angle 0)
        )
        (while (xdrx_getentdata 0)
          (xdrx_modent code $angle)
        )
        (setq ss nil)
      )
    )
  )

这是晓东的文字角度程序，我自己程序运行时为什么说没有这个命令呢（我已经调用了上面的程序了）
(defun c:rt (/ net s1)
  (setq ent (ssget))
  (command "txt_modangle" ent "" 0"")
  (prin1)
)

因本人没有学过lsp，请高手指教一下。

它山之石

你的目的似乎应该只是给晓东的程序做个简写命令。
试试别的方法吧，例如ACAD.PGP
如果一定要这样的话，这样用：（c:txt_modangle ）

baihc798

还是用不了？我只是简化了那个程序，我里面还有其它东西的。我只是想不用每次输入角度。

xyp1964

试试：

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. ;;;改变字高和倾斜角
    
16. (defun c:test051 (/ ss n en)
    
17.   (cmdla0)
    
18.   (setq        new-th        (UREAL 1 "" "\n字高" new-th)
    
19.         new-ang        (uangle        1 "" "\n字倾角"        new-ang        nil)
    
20.         ss        (ssget '((0 . "TEXT")))
    
21.         n        -1
    
22.   )
    
23.   (repeat (sslength ss)
    
24.     (setq en (ssname ss (setq n (1+ n))))
    
25.     (SUB_UPD en 40 new-th)
    
26.     (SUB_UPD en 51 new-ang)   
    
27.   )
    
28.   (cmdla1)
    
29. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> ;;;改变字高和倾斜角<br /> (defun c:test051 (/ ss n en)<br />   (cmdla0)<br />   (setq        new-th        (UREAL 1 "" "\n字高" new-th)<br />         new-ang        (uangle        1 "" "\n字倾角"        new-ang        nil)<br />         ss        (ssget '((0 . "TEXT")))<br />         n        -1<br />   )<br />   (repeat (sslength ss)<br />     (setq en (ssname ss (setq n (1+ n))))<br />     (SUB_UPD en 40 new-th)<br />     (SUB_UPD en 51 new-ang)    <br />   )<br />   (cmdla1)<br /> )[/FONT]

baihc798

(defun c:111 (/ ent s1)
(setq ent (ssget))
(txt_modangle"ent""90")
(prin1)
)
我试着改成这样了，txt_modangle能运行了，可是参数写不上去。请帮忙看一下什么问题。
我其实只是不想每次都要输入90度。xyp1964 大哥的程序跟晓东的对于我来说都一样的。都要输入角度。

xyp1964

直接用90度：

2. [FONT=courier new];;;文本旋转90度
   
3. (defun c:test (/ ss n en)
   
4.   (prompt"\n所选文本将旋转90度！")
   
5.   (setq        ss (ssget '((0 . "TEXT")))
   
6.         n  -1
   
7.   )
   
8.   (repeat (sslength ss)
   
9.     (setq en (ssname ss (setq n (1+ n))))
   
10.     (SUB_UPD en 50 (* pi 0.5))
    
11.   )
    
12.   (princ)
    
13. )[/FONT]

[FONT=courier new];;;文本旋转90度<br /> (defun c:test (/ ss n en)<br />   (prompt"\n所选文本将旋转90度！")<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         n  -1<br />   )<br />   (repeat (sslength ss)<br />     (setq en (ssname ss (setq n (1+ n))))<br />     (SUB_UPD en 50 (* pi 0.5))<br />   )<br />   (princ)<br /> )[/FONT]