adc 发表于 2011-6-29 13:59:38

获取图层名及颜色

请教怎样把这两个程序合并成一个，输出图层名颜色是否颜色随层，多谢！
;;获取图层名
(defun c:test()
(setq layername (cdr (assoc 8 (entget (car (entsel "\n 请选择实体:"))))))
(princ layername)
(princ)
)

;;获取图层颜色
(defun c:cys()
(setq objA (entsel"\n选图形: "))
(setq en2 (entget (car objA)))
(setq en3 (assoc 8 en2))
(setq en4 (cdr en3))
(setq en5 (cdr (assoc 62 (entget (tblobjname "layer" en4)))))
(prompt (strcat " 颜色为" (rtos en5 2 0)))
(PRINC)
)

ljpnb 发表于 2011-6-29 14:16:18

修改了一下
;;获取图层颜色
(defun c:cys ()
(setq dxf (entget (car (entsel "\n选图形: "))))
(setq lay (cdr (assoc 8 dxf)))
(setq col (cdr (assoc 62 dxf)))
(setq col1 (cdr (assoc 62 (entget (tblobjname "layer" lay)))))
(setq tex (strcat "\n选择物体所在层为:" lay))
(if col
    (progn
      (setq tex (strcat tex "\n" lay "层的颜色为:" (rtos col1)))
      (setq tex (strcat tex "\n所选物体的颜色为:" (rtos col)))
    )
    (setq tex(strcat tex "\n物体的颜色随层，颜色为:" (rtos col1)))
)
(alert tex)
(PRINC)
)

oxygen_xy 发表于 2011-6-29 15:35:08

,,,,....

raimo 发表于 2011-6-29 19:25:42

就这个帖子问一下,如果是想获得当前的标注样式改怎么写?

Andyhon 发表于 2011-6-29 19:36:02

(getvar "DIMSTYLE")

adc 发表于 2011-6-30 11:38:30

回复 ljpnb 的帖子

非常感谢，比我本来想到的还要好
页: [1]
查看完整版本: 获取图层名及颜色