[求助]请高手帮忙修改一个lisp【已解决】

cn8485

zenme you de huifu kan bu dao ya

英明神武的大叔

我也正需要这个代码！

英明神武的大叔

试试 楼主的代码 可不可以用！

dabingrain

(vl-load-com)
(defun C:VQ ( / ss Ent Entlist Lay)
        (setvar "CMDECHO" 0)
        (if (equal (getvar "TILEMODE") 0)
                (cond
                        ((equal (getvar "CVPORT") 1)
        (princ "\n 请双击激活视口运行本程序")      
                        )
                        (T
                                (if (progn (princ "\选择视口内要冻结的图层上的对象: ")
                                                        (setq ss (ssget))
                                                ) (progn
                                                                (setq i 0)
                                                        (repeat (sslength ss)
                                                                (setq Ent (ssname ss i)
                                                                        Entlist (entget Ent)
                                                                        Lay (cdr (assoc 8 Entlist))
                                                                        i (1+ i))
                                                                (command "vplayer" "f" Lay "" "")
                                                        )
                                                )
        )
                        )
                )
                (princ "\n 请切换到布局")
        )
        (setvar "CMDECHO" 1)
        (princ)
)

sj800918

我也需要啊