输出结果的问题!

梁旭武 · 发表于 2004-8-6 19:07:00

小弟是做测量的，编了一个关于多边形每个端点生成坐标册的程序，现在想请教一下各位高手，大虾，能否让输出的结果自动自成表格呢？装入程序后快捷键是 test
(defun c:test()
(command "_OSNAP" "non")
(setq ss(ssget'((100 . "AcDbPolyline"))))
   (setq pu(getpoint"\n坐标册放在："))
   (setq xu(car pu))
   (setq x4(- xu 12))
   (setq yu(cadr pu))
   (setq x4yu(list x4 yu))
   (setq pt(list xu yu))
   (command "text" x4yu 4 0 "点号    X坐标    Y坐标")
   (setq ss1(ssname ss 0))
   (setq ent(entget ss1))
   (setq i 0) (setq j 0)
   (setq ken 10)
   (repeat(length ent)
   (setq yy (nth i ent))
   (if (eq (car yy )    ken )
   (progn
   (setq j(+ 1 j))
   (setq    xy (cdr yy))
   (setq jj(rtos j))
   (setq jj(strcat    "j" jj ))
   (setq jj(substr jj 1 (- (strlen jj ) 5 )))
   (command "text" xy 3 0 jj)
   (setq xx(car pt))
   (setq yy( - (cadr pt) 10))
   (setq pt(list xx yy    ))
   (love xy pt jj )
   )
   )
   (setq i(1+ i))
)
)
(defun love( k pe r )
   (setq x(car k))
   (setq y(cadr k))
   (setq x1(car pe))
   (setq y1(cadr pe))
   (setq x1(+ 30 x1))
   (setq pe1(list x1 y1))
   (setq xj( - (car pe) 10))
   (setq pe2(list xj y1))

   (command "text" pe2 3 0 r)
   (command "text" pe 3 0 (rtos x))
   (command "text" pe1 3 0 (rtos y))
   )