按功能在指定视口中冻结特定图层

mj0000 · 发表于 2014-5-25 13:48:09

xieyanghui 发表于 2014-5-25 00:20
在CAD2012还是不行，提示*** 选择视口前，请保持视口中有效图层开启 ***Error: no function definition: MY ...

28楼使用了函数MYCADGE,改写了initget 和getkword,自己改写下或者在论坛里面找个功能一样的函数替换下

hooboxu · 发表于 2015-7-3 20:55:33

记号有下，回电脑下载

zjh2785 · 发表于 2017-10-22 14:11:03

一看楼主就是做景观的....感谢分享！！！！
多发点这些，我等菜鸟也可以学习学习

curugi · 发表于 2018-1-28 23:53:04

这个还是不太智能哦

curugi · 发表于 2018-1-30 21:13:50

如果能直接框选反选就好用了

wudechao · 发表于 2019-5-25 16:27:57

(defun c:vd (/ ss n index lay ent ffg)
  (setvar "cmdecho" 0)
  (setq ffg (getvar "TILEMODE"))
  (if (= ffg 0)
(progn
   (command "_.MSPACE")
   (prompt "\n请选择冻结物体所在的图层<退出>:")
   (setq ss (ssget))
   (if (/= ss nil)
(progn
   (setq n (sslength ss))
   (setq index 0)
   (repeat n
      (setq ent (ssname ss index))
      (setq lay (cdr (assoc 8 (entget ent))))
      (command "_.vplayer" "F" lay "" "")
      (setq index (+ index 1))
   );_结束repeat
);_结束progn
(progn
   (princ "\n未选到物体。")
);_结束progn
   );_结束if
);_结束progn
(progn
   (princ "\n请转到图纸空间再使用本命令。")
);_结束progn
  );_结束if
  (command "_.PSPACE")
  (setvar "cmdecho" 1)
  (princ)
)

davide888 · 发表于 2020-7-8 23:30:05

07很好用，感谢分享。

＿Levin · 发表于 2022-4-24 22:01:05

感谢分享！！
学习了

账号		自动登录	找回密码
密码			注册

[源码] 按功能在指定视口中冻结特定图层