cn8485 发表于 2010-4-20 14:08:00

zenme you de huifu kan bu dao ya

英明神武的大叔 发表于 2012-8-20 11:19:26

我也正需要这个代码！

英明神武的大叔 发表于 2012-8-20 11:21:00

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

dabingrain 发表于 2016-4-13 09:10:09

(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 发表于 2016-7-2 16:12:44

我也需要啊
页: 1 [2]
查看完整版本: [求助]请高手帮忙修改一个lisp【已解决】