[求助]

cyh3278

谢谢大侠相助！只是还有一些东西还不怎么明白。
(setq HOLDOSMODE (getvar "osmode"))
  (setvar "osmode" 0)
  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq HOLDEDGE (getvar "edgemode"))
  (setvar "edgemode" 0)
  (DCL_DIALJLM)
  (setvar "osmode" HOLDOSMODE)
  (setvar "edgemode" HOLDEDGE)
  (setvar "cmdecho" HOLDECHO)
设定这些系统参数有什么作用？不设又会怎么样？

龙龙仔

cyh3278

cyh3278

(while (/= NIL (setq CL1 (entnext CL1)))
这句话什么意思，我不明白。netnext具体怎么用，能否举个例子

龙龙仔

传回图面中一下个对象 (像素) 的名称
(entnext [ename])

自变量

ename

既有像素的名称。

传回值

如果以不含任何自变量的方式来呼叫 entnext，它会传回数据库中第一个未被删除的像素名称。如果有 ename 自变量提供给 entnext， 则函数会传回数据库中 ename 之后第一个未被删除的像素名称。如果在数据库中没有下一个像素，将会传回 nil。entnext 函数会传回主像素及子像素。

范例

(setq e1 (entnext))      ; 设定 e1 为 图面中第一个像素名称

(setq e2 (entnext e1))  ; 设定 e2 为 跟在 e1 后的像素名称

注意事项

由 ssget 所选取的的像素是主像素，不是图块的属性也非聚合线的顶点的属性。您可以经由 entnext 进入它们的子像素来存取这些复杂像素的内部结构。一旦取得子像素的名称后，便可以像其它像素一样地处理。如果您是经由 entnext 取得一个子像素的名称，您就可再经由entnext 来向前寻找父项像素，直到一个 seqend 像素被找到，然后再从这个像素中撷取 ? 群组，就是主像素的名称。

cyh3278

(setq SS (ssadd))
(while (/= NIL (setq CL1 (entnext CL1)))
   (ssadd CL1 SS)
)
这段程序中，/=NIL指的是满足什么条件就循环
如果我把(setq CL1 (entnext CL1))改为（setq CL (entnext CL1))
不是覆盖CL1,而是新取一个CL的名字，程序就会出现死循环，这是为什么？
如果我要选择最后镜像的那部分，即中心线以下部分，那有该怎么选。

龙龙仔

............................            
           (command "trim" C1 "" (list L1 PX1) "")
         (command "trim" C2 "" (list L2 PX3) "")
         (command "mirror" L1 L2 L3 C1 C2 "" PX2 PX4 "")
         (SETQ CL11 (ENTLAST))
         (setq SS (ssadd))
         (while        (/= NIL (setq CL1 (entnext CL1)))
           (ssadd CL1 SS)
         )
         (command "mirror" SS "" PA PE "")
         (setq SS (ssadd))
         (while        (/= NIL (setq CL11 (entnext CL11)))
           (ssadd CL11 SS)
         )
..........................

cyh3278

(setq SS (ssadd))
(while (/= NIL (setq CL1 (entnext CL1)))
   (ssadd CL1 SS)
)
程序中的/=NIL是什么意思？

meflying

cyh3278

[此贴子已经被作者于2003-4-19 20:32:46编辑过]