初学求教：）文字对齐

ak50

想编个简单的按照竖线对齐文字的小程序，可是不太懂，麻烦各位大侠给予指点：

(defun c:adjust()
    (setq ss(entsel"\n选择要对齐的基准线:"))
   (setq en(car (entsel"\n选择要对齐的文字:")))
   (if(null en)
           (setq en (car (entsel "\n选选择要对齐的文字:")))
           (setq tihuan(list (car ss)(Cadr en)))
           (list tihuan en)
           (entmod en)
   )
      )

Andyhon

只看懂了 IF 的语法错误
没看懂程式构思及原用意

 

ak50

偶是想实现这样的：选取一条直线，读取它的Y坐标，然后用Y坐标替换选取的文字的Y坐标，实现以直线对齐，呵呵可是俺不知道语法用的对不：）请各位大侠多帮忙啊。

Andyhon

(defun c:adjust ()
  (setq ee (entsel "\n选择要对齐的基准线:")
       pty (cadadr ee)
  )
  ;(setq en (car (entsel "\n选择要对齐的文字:")))
  (while (setq en (entsel "\n选选择要对齐的文字:"))
    (setq en (car en)
         dat (entget en)  
        pt10 (assoc 10 dat)
          pt (cdr pt10)  
    )
    (entmod (subst (cons 10 (list (car pt) pty)) pt10 dat))
  )
)

ak50

谢谢楼上的大侠，看来偶还需要努力学习，路还很长：）以后多向你们请教：）

ak50

还有，pty (cadadr ee）里的cadadr是什么函数？为什么我将上面的程序改成：

(defun c:adjust ()
  (setq ee (entsel "\n选择要对齐的基准线:")
  ptx (cadadr ee)   
  )
  (while (setq en (entsel "\n选选择要对齐的文字:"))
   (setq en (car en)    
      dat (entget en)  
        pt10 (assoc 10 dat)
          pt (cdr pt10)  
    )
    (entmod (subst (cons 10 (list ptx (cadr pt))) pt10 dat))
  )
)

虽然能实现以横坐标对齐，却不是以给定直线横坐标为基准纵向对齐呢？呵呵，不知道偶问的问题是不是太简单了呵呵：）

还有经常看你们用cons 10 啊，0.***什么的，这些是在帮助文件里能查到的是吧？

ak50

呵呵可以和直线对齐了，但是怎么修改字的插入点，使文字的对齐点在文字的中心呢？

Andyhon

(defun c:adjust ()
  (setq ee (entsel "\n选择要对齐的基准线:")
  ptx (caadr ee)   
  )
  (while (setq en (entsel "\n选选择要对齐的文字:"))
   (setq en (car en)    
      dat (entget en)  
        pt10 (assoc 10 dat)
          pt (cdr pt10)  
    )
    (entmod (subst (cons 10 (list ptx (cadr pt))) pt10 dat))
  )
)

ak50

谢谢，7、8楼的问题呢，别怪我得寸进尺啊嘿嘿，先下班了回去看书了明天见：）

ak50

继续等：）