单行文字中的对齐点、插入点是如何定义的？

SWAYWOOD · 发表于 2004-2-22 17:20:00

怎样才能实现将明细栏中的文字在X方向对齐，并统一其对齐方式（如左、中、右等）
单行文字中的对齐点、插入点是如何定义的？
下面的程序不能实现这个功能，请高手指教啊！
;;    by swaywood
;;DATE: 2004-2-22
;; ss ssl n d1    e1 x
(DEFUN C:mat()
   (cfxz)
   (SETQ ss (SSGET '((0 . "TEXT"))))
   (SETQ SSL (sslength ss))
   (setq n 0)
   (command "_.undo" "_group")
   (repeat ssl
   (setq e1 (entget (ssname ss n)))
   (setq d3 (assoc 72 e1))
   (setq e1 (subst d1 d3 e1))
   (entmod e1)
   (setq d4 (assoc 11 e1))
   (setq x1 (car (cdr d4)))
   (setq d2 (subst x x1 d4))
   (setq e1 (subst d2 d4 e1))
   (entmod e1)
   (setq n (+ 1 n))
   )
   (command "_.undo" "_end")
   )
(defun cfxz()
   (setq e0 (entget (car (entsel "\n请点选单行文本"))))
   (if (= "TEXT" (cdr (assoc 0 e0)))
   (progn
(setq d1 (assoc 72 e0))
(setq x (car (cdr (assoc 11 e0))))
     (PRINC "\n请框选要调整的单行文本:")
)
   (progn
(alert "\n要求单行文本!")
(cfxz)
   )
   )
   )

SWAYWOOD · 发表于 2004-2-23 12:05:00

高手快帮帮忙啊！

meflying · 发表于 2004-2-23 12:22:00

查看TEXT的组码啊，看你的程序，对次应该有一定的了解了，自己多调试几次应该不难搞明白

SWAYWOOD · 发表于 2004-2-23 20:50:00

飞哥，我试过很多次了，我现在搞不懂的是TEXT的对齐点坐标到底是指的哪个点？
我想实现的功能是：1.将一个单行文本(A)的对齐方式传递给一组单行文本(B)
2.并且让B中所有文本与A的横坐标相等，
我找的是[I][U]对齐点[/U][/I]，[U][I]插入点[/I][/U]也试过，都不行！
请帮我调试调试，找找原因，不胜感激！！！

SWAYWOOD · 发表于 2004-2-24 20:07:00

高手们，快帮帮忙啊！

SWAYWOOD · 发表于 2004-2-27 12:21:00

高手们，快帮帮忙啊！

meflying · 发表于 2004-2-27 15:03:00

(defun c:test( / ent ents pt ty ss i pt2 sc pt_lst len pt3)
   (setq ent (car (entsel "选择基准TEXT文字...")))
   (setq ents (entget ent))
   (setq pt (cdr (assoc 10 ents)))
   (setq ty (cdr (assoc 72 ents)))
   (setq sc (cdr (assoc 41 ents)))
   (prompt "选择文字...")
   (setq ss (ssget '((0 . "TEXT"))))
   (setq i 0)
   (repeat (sslength ss)
   (setq ent (ssname ss i))
   (setq ents (entget ent))
   (setq pt2 (cdr (assoc 10 ents)))
   (setq pt2 (list (car pt) (cadr pt2) (last pt2)))
   (setq pt_lst (textbox ents))
   (setq len (- (caadr pt_lst) (caar pt_lst)))
   (setq pt3 (polar pt2 (cdr (assoc 50 ents)) (* len sc)))
   (setq ents (subst (cons 10 pt2) (assoc 10 ents) ents))
   (setq ents (subst (cons 72 ty) (assoc 72 ents) ents))
   (setq ents (subst (cons 11 pt3) (assoc 11 ents) ents))
   (entmod ents)
   (setq i (1+ i))
   )
   (princ)
)

SWAYWOOD · 发表于 2004-2-27 20:41:00

多谢飞哥！
如果“基准文字”的对齐方式为：中心，其余的被选择的文字的对齐方式为左对齐，那么就对不齐了！不知怎么回事

meflying · 发表于 2004-2-27 20:43:00

这是一个参考程序，剩下该你自己去做。。。
不要太依赖别人

单行文字中的对齐点、插入点是如何定义的？

发表回复

精选推荐