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

[复制链接]

3stone

19 主题	46 帖子	7 银币

初露锋芒

Rank: 3 Rank: 3 Rank: 3

铜币: 122

发消息

发表于 2003-10-28 20:23:00 | 显示全部楼层 |阅读模式

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

使用道具举报