Lisp获取和设置图层透明度

Free-Lancer

http://adndevblog.typepad.com/autocad/2013/04/get-and-set-layer-and-entity-transparency-using-lisp.html
[pcode=lisp,true]
; gets transparency in percentage
(defun getLayerTransparency (layerName / layer transparency)
   (setq layer (tblobjname "LAYER" layerName))
   ; get the XData of AcCmTransparency   
   (setq transparency (cdr (assoc 1071 (cdar (cdr (assoc -3
     (entget layer '("AcCmTransparency"))))))))
   (if (= transparency nil)
     ; if we did not get a value it must be the default 0%
     (setq transparency 0)
     ; if we got a value then calculate from it
     (progn
       ; get the lower byte of the value 0..255
       ; (100%..0% in the AutoCAD user interface)
       (setq transparency (lsh (lsh transparency 24) -24))
       ; convert the value to a percentage
       (setq transparency (fix (- 100 (/ transparency 2.55))))   
     ) ; (progn
   ) ; (if  
)

(defun c:testGet (/ ent layerName transparency)
   (setq ent (car (entsel)))
   (setq layerName (cdr (assoc 8 (entget ent))))
   (setq transparency (getLayerTransparency layerName))
   (princ transparency)
   (princ)
)
(defun c:testSet (/ ent layerName transparency)
   (setq ent (car (entsel)))
   (setq transparency (getint "Transparency value"))
   (setq layerName (cdr (assoc 8 (entget ent))))
   (command "_LAYER" "_TR" transparency layerName "")
   (princ)
)[/pcode]

Highflybird

这个透明度的设置似乎要在2011及以上版本才能用。

fjb54007

正需要，谢谢楼主分享

lucas3

fjb54007 发表于 2014-11-14 22:01
正需要，谢谢楼主分享

你这是职业灌水啊，一天狂顶46个贴， 悠着点啊！ 不要让别人对你有看法啊