请教遮蔽线问题 (已解决)

samshs

2. ;请都高手
3. ;可以多选择，但结果变遮蔽线只能实现单个，是否能实现多选择后都转换成遮蔽线。多谢！
4. ;遮蔽线不保存原有线---------------------------------------------
5. (defun c:CF(/ ent)
6.   (setvar "cmdecho" 0);关闭回显
7.   (command "_.-LAYER" "m" "COVER LINE" "c" "150" "COVER LINE" "")
8.   (command "_.-LAYER" "s" "COVER LINE" "")
9.   (setq ent (ssget))
10.   (command "chprop"  ent  "" "s" "100" "" "")
11.   (command "WIPEOUT" "P" ent "Y")
12.   (prompt "原有的图层已删除.\n")
13.    (princ))

;请都高手 ;可以多选择，但结果变遮蔽线只能实现单个，是否能实现多选择后都转换成遮蔽线。多谢！ ;遮蔽线不保存原有线--------------------------------------------- (defun c:CF(/ ent)   (setvar "cmdecho" 0);关闭回显   (command "_.-LAYER" "m" "COVER LINE" "c" "150" "COVER LINE" "")   (command "_.-LAYER" "s" "COVER LINE" "")   (setq ent (ssget))   (command "chprop"  ent  "" "s" "100" "" "")   (command "WIPEOUT" "P" ent "Y")   (prompt "原有的图层已删除.\n")    (princ))

英雄无敌

你REPEAT一下不就行了

samshs

大概要怎麽做呢？多謝！

英雄无敌

(defun c:CF(/ ent)
   (setvar "cmdecho" 0);关闭回显
   (command "_.-LAYER" "m" "COVER LINE" "c" "150" "COVER LINE" "")
   (command "_.-LAYER" "s" "COVER LINE" "")
   (setq ent (ssget))

(if ent

(progn

(setq n -1)

(repeat (sslength ent)

(setq en (ssname ent (setq n (1+ n)))
   (command "chprop"  ent  "" "s" "100" "" "")
   (command "WIPEOUT" "P" ent "Y")

)
   (prompt "原有的图层已删除.\n")
    (princ)

)

)

)

没有测试，大概就这个意思

samshs

十分感謝！