[请教]这个程序请问怎么改进？对于justify 的text就达不到目的。谢谢

3stone

刚才的那个问题多谢了。
请问这个程序请问怎么改进？对于采用justify 的text（如bottom center.有两个特征点10、11,我想按照dxf为11的那点缩放，就达不到目的）谢谢。
(defun c:ms ()
  (setvar "cmdecho" 0)
  (prompt "\n选择文字、图块、园或椭圆:")
  (setq        ss1 (ssget
              '((-4 . "<or")
                (0 . "text")
                (0 . "insert")
                (0 . "circle")
                (0 . "ellipse")
                (-4 . "or>")
               )
            )
  )
  (setq ssl (sslength ss1))
  (setq n (getreal "\n输入缩放的比例:"))
  (setq ii 0)
  (while (< ii ssl)
    (setq ename (ssname ss1 ii))
    (setq e1 (entget ename))
    (setq pt1 (cdr (assoc 10 e1)))
    (command "scale" ename "" pt1 n)
    (setq ii (1+ ii))
  )
  (princ)
)

lockmyeye

对于你的程序

3stone发表于2003-10-28 20:23:00;;;刚才的那个问题多谢了。
;;;请问这个程序请问怎么改进？
;;;对于采用justify 的text（如bottom center.有两个特征点10、11,我想按照dxf为11的那点缩放，就达不到目的）谢谢
1        (DEFUN c:m

改进1        4-12句可以改为(setq ss1 (ssget '((0 . "text,insert,circle,ellipse"))))。
改进2        13句在使用SSLENGTH时，请先确定选择集不是空的。
改进3        13句关于使用变量ssl，与变量SS1很容易让人误读。
改进4        14句输入的变量只能是正数，先使用(initget 7)。
改进5        可以使用repeat代替while，(repeat (if ss1 (sslength ss1) 0)，可以减少一变量ssl。
改进6        目的是以dxf为11的点进行缩放？可你选择的实体有些是没有11的，如circle。
改进7        目的中言明是使用DXF码11，可程序中却使用10？

抛砖引玉。

meflying

关于程序的改进，见楼上的，下面是实现TEXT按11组码放大，其它则按10

2. (defun c:ms ( / ss1 ssl n ii ename e1 pt1)
   
3.   (setvar "cmdecho" 0)
   
4.   (prompt "\n选择文字、图块、园或椭圆:")
   
5.   (setq ss1 (ssget
   
6.        '((-4 . "<or")
   
7.   (0 . "text")
   
8.   (0 . "insert")
   
9.   (0 . "circle")
   
10.   (0 . "ellipse")
    
11.   (-4 . "or>")
    
12.         )
    
13.      )
    
14.   )
    
15.   (setq ssl (sslength ss1))
    
16.   (setq n (getreal "\n输入缩放的比例:"))
    
17.   (setq ii 0)
    
18.   (while (< ii ssl)
    
19.     (setq ename (ssname ss1 ii))
    
20.     (setq e1 (entget ename))
    
21.     (if (and (= (cdr (assoc 0 e1)) "TEXT") (setq pt1 (assoc 11 e1)))
    
22.       (setq pt1 (cdr pt1))
    
23.       (setq pt1 (cdr (assoc 10 e1)))
    
24.     )
    
25.     (command "scale" ename "" pt1 n)
    
26.     (setq ii (1+ ii))
    
27.   )
    
28.   (princ)
    
29. )

(defun c:ms ( / ss1 ssl n ii ename e1 pt1)<br />   (setvar "cmdecho" 0)<br />   (prompt "\n选择文字、图块、园或椭圆:")<br />   (setq ss1 (ssget<br />        '((-4 . "<or")<br />   (0 . "text")<br />   (0 . "insert")<br />   (0 . "circle")<br />   (0 . "ellipse")<br />   (-4 . "or>")<br />         )<br />      )<br />   )<br />   (setq ssl (sslength ss1))<br />   (setq n (getreal "\n输入缩放的比例:"))<br />   (setq ii 0)<br />   (while (< ii ssl)<br />     (setq ename (ssname ss1 ii))<br />     (setq e1 (entget ename))<br />     (if (and (= (cdr (assoc 0 e1)) "TEXT") (setq pt1 (assoc 11 e1)))<br />       (setq pt1 (cdr pt1))<br />       (setq pt1 (cdr (assoc 10 e1)))<br />     )<br />     (command "scale" ename "" pt1 n)<br />     (setq ii (1+ ii))<br />   )<br />   (princ)<br /> )