[求助]：LISP 小程序缩放文本高度出错

sunyaer

以下的LISP 小程序缩放相对于图纸空间的文本高度为2,请问:

!)(setq th ( / hm 132) 中的132为何意义?
2) 运行此程序时,提示ssget出错,请问何故?
3)[php]
(-4."<OR")和(-4."OR>")为何意义?)[/php]

谢谢回复. [php]
(DEFUN C:Ts()
     (setvar "tilemode" 0)
     (command "mspace")
     (setq hm (getvar "viewsize"))
     (setq th (/ hm 132))
(setq o (ssget '((-4."<OR")(0. "text")(0. "mtext")(-4."<OR"))))
     (setq n (sslength o))
     (setq i 0)
     (repeat n
                (setq textent (entget(ssname o i)))
                (setq textent (subst (cons'40 th) (assoc '40 textent) textent))
                (entmod textent)
                (setq i (1+i))
   (command "pspace") )[/php]

xyp1964

程序错误较多，自己对照：

2. [FONT=courier new]
   
3. (DEFUN C:Ts ()
   
4.   (setvar "tilemode" 0)
   
5.   (command "mspace")
   
6.   (setq        hm (getvar "viewsize")
   
7.         th (/ hm 132)
   
8.         o  (ssget '((0 . "*text")))
   
9.         n  (sslength o)
   
10.         i  0
    
11.   )
    
12.   (repeat n
    
13.     (setq textent (entget (ssname o i))
    
14.           textent (subst (cons 40 th) (assoc 40 textent) textent)
    
15.           i (1+ i)
    
16.     )
    
17.     (entmod textent)   
    
18.   )
    
19.   (command "pspace")
    
20.   (princ)
    
21. )[/FONT]

[FONT=courier new]<br /> (DEFUN C:Ts ()<br />   (setvar "tilemode" 0)<br />   (command "mspace")<br />   (setq        hm (getvar "viewsize")<br />         th (/ hm 132)<br />         o  (ssget '((0 . "*text")))<br />         n  (sslength o)<br />         i  0<br />   )<br />   (repeat n<br />     (setq textent (entget (ssname o i))<br />           textent (subst (cons 40 th) (assoc 40 textent) textent)<br />           i (1+ i)<br />     )<br />     (entmod textent)    <br />   )<br />   (command "pspace")<br />   (princ)<br /> )[/FONT]

sunyaer

斑竹真是高人,程序写得简洁.
我的代码中主要的错误是: -4. 和 0. 之间应该有空格.

还请解释一下setq th ( / hm 132) 中的132为何意义?

十分感谢.

Underway

VIEWSIZE System Variable
(Read-only)
Type: Real
Saved in: Drawing
Stores the height of the current viewport in drawing units.
(/ hm 132) 即其高的 132分之一

xyp1964

最初由 sunyaer 发布
[B]斑竹真是高人,程序写得简洁.
我的代码中主要的错误是: -4. 和 0. 之间应该有空格.

还请解释一下setq th ( / hm 132) 中的132为何意义?

十分感谢. [/B]

至少还有3～4个错误！
如：
(setq i (1+i))→(setq i (1+ i))；
括号不匹配等

建议使用vlisp编辑器进行编辑。

sunyaer

最初由 Underway 发布
[B]VIEWSIZE System Variable
(Read-only)
Type: Real
Saved in: Drawing
Stores the height of the current viewport in drawing units.
(/ hm 132) 即其高的 132分之一 [/B]

这132分之一和相对于图纸空间的文本高度为2如何联系在一起呢?
谢谢.

xyp1964

最初由 sunyaer 发布
[B]这132分之一和相对于图纸空间的文本高度为2如何联系在一起呢?
谢谢. .. [/B]

自己的程序自己不知道？！

sunyaer

最初由 xyp1964 发布
[B]
自己的程序自己不知道？！ [/B]

不是我编的,是一个已经离职的同事留下的(可能也不是他编的).
以前看过LISP函数,可没用过.感觉帮助文件对组码解释不是很清楚.
谢谢楼上的指点.以上那段程序都弄明白了.那个132也弄清楚了.