如何将一个序列添加到另一个序列的元素中?急!

stulsx

例如:                         将        (7 8 9) 添加到         ((1        2 3) (4 5 6))        的末尾, 生成        形式为((1 2 3 ) (4 5 6 ) ( 7 8 9))                 ,其中 (1 2 3)         (4 5 6) (7 8 9) 是点的坐标值 分别用 pt1 pt2 pt3 表示






用什么函数呢 ?

BDYCAD

(SETQ A '(7 8 9))
(SETQ B '((1 2 3) (4 5 6)))
(SETQ C (APPEND (LIST A) B ))

stulsx

找到答案了!


(setq LST '())


(setq LST (cons pt３ LST))


(setq LST        (reverse LST))

BDYCAD

搞不懂你要做什么?

stulsx

我要计算折线的长度，但是首先应得到所有得顶点信息，我要将顶点信息存储在序列里，所以才有此问题得出现[br];计算折线长
(defun c:zxc()
(setq pdf nil)
;读入顶点坐标，并存入到序列　data 中 1.
(setq data '()) (setq ii 1)

(while (= pdf nil)

(setq pt (getpoint "\n输入顶点:")) (princ "得到该点 ")(princ ii)(princ " 输入下一点 ")
; (princ pt)
(if (/= pt nil)

(setq data (cons pt data )) (setq pdf "Exit")
);end if
(setq ii (+ ii 1))
);end while
(setq data (reverse data)) (setq DDS (length data)) ;计算周长 2.
(setq zxchd (distance (nth 0 data) (nth 1 data)))
(setq i 3)
(setq pt_last (nth 1 data))
(while (<= i DDS)
(setq pt_cur (nth (- i 1) data))


(setq L (distance pt_last pt_cur))


(setq zxchd (+ zxchd L))

(setq i (+ i 1))
(setq pt_last pt_cur)
) ;end while
(princ "\n 折线长度是 :")(princ zxchd)
(princ)
)

无痕

这是错误的！折线要是有圆弧呢？


用这个 (vla-get-length (vlax-ename-&gt;vla-object (car(entsel "\n选择折线："))))


如果更通用一点可以用vlax-curve-* 系列求

stulsx

我求折线的长度用的是线段顶点坐标的信息,如果图中的折线（管道）是被上面的折线（管道）遮挡的，那么后面的折线就要断开（视图上的要求），那么用         vla-get-length (vlax-ename-&gt;vla-object (car(entsel "\n选择折线："))))         就得分段求长度，然后再加起来？


如果用顶点坐标的信息，那么折线间断的也无所谓。（是的，我的程序的缺点是不能求曲线，那怎么解决这个问题呢？）。