[求助]：用什么方法读取spline中代码相同的不同拟和点的坐标

xuweiwei417 · 发表于 2005-12-31 14:21:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

用assoc 11 en总是读出同一个点拟和点的坐标

nnqinj · 发表于 2005-12-31 15:25:30

这个题目不错。等高线的分析需要它。

似水无痕 · 发表于 2005-12-31 16:35:16

是要这样的么：

(defun c:test7 (/ ss1 slth i ent plist loops1 blist)
(setq ss1 (ssget '((0 . "SPLINE")))
i 0
)
(if ss1
(progn
(setq slth (sslength ss1))
(repeat slth
(setq ent (entget (ssname ss1 i))
i (1+ i)
plist nil
blist nil
loops1 (cdr (assoc 74 ent))
elist (member (assoc 11 ent) ent)
)
(repeat loops1
(setq plist (cdr (car elist))
blist (cons plist blist)
elist (cdr elist)
)
)
(princ "\n第")
(princ i)
(princ "个spline线")
(princ blist)
)
)
(princ "\n未选中spline线")
)
(princ)
)

xuweiwei417 · 发表于 2005-12-31 16:52:30

好像不行阿，读出来的四个坐标是同一个点呀
第1个spline线((520.784 556.586 0.0) (520.784 556.586 0.0) (520.784 556.586 0.0)
(520.784 556.586 0.0))

似水无痕 · 发表于 2005-12-31 16:54:45

已经更改过来了，在3楼，你重新考一份过去！

xuweiwei417 · 发表于 2005-12-31 23:17:17

怎么在我这是
错误: 输入的列表有缺陷
你编译通过了吗
现在已经可以了，谢了

yshf · 发表于 2006-1-2 13:32:15

;改为如下更简洁

(defun c:test7 (/ ss1 slth i ent plist loops1 blist)
(setq ss1 (ssget '((0 . "SPLINE")))
i 0
)
(if ss1
(progn
(setq slth (sslength ss1))
(repeat slth
(setq ent (entget (ssname ss1 i))
i (1+ i)
blist (vl-remove-if '(lambda(x)(/= (car x) 11)) ent)
)
(princ "\n第")
(princ i)
(princ "个spline线")
(princ blist)
)
)
(princ "\n未选中spline线")
)
(princ)
)

nnqinj · 发表于 2006-3-17 11:58:20

;按不同的线型提取是一种很基本的操作，CAD的几种基本线型包括LINE、POLYLINE、LWPLYLINE等，spline是一种图形编辑中较少用到的种
;线型之一，SPLINE线经过编辑以后，SPLINE线会增加未知的许多端点，使列表无法正常分析。而且在常用线型中
;我们也很难看到使用SPLINE做为规范线型的例子。因此我们主要针对POLYLINE、LWPLYLINE、两种线形作分析：
(defun c:test7 (/ ss1 sslist ss1date)
  (setq ss1 (car (entsel"拾取范围线：")))
  (setq enddate nil)
  (setq sslist (entget ss1))
  (setq ss1date (cdr (assoc 0 sslist)))
  (cond ((= "lwplyline" ss1date) (c:ltest));当范围线是复合线的时候，一般为这种线型
((= "polyline"  ss1date) (c:ptest));拟合线大多为这种线型
  )
)
(defun c:ltest()
  (setq ss1number (assoc 90 sslist));返回数据列表中的顶点数
  (setq ss1date (member (assoc 10 sslist ) sslist));从第一个坐标点对表开始排列组成新的列表
  (setq dump 0);设置循环量
  (repeat ss1number;|重复步数|;
(setq enddate (cons (cdr (nth dump ss1date) enddate)));提取第一个坐标点对组表
(setq dump (+ dump 3.0))
  )
  (princ enddate)
  (princ)
)
(defun c:ptest ()
(setq ss2 (entnext ss1))
(setq ss2date (entget ss2))
(setq ss2ent (assoc 0 ss2date))
(while  (/= "seqend"  ss2ent)
   (setq ss2list (cdr (assoc 10 ssdate)))
   (setq enddate (append enddate (list ss2list)))
   (setq ss2 (entnext ss2))
   (setq ss2date (entget ss2))
         (setq ss2ent  (assoc 0 ss2date))
)
不好意思，因为要贯标，没测试。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：用什么方法读取spline中代码相同的不同拟和点的坐标

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

有关复合线坐标的