批量拟和错在哪？

wei209

(setvar "CMDECHO" 0)
(defun V#
 (n e / pt_)
 (if (not (listp e)) (setq e (entget e)))
 (setq pt_ (cdr (assoc n e)))
 (if (and (> n 9) (< n 34) (/= pt_ nil) ) (trans pt_ 0 1) (setq pt_ pt_) )
)
 ;去掉拟和
(defun c:a24(  / sele sele1 e1 la n n0 )
  (setq e1 (car (entsel "请选择一个线使所在层的线去掉拟和:")))
  (setq la (v# 8 e1) type (v# 0 e1))
  (setq sele  (ssget "X" (list (cons 0 type) (cons 8 la))))
  (setq n (if sele (sslength sele) 0))
  (setq n0 0) 
  (repeat n
   (setq e1 (ssname sele n0))
   (command "pedit" e1 "s" "")
   (print n0)
   (setq n0 (+ n0 1))
  )
)

meflying

变量TYPE是保留字符,换用其他的变量名

wei209

换了怎么也不行啊!

无痕

(command "pedit" "m" (ssget) "" "f" "")

wei209

谢谢,节日快乐!!!