寻求提取坐标的帮助

zhongguola

诸位大哥，我想寻求一个提取SPLINE坐标的程序，使得所有坐标全部按照队列的形式标注在图形中任意选定的地方，但不要生成表格线。

谢谢！！！

yl_1226

(setq dxj (ssget "x" (list (cons 0 "spline"))))
　 (if (/= nil dxj)
   (progn
   (setq i 0)
   (while (<= i (- (sslength dxj) 1))
     (setq dxj1 (entget (ssname dxj i)))
     (setq zbxl '())
     (setq j 0)
     (repeat (- (length dxj1) 1)
        (setq zdxy (nth j dxj1))
        (setq qm (car zdxy))
           (if (= qm 10)；判断群码值为10
       (progn
                 (setq zbd (cdr zdxy))；提取坐标序列
                 (setq zbxl (append zbxl (list zbd)));将每个点坐标放到序列中
       );endprogn
     );endif
        (setq j (1+ j))
      );

以上只是提取spline线坐标，并将坐标组成一个序列；参考一下

zhongguola

谢谢！

真对不住，是我疏忽，把pline错写成了spline，抱歉！

我想寻求一个提取PL线坐标的程序，使得所有坐标全部按照队列的形式标注在图形中任意选定的地方，但不要生成表格线。

谢谢！！！

zhongguola

为什么没人理我呀！

真急死人了！！！！！！

HuaiYu

  (setq en     (car (entsel "Please select a lwpolyline: "))
 lst_pt '()
  )
  (mapcar '(lambda (x) (if (= (car x) 10) (setq lst_pt (append lst_pt (list (cdr x))))))(entget en))

zhongguola

我指的是标注在图形的任意地方

CADghost

你的问题为什么不一下说清楚，害得大家白费劲，这样还有谁愿意帮忙你？

zhongguola

真对不住各位大哥了！

我想这个问题在第一次回复中已经说得比较清楚了，（标注在图形中任意选定的地方，但不要生成表格线。）。

谢谢！

yshf

;试用以下程序
(defun c:cc()
    (setq cm (getvar "cmdecho") os (getvar "osmode"))
    (setvar "cmdecho" 0)
    (setq ent (car (entsel "\n请选择pline:"))
          pt0 (getpoint "\n请指定坐标提取结果写入点:")
   ptb (vl-remove 'nil
    (mapcar '(lambda(x)(if (= (car x) 10) (cdr x)))
             (entget ent)
           )
       )
   i   0
    )
    (setvar "osmode" 0)
    (foreach pt ptb
        (command "text" (mapcar '+ pt0 (list 0  (* i -4))) 2.5 0 (rtos (car  pt) 2 3)
                 "text" (mapcar '+ pt0 (list 20 (* i -4))) 2.5 0 (rtos (cadr pt) 2 3)
 )
        (setq i (1+ i))
    )
    (setvar "cmdecho" cm)(setvar "osmode" os)(princ)
)

zhongguola

真是太太好用了！！！！1

谢谢！！！