[求助]：有横向对齐的工具吗？竖向的已经有了

周星星 · 发表于 2004-6-15 20:39:13

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

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

×

比如要横向对齐一些文字等

lsjjm · 发表于 2004-6-16 04:09:17

请参考:

(defun c:test ()
(= XORY "Y")
(setq VALUE (cadr (getpoint "\nSelect Horizontal Location: ")))
(grdraw (list (car (getvar "vsmin"))value)
(list (cadr (getvar "vsmax"))value) -3 1)
(defun LINE-UP (ENT XORY VALUE)
   (setq x (cadr (assoc 10 ENT)))
   (setq x2(cadr (assoc 11 ENT)))
   (setq y (caddr (assoc 10 ENT)))
   (setq y2(caddr (assoc 11 ENT)))
   (setq f (cdr (assoc 72 ENT)))
   (setq f2(cdr (assoc 73 ENT)))
   (= XORY "Y")
   (and (= f 0) (= f2 0))
   (setq ENT (subst (list 10 x VALUE) (assoc 10 ENT) ENT))
   (setq ENT (subst (list 11 x2 VALUE) (assoc 11 ENT) ENT)) (entmod ENT)
   )
(setq PSET (ssget))
(if (/= PSET nil)
   (progn
      (SETQ NU 0)
      (while (/= (ssname pset NU) nil)
               (setq CT (ENTGET (ssname PSET NU)))
               (if (equal (cdr (assoc 0 CT)) "TEXT")
                  (LINE-UP CT XORY VALUE)
               )
               (SETQ NU (+ NU 1))
      )
   )
)
(redraw)
(setvar "cmdecho" 1)
(princ)
)

周星星 · 发表于 2004-6-16 11:37:39

真是感谢lsjjm 兄，已经在用了，好样的，要经常上来坐坐才行

ll_j · 发表于 2004-6-16 22:17:57

最初由 lsjjm 发布
[B]请参考:

(defun c:test ()
(= XORY "Y")
(setq VALUE (cadr (getpoint "\nSelect Horizontal Location: ")))
(grdraw (list (car (getvar "vsmin"))value)
(list (cadr (getvar "vsmax"))value) ... [/B]

这里的“(= XORY "Y")”是什么语法？在程序中“xory”总数“nil”，是无效的。
[php](defun c:test ()
;  (= XORY "Y")
  (setq VALUE (cadr (getpoint "\nSelect Horizontal Location: ")))
  (grdraw (list (car (getvar "vsmin")) value)
   (list (cadr (getvar "vsmax")) value)
   -3
   1
  )
  (defun LINE-UP (ENT ;|XORY|; VALUE)
(setq x (cadr (assoc 10 ENT)))
(setq x2 (cadr (assoc 11 ENT)))
(setq y (caddr (assoc 10 ENT)))
(setq y2 (caddr (assoc 11 ENT)))
(setq f (cdr (assoc 72 ENT)))
(setq f2 (cdr (assoc 73 ENT)))
; (= XORY "Y")
(and (= f 0) (= f2 0))
(setq ENT (subst (list 10 x VALUE) (assoc 10 ENT) ENT))
(setq ENT (subst (list 11 x2 VALUE) (assoc 11 ENT) ENT))
(entmod ENT)
  )
  (setq PSET (ssget))
  (if (/= PSET nil)
(progn
   (SETQ NU 0)
   (while (/= (ssname pset NU) nil)
(setq CT (ENTGET (ssname PSET NU)))
(if (equal (cdr (assoc 0 CT)) "TEXT")
   (LINE-UP CT ;|XORY|; VALUE)
)
(SETQ NU (+ NU 1))
   )
)
  )
  (redraw)
  (setvar "cmdecho" 1)
  (princ)
)[/php]

yuancuang · 发表于 2004-6-28 00:28:02

怎样用？请说明

凡感情的沼泽地 · 发表于 2004-6-30 06:32:23

请问上面所发的那么多的英语是什么意思呀！能不能说的明白一点呢？我不会英语版的，不好意思呀！请指教！

F000G · 发表于 2004-7-2 14:33:54

请发一个编好的好吗

KENSHIN709 · 发表于 2004-7-3 15:39:26

新用，以上的那个lisp的load完后的调用命令是不是"text"啊？？！！

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

[求助]：有横向对齐的工具吗？竖向的已经有了

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

相关帖子

试问主题大人

浏览过的版块