[求助][1101]请问LISP可以编写将LINE性质转换成XLINE性质吗?
<P><BR>请问LISP可以编写将LINE性质转换成XLINE性质吗?</P><P>我想将 LINE 的性质转换成 XLINE 的性质<BR>但我查过图元群码,但两个是一样的号码<BR>不知道有人有编写过这样的程序吗?</P>
<P>烦请各位高手帮忙解答一下<BR>感激不尽!</P> (defun c:test ()
(setq ss (ssget '((0 . "LINE")))
i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt10 (cdr (assoc 10 (entget s1)))
pt11 (cdr (assoc 11 (entget s1)))
)
(entdel s1)
(command "xline" pt10 pt11 "")
)
) 如果这个程序要再加上<BR>将选取的图元移转到自行设定的图层名称<BR>该怎样设定呢?
[求助][1101]请问LISP可以编写将LINE性质转换成XLINE性质吗?[烦请xyp楼主解答一下]
<P>如果这个程序要再加上<BR>将选取的图元移转到自行设定的图层名称<BR>该怎样设定呢?</P><P>另外指令如果加上选取偏移的物件<BR>在进行 LINE 转 XLINE 该怎样处里呢?</P>
<P>(defun c:test ()<BR> (setq ss (ssget '((0 . "LINE")))<BR> i -1<BR> )<BR> (while (setq s1 (ssname ss (setq i (1+ i))))<BR> (setq pt10 (cdr (assoc 10 (entget s1)))<BR> pt11 (cdr (assoc 11 (entget s1)))<BR> )<BR> (entdel s1)<BR> (command "xline" pt10 pt11 "")<BR> )<BR>)</P>
[烦请xyp楼主解答一下]
<P><BR>小弟看完您回答的程序,想请问以下我这样的理解解释正确吗?</P><P>另外我对于以下这两段命令比较不清楚可以详细解答一下吗?<BR>(ssget '((0 . "LINE"))) i -1 )<BR>(setq s1 (ssname ss (setq i (1+ i))))</P>
<P>还有关于 (cdr => 除去第一个元素后的串列.<BR>这书上解释的意思,是说明将串列中所有的dxf资料只保留第一笔吗?</P>
<P>另外,这程序如果要将其改为先选取物件偏移在转成xline线该怎样改呢?</P>
<P>烦请您可以解答一下<BR>谢谢!</P>
<P><BR>(defun c:test ()<BR> (setq ss (ssget '((0 . "LINE"))) i -1 )<BR>;选取串列值 图元代码 0 "line" 为选集 i -1 ,并将使资料设为变数 ss</P>
<P> (while <BR>;判断</P>
<P> (setq s1 (ssname ss (setq i (1+ i))))<BR>;设定变数 i 为 1+i 并依索引值 ss 取出选择图元名,并将使资料设为变数 s1</P>
<P> (setq pt10 (cdr (assoc 10 (entget s1)))<BR> pt11 (cdr (assoc 11 (entget s1)))<BR> )<BR>;由选集 s1 找寻DXF号码 10 11 分别设定给变数 pt10 pt11</P>
<P> (entdel s1)<BR>;删除图元,变数 s1</P>
<P> (command "xline" pt10 pt11 "")<BR>;输入 xline 命令第1.2点<BR> )<BR>)</P> <P>请教如果使用 VL来编写</P>
<P>该怎样下手呢</P>
<P> </P>
<P> </P>
页:
[1]