[問題]lisp線性的變更判斷？

請問各位大大，lisp在寫更換線性時，寫判斷式時無法判斷？

代碼:


(DEFUN C:CCLT();;程式名CCLT
  (setvar "cmdecho" 0)
  (if (not (tblsearch "ltype" "HIDDEN"));;判斷無此線型
    (command "-LINETYPE" "L" "HIDDEN" "" "");;載入線型
    )
  (princ "\n選擇要變更成虛線之物件:");;印出"文字"
  (setq ss (ssget));;選物件
  (setq i 0)
  (repeat (sslength ss);;迴圈
    (setq ent (ssname ss i));;設定選的ss圖元資料至ent
    (setq entdata (entget ent));;解析出data
    (setq ent_6 (cdr (assoc 6 entdata)));;取出6的資訊
    (if (= ent_6 nil);;如果裡面沒有資訊
      (progn
 (setq entdata (cons (cons 6 "HIDDEN") entdata));;裡面沒有資訊時寫入
 (setq entdata (subst (cons 6 "HIDDEN") (ASSOC 6 entdata) entdata));;裡面有資訊時寫入
 )
      )
    (entmod entdata);;重新載入data資料
    (setq i (1+ i))
    )
   (princ)
   )


小弟寫到判斷時如果群碼6裡面有資訊的無法寫入變更

指令: !ent6
"HIDDENX10"

當查詢時還是舊的資料！
求救，請問下小弟該如何改才能變更線性！

因為你多放了progn
導致if判斷ent_6後的執行程式
沒有跟有資訊的執行程式都併入了沒有資訊的結果
導致有資訊的執行程式沒有動作
去掉progn後修改如下

代碼:

(DEFUN C:CCLT();;程式名CCLT
  (setvar "cmdecho" 0)
  (if (not (tblsearch "ltype" "HIDDEN"));;判斷無此線型
    (command "-LINETYPE" "L" "HIDDEN" "" "");;載入線型
    )
  (princ "\n選擇要變更成虛線之物件:");;印出"文字"
  (setq ss (ssget));;選物件
  (setq i 0)
  (repeat (sslength ss);;迴圈
    (setq ent (ssname ss i));;設定選的ss圖元資料至ent
    (setq entdata (entget ent));;解析出data
    (setq ent_6 (cdr (assoc 6 entdata)));;取出6的資訊
    (if (= ent_6 nil);;如果裡面沒有資訊
 (setq entdata (cons (cons 6 "HIDDEN") entdata));;裡面沒有資訊時寫入
 (setq entdata (subst (cons 6 "HIDDEN") (ASSOC 6 entdata) entdata));;裡面有資訊時寫入
      )
    (entmod entdata);;重新載入data資料
    (setq i (1+ i))
    )
   (princ)
   )

naruto018 寫到:因為你多放了progn
導致if判斷ent_6後的執行程式
沒有跟有資訊的執行程式都併入了沒有資訊的結果
導致有資訊的執行程式沒有動作
去掉progn後修改如下

感謝大大！
這樣改完之後可以順利運行！