视口图层改颜色

yefei812678

谁能帮忙加个对话框模式就更好了，可以选颜色可修改颜色，一个按钮可以修改线型这样就更完美了

yefei812678

谁能帮个忙修改下这个嘛？

yefei812678

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

yefei812678

谁能帮忙加个对话框模式就更好了，可以选颜色可修改颜色，一个按钮可以修改线型这样就更完美了

zilong136

感觉没必要这样给视口专门做这种插件吧，不管是改图层图层、颜色、线型，源泉都可以，不管是在模型还是布局视口里都一样操作。

yefei812678

zilong136 发表于 2023-12-27 06:28
感觉没必要这样给视口专门做这种插件吧，不管是改图层图层、颜色、线型，源泉都可以，不管是在模型还是布局 ...

我没有用其他插件 这个插件还是挺好的  不知道你会不会改

yefei812678

大神们给看看怎么改下嘛？

zilong136

yefei812678 发表于 2023-12-27 09:10
我没有用其他插件 这个插件还是挺好的  不知道你会不会改

论谈有关图层、线型、颜色的插件应该有很多的，这不局限于到底是在模型空间还是布局空间。