改变颜色的插件

KO你

qmqyqj 发表于 2020-5-20 12:00
(DEFUN c:1 () (command"zoom""1/1xp"))
(DEFUN c:2 () (command"zoom""1/2xp"))
(DEFUN c:3 () (comma ...

在论坛里都可以找得到的
快捷键  sv  视口比例
(defun c:sv (/ bl)
(if (setq bl (getreal "\n视口比例1:"))
(command "zoom" "s" (strcat (rtos (/ 1.0 bl) 2 10) "xp")))
(princ))

快捷键  svv  视口比例查询
(defun c:svv (/ ent)
(prompt "选择需要查询比例的视口：")
(setq  ent (entget (ssname (ssget ":S" '((0 . "viewport"))) 0)))
(princ (strcat "\n视口比例为：1:" (rtos (/ (cdr(assoc 45 ent))
(cdr(assoc 41 ent))) 2 0) "\n"))
(princ))

myairen

楼主太好了，下载不设任何条件