社区 › AutoLISP/Visual LISP 编程技术 › 怎么用lisp查询修改图层颜色？（已解决）

fxlt619 发表于 2019-6-12 17:07:25

怎么用lisp查询修改图层颜色？（已解决）

本帖最后由 fxlt619 于 2019-6-14 23:24 编辑

现在论坛里的图层改色只能修改但是不能显示原图层颜色，请问能不能修改的时候先显示原图层颜色然后再修改？请大神帮忙修改。;;AAS便捷式查看修改图层颜色
(defun c:AAS (/ e col lyr)
(while (and (setq e (car (entsel "\nPick Entity: ")))
                                       (setq col (acad_truecolordlg '(62 . 255)))
         )
    (setq lyr (cdr (assoc 8 (entget e))))
    (vla-put-color
      (vla-item      (vla-get-layers
                                                                                                 (vla-get-activedocument (vlax-get-acad-object))
                                                                                       )
                              lyr
      )
      (cdr (assoc 62 col))
    )
)
(princ)
)

fxlt619 发表于 2019-6-14 23:24:38

;;AAS便捷式查看修改图层颜色
(defun c:AAS (/ e col lyr)
(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)))
(while (and (setq e (car (entsel "\nPick Entity: ")))
                                       (setq col (acad_truecolordlg '(62 . 255)))
         )
    (setq lyr (cdr (assoc 8 (entget e))))
    (vla-put-color
      (vla-item      (vla-get-layers
                                                                                               (vla-get-activedocument (vlax-get-acad-object))
                                                                                       )
                                lyr
      )
      (cdr (assoc 62 col))
    )
)
(princ)
)

查看完整版本: 怎么用lisp查询修改图层颜色？（已解决）