[求助]：如何编写这个程序

appleke

我对LISP语言一点都不懂，想请大家帮我编写一个简单的程序，调用cht(chtext)程序。命令如下
CHT
ALL
J
L
也就是把图中所有的文字改为左对齐方式

最好是有个高手帮我重新编写一个独立的程序实现以上功能，而且只需输入一个命令无需其它操作即把所有的文字改为左对齐方式，不需依赖chtext.lsp文件，谢谢。

心梦相随

楼上的朋友只需调用PKPM下的ET.LSP就可以解决你的需求了。

aeo

加载chtext.lsp后:

2. 
   
3. (vlax-add-cmd  "cht0" 'c:cht)
   
4. (defun c:cht1()
   
5. (command"cht0""all""" "j""l""")
   
6. )
   

<br /> (vlax-add-cmd  "cht0" 'c:cht)<br /> (defun c:cht1()<br /> (command"cht0""all""" "j""l""")<br /> )<br />

cht1是你要的.(R2002下)
-----------------------------------------------------------------

;下面单独的

2. 
   
3. (defun c:cht1 ( / e en j ss)
   
4.   (setq ss (ssget "x" '((0 . "TEXT")))
   
5.         j 0
   
6.   )
   
7.   (repeat (sslength ss)
   
8.     (setq e (ssname ss j)
   
9.           en (entget e)
   
10.           en (subst(cons 72 0)(assoc 72 en) en)
    
11.     )
    
12.     (entmod en)
    
13.     (setq j (1+ j))
    
14.   )
    
15.   (princ)
    
16. )
    

<br /> (defun c:cht1 ( / e en j ss)<br />   (setq ss (ssget "x" '((0 . "TEXT")))<br />         j 0<br />   )<br />   (repeat (sslength ss)<br />     (setq e (ssname ss j)<br />           en (entget e)<br />           en (subst(cons 72 0)(assoc 72 en) en)<br />     )<br />     (entmod en)<br />     (setq j (1+ j))<br />   )<br />   (princ)<br /> )<br />

e2002

不需要使用程序就可以做到 ：选择这些Text对象 ， 用OPM统一修改对齐方式为 Left 即可

aeo

最初由 e2002 发布
[B]不需要使用程序就可以做到 ：选择这些Text对象 ， 用OPM统一修改对齐方式为 Left 即可 [/B]

他就是懒呀.

lsjjm

See my code:
http://www.xdcad.net/forum/showt ... d=469287#post469287

appleke

晓东论坛上的人就是热情，谢谢。