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

stulsx · 发表于 2004-3-27 14:58:00

例如: 将 (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 · 发表于 2004-3-27 15:13:00

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

stulsx · 发表于 2004-3-27 15:22:00

找到答案了!
(setq LST '())
(setq LST (cons pt３ LST))
(setq LST (reverse LST))

BDYCAD · 发表于 2004-3-27 15:28:00

搞不懂你要做什么?

stulsx · 发表于 2004-3-27 17:53:00

我要计算折线的长度，但是首先应得到所有得顶点信息，我要将顶点信息存储在序列里，所以才有此问题得出现[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    (vla-object (car(entsel "\n选择折线："))))
如果更通用一点可以用vlax-curve-* 系列求

无痕 · 发表于 2004-3-27 20:48:00

我求折线的长度用的是线段顶点坐标的信息,如果图中的折线（管道）是被上面的折线（管道）遮挡的，那么后面的折线就要断开（视图上的要求），那么用 vla-get-length (vlax-ename->vla-object (car(entsel "\n选择折线：")))) 就得分段求长度，然后再加起来？
如果用顶点坐标的信息，那么折线间断的也无所谓。（是的，我的程序的缺点是不能求曲线，那怎么解决这个问题呢？）。

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

发表回复

精选推荐

浏览过的版块