panliang9 发表于 2023-10-18 15:50:54

（国外搬运）使选定的图层闪烁

下面这个程序可以使选中的图层不停闪烁，觉得很有用，用于2010以上的版本，分享给大家。




原贴在这里，原贴里还有 LEE-MAC更改后用于2008的版本，我的2007用不了。
https://www.cadtutor.net/forum/topic/17205-lisp-blinks-the-layer-of-the-selected-entity/?_fromLogin=1

现在我需要一个能使选中的块不停闪烁的功能，不知能不能实现呢。

zxh92 发表于 2023-10-18 16:24:13

(defun C:1 (/ ent lay ssblik sslay)
(defun ssblik (ss val / ssl i entn)
(setq i 0ssl (sslength ss))
(repeat ssl
    (setq entn (ssname ss i))
    (redraw entn val)
    (setq i (1+ i))
)
)
(setvar "cmdecho" 0)
(if (and
    (setq ent (entsel "\n select : "))
    (setq ent (ssadd(car ent)))
    )
(repeat 22
    (ssblik ent 3)
    (command "._delay" "200")
    (ssblik ent 4)
    (command "._delay" "200")
))
(princ)
)
;(regenall)?

Bao_lai 发表于 2023-10-18 19:12:09

图大会直接卡死吧

宁静港湾 发表于 2023-10-18 23:30:35

楼主，您好，非常感谢搬运的这个程序，您说的“这个程序可以使选中的图层不停闪烁，觉得很有用”，试用下闪烁了三下就不闪了，闪了之后自动退出之前的选择，而且非常卡，大一点的文件会卡死，到底有何用呢？除了炫酷一下。
页: [1]
查看完整版本: （国外搬运）使选定的图层闪烁