[LISP程序]：平均分布各行文字(单行文本)

贱人 · 发表于 2005-6-17 15:32:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

第一行和最后一行位置保持不变，中间自动平均分布

(defun c:bt()

(setq a (ssget (list (cons 0 "text"))))
(setq n (sslength a))
(setq all nil)
(setq m 0)
(while (< m n)
  (setq all (append all (list (entget (ssname a m)))))
  (setq m (1+ m))
)

(setq l 0)
(setq m 1)
(while (< l n)
  (setq b (nth l all))
  (while (< m n)
(setq c (nth m all))
(if (> (nth 2 (assoc '10 c)) (nth 2 (assoc '10 b)))
   (progn
   (setq all (subst 'aa (nth l all) all))
   (setq all (subst 'bb (nth m all) all))
   (setq all (subst c 'aa all))
   (setq all (subst b 'bb all))
   (setq b c)
   )
   )
(setq m (1+ m))
  )
  (setq l (1+ l))
  (setq m (1+ l))
)

(setq a (nth 0 all))
(setq b (nth (1- n) all))
(setq detay (/ (- (nth 2 (assoc '10 a)) (nth 2 (assoc '10 b))) (1- n)))
(setq y0 (nth 2 (assoc '10 a)))

(setq m 0)
(while (< m n)
  (setq b (nth m all))
  (setq x (nth 1 (assoc '10 b)))
  (setq y (- y0 (* m detay)))
  (setq z (nth 3 (assoc '10 b)))
  (setq xyz_new (list '10 x y z))
  (setq b (subst xyz_new (assoc '10 b) b))
  (entmod b)
;  (entupd b)
  (setq m (1+ m))
)

)

zxcvbnm-cad · 发表于 2005-6-17 16:52:08

能不能多一个选项<输入行间距>

zhengchuan1971 · 发表于 2005-6-17 23:01:13

同意2楼的说法。如果能加上可以输入行间距，就太好了

luob72 · 发表于 2005-6-21 13:21:41

已经很不错了，谢谢

jinsong-liao · 发表于 2005-6-21 13:57:00

晓东工具箱有此功能，并且可以输入间距。

zh_6531394 · 发表于 2005-6-21 15:24:52

好东西,效率提高了不少

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：平均分布各行文字(单行文本)

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子