[1124][LINE转XLINE程序理解][烦请xyp1964楼主解惑]

tctabc · 发表于 2005-11-24 17:14:30

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

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

×

[1124][LINE转XLINE程序理解][烦请xyp1964楼主解惑]

小弟在看完这程序
"http://www.mjtd.com/bbs/dispbbs.asp?boardID=16&ID=43758&page=1" ,
想请问以下我这样的理解解释正确吗?

另外我对于以下这两段命令比较不清楚可以详细解答一下吗?
(ssget '((0 . "LINE"))) i  -1  )
(setq s1 (ssname ss (setq i (1+ i))))

还有关于 (cdr => 除去第一个元素后的串列.
这书上解释的意思,是说明将串列中所有的dxf资料只保留第一笔吗?

另外,这程序如果要将其改为先选取物件偏移在转成xline线该怎样改呢?

烦请您可以解答一下
谢谢!

(defun c:test ()
  (setq ss (ssget '((0 . "LINE"))) i  -1  )
;选取串列值图元代码 0 "line" 为选集 i -1 ,并将使资料设为变数 ss

  (while
;判断

(setq s1 (ssname ss (setq i (1+ i))))
;设定变数 i 为 1+i 并依索引值 ss 取出选择图元名,并将使资料设为变数 s1

(setq pt10 (cdr (assoc 10 (entget s1)))
      pt11 (cdr (assoc 11 (entget s1)))
)
;由选集 s1 找寻DXF号码 10 11 分别设定给变数 pt10 pt11

(entdel s1)
;删除图元,变数 s1

(command "xline" pt10 pt11 "")
;输入 xline 命令第1.2点
  )
)

xyp1964 · 发表于 2005-11-24 17:34:37

最初由 tctabc 发布
[B][1124][LINE转XLINE程序理解][烦请xyp1964楼主解惑]

小弟在看完这程序
"http://www.mjtd.com/bbs/dispbbs.asp?boardID=16&ID=43758&page=1" ,
想请问以下我这样的理解解释正确吗?

另外我对于以下这两段命令?.. [/B]

理解得不错！

tctabc · 发表于 2005-11-24 18:56:01

谢谢楼主的回答但是可以解答我的疑问吗?
01.这两段命令比较不清楚可以详细解答一下吗?
(ssget '((0 . "LINE"))) i -1 )
(setq s1 (ssname ss (setq i (1+ i))))

02.关于 (cdr => 除去第一个元素后的串列.
这书上解释的意思,是说明将串列中所有的dxf资料只保留第一笔吗?

03.如果提问到您的信箱 xyp@bsedi.com 会收到回信吗?

04.如果要再将上偏移的命令该怎样加入呢?

感谢您!

taner · 发表于 2005-11-24 19:01:45

最初由 tctabc 发布
[B]谢谢楼主的回答但是可以解答我的疑问吗?
01.这两段命令比较不清楚可以详细解答一下吗?
(ssget '((0 . "LINE"))) i -1 )
(setq s1 (ssname ss (setq i (1+ i))))

02.关于 (cdr => 除去第一个元素后的串列.
?.. [/B]

(setq ss (ssget '((0 . "LINE")))
i  -1
  )

你没寫全!可改寫爲:
(setq ss (ssget '((0 . "LINE")))  )
(setq i  -1)

xyz518mm · 发表于 2005-11-24 19:27:42

我也很想知道
希望 xyp1964 楼主或其他高手
可以解答一下了~
学习在学习~

xyp1964 · 发表于 2005-11-24 20:04:41

CDR
此函数将返回 list 中除了第一个元素以外所有元素的表。如果这是一个空表, 那么 nil 将被返回。
(cdr '(a b c)) 返回 (B C)
(cdr '()) 返回 nil

可以参考相关帮助文件。

狂刀 · 发表于 2005-11-24 23:49:31

你这么聪明，看看ｃａｄ帮助就差不多了

xyz518mm · 发表于 2005-11-25 07:21:02

真是高手如云
但想再请问这两段为何要这样描述呢
(setq ss (ssget '((0 . "LINE"))) ) <= ' 代表的是字串吗?
(setq i -1) <= i 代表什么 , -1 为何要减一呢?
烦请解答一下

心中疑问很多的小弟

xyp1964 · 发表于 2005-11-25 07:48:46

最初由 xyz518mm 发布
[B]真是高手如云
但想再请问这两段为何要这样描述呢
(setq ss (ssget '((0 . "LINE"))) ) <= ' 代表的是字串吗?
(setq i -1) <= i 代表什么 , -1 为何要减一呢?
烦请解答一下

心中疑问很多的小弟 [/B]

(setq ss (ssget '((0 . "LINE"))))
相当于
(setq ss (ssget (list (cons 0 "LINE"))))

(setq i -1)
下一步取选择集内第一个实体：(ssname ss 0)
(setq s1 (ssname ss (setq i (1+ i))))

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

[1124][LINE转XLINE程序理解][烦请xyp1964楼主解惑]

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

相关帖子

Re: [1124][LINE转XLINE程序理解][烦请xyp1964楼主解惑]