500w008 发表于 2013-7-4 08:02:12

500w008 发表于 2013-7-6 01:44:29

500w008 发表于 2013-7-4 08:08:12

zyhandw 发表于 2013-7-5 09:16:12

(vl-remove-if-not n_lst (mapcar 'cadr (ssnamex s_lst)))这句好像用法不对，可参考下vl-remove-if-not函数说明

ZZXXQQ 发表于 2013-7-6 08:25:07

(defun c:cc ();删除多边形外图元
(setq en (entsel))
(setq ss1 (ssget '((0 . "*line") (8 . "beam,edote"))))
(setq ent (entget(car en)))
(if (and
       (= (cdr(assoc 0 ent)) "LWPOLYLINE")
       (= (cdr(assoc 70 ent)) 1)
      ) (progn
(setq pts '())
(foreach x ent (if (= (car x) 10)(setq pts (cons (cdr x) pts))))
(reverse pts)
(setq pts (mapcar '(lambda (x) (trans x 0 1)) pts))
;(ucs)
(setq ss2 (ssget "WP" pts '((0 . "*line") (8 . "beam,edote"))))
))
(command "erase" ss1 "R" ss2 "")
(princ)
)

zyhandw 发表于 2013-7-6 08:49:26

500w008 发表于 2013-7-6 01:44 static/image/common/back.gif
(defun c:cc ();删除多边形外图元
(setq ent (entsel))
(setq ss1 (ssget '((0 . "*line") (8 . "bea ...

Z版主给出了答案，对照自己的程序看看吧

500w008 发表于 2013-7-6 09:50:48

500w008 发表于 2013-7-6 10:00:52

zyhandw 发表于 2013-7-6 12:04:16

那你想要达到什么样的效果?

500w008 发表于 2013-7-6 13:45:24

页: [1] 2
查看完整版本: 把此贴删除