smartstar 发表于 2008-9-24 13:17:00

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

本帖最后由 作者 于 2008-12-17 17:21:01 编辑 <br /><br /> <p>这个是“在本视口冻结图层”的一个lisp</p><p>(defun C:VQ ( / Ent Entlist Lay)<br/>(setq Ent (car (entsel "\选择视口内要冻结的图层上的对象: "))<br/>Entlist (entget Ent)<br/>Lay (cdr (assoc 8 Entlist)))<br/>(command "vplayer" "f" Lay "" "")<br/>)</p><p>这个程序程序在执行过程只能“单选”，不能“框选”，请高手帮忙修改，谢谢！</p>

ZZXXQQ 发表于 2008-9-26 13:10:00

本帖最后由 作者 于 2009-5-8 18:41:23 编辑



(defun C:VQ ( / ss Ent Entlist Lay)
(setvar "CMDECHO" 0)
(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 "" "")
)
))
(setvar "CMDECHO" 1)
(princ)
)


smartstar 发表于 2008-9-28 12:29:00

<p>十分感谢！！！！终于不用一个一个的点了！</p>

smartstar 发表于 2008-9-28 16:56:00

<p>能不能再帮我把下面这个程序在改一下，也改成“框选”的！</p><p>谢谢！</p><p>(defun C:VT ( / Ent Entlist Lay)<br/>(setq Ent (car (entsel "\选择要在视口中隔离的图层上的对象或 [设置(S)/放弃(U)]: "))<br/>Entlist (entget Ent)<br/>Lay (cdr (assoc 8 Entlist)))<br/>(command "LAYVPI"&nbsp; Lay "" "")<br/>)</p>

guican 发表于 2009-4-26 21:15:00

<p>好，我正在找</p>

zhaoxingying 发表于 2009-5-4 16:52:00

<p>我也需要啊</p>

zhaoxingying 发表于 2009-5-4 16:53:00

<p>怎么看不到啊 </p><p></p>

zhaoxingying 发表于 2009-5-4 16:56:00

<p>怎么看不到啊</p><p></p>

zhaoxingying 发表于 2009-5-4 16:57:00

<p>怎么样行啊</p>

gangxiadexue 发表于 2009-5-8 15:35:00

我也学习一下,呵呵,谢谢楼主啊
页: [1] 2
查看完整版本: [求助]请高手帮忙修改一个lisp【已解决】