ygrzz 发表于 2007-2-16 22:47:00

[求助]erase简单也不易

哎，lisp真费神，简单的命令也不好操作<br/>高手给我举几个例子吧，失恋了，静不下心~~~<br/>

rjh 发表于 2007-2-16 23:53:00

<p>可以配合选择函数ssget来用，查查它的用法就知道了</p>

ygrzz 发表于 2007-2-17 00:18:00

已知一组点表怎么删好呢

ygrzz 发表于 2007-2-17 00:43:00

比如要删除的对象经过这些点

ZZXXQQ 发表于 2007-2-18 00:15:00

这样不知行不行。

(DEFUN ERPO (PLST)
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETQ I -1)
(REPEAT (LENGTH PLST)
(SETQ PT (NTH (SETQ I (1+ I)) PLST))
(IF (= (TYPE PT) 'ENAME) (SETQ PT (CDR (ASSOC 10 (ENTGET PT)))))
(IF (SETQ SS (SSGET "C" PT PT)) (COMMAND "ERASE" SS ""))
)
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)

ygrzz 发表于 2007-2-18 17:09:00

zzxxqq你好好9没见你了新年好~~~~~
页: [1]
查看完整版本: [求助]erase简单也不易