明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4887|回复: 14

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

  [复制链接]
发表于 2008-9-24 13:17 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2008-12-17 17:21:01 编辑

这个是“在本视口冻结图层”的一个lisp

(defun C:VQ ( / Ent Entlist Lay)
(setq Ent (car (entsel "\选择视口内要冻结的图层上的对象: "))
Entlist (entget Ent)
Lay (cdr (assoc 8 Entlist)))
(command "vplayer" "f" Lay "" "")
)

这个程序程序在执行过程只能“单选”,不能“框选”,请高手帮忙修改,谢谢!

发表于 2008-9-26 13:10 | 显示全部楼层
本帖最后由 作者 于 2009-5-8 18:41:23 编辑

游客,本帖隐藏的内容需要发帖数高于 2 才可浏览,你当前发帖数只有 0

 楼主| 发表于 2008-9-28 12:29 | 显示全部楼层

十分感谢!!!!终于不用一个一个的点了!

 楼主| 发表于 2008-9-28 16:56 | 显示全部楼层

能不能再帮我把下面这个程序在改一下,也改成“框选”的!

谢谢!

(defun C:VT ( / Ent Entlist Lay)
(setq Ent (car (entsel "\选择要在视口中隔离的图层上的对象或 [设置(S)/放弃(U)]: "))
Entlist (entget Ent)
Lay (cdr (assoc 8 Entlist)))
(command "LAYVPI"  Lay "" "")
)

发表于 2009-4-26 21:15 | 显示全部楼层

好,我正在找

发表于 2009-5-4 16:52 | 显示全部楼层

我也需要啊

发表于 2009-5-4 16:53 | 显示全部楼层

怎么看不到啊

发表于 2009-5-4 16:56 | 显示全部楼层

怎么看不到啊

发表于 2009-5-4 16:57 | 显示全部楼层

怎么样行啊

发表于 2009-5-8 15:35 | 显示全部楼层
我也学习一下,呵呵,谢谢楼主啊
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 18:40 , Processed in 0.195312 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表