求大神帮助！简化CAD命令Transparency

ajunseo

一键光栅透明贴图，如何简化 Transparency  命令呢？

2. (defun C:tm ( )
   
3.        (command "TRANSPARENCY")
   
4.        (princ)  
   
5. )

(defun C:tm ( )<br />        (command "TRANSPARENCY") <br />        (princ)  <br /> )

输入命令TM后，不要有选项，直接透明贴图打开。

guosheyang

用 vla-put-Transparency  这个函数

ajunseo

guosheyang 发表于 2023-10-13 11:09
用 vla-put-Transparency  这个函数

怎么写啊？

ssyfeng

试试这个：
(defun c:tm ()
  (vla-put-Transparency (vlax-ename->vla-object (car (entsel))) 1)
  (princ)
)

ajunseo

ssyfeng 发表于 2023-10-16 15:58
试试这个：
(defun c:tm ()
  (vla-put-Transparency (vlax-ename->vla-object (car (entsel))) 1)

这个可以，可以框选吗？

ssyfeng

试试这个
(defun c:tm (/ lst)
  (setq lst (cdr(reverse(mapcar 'cadr (ssnamex  (ssget))))))
  (mapcar '(lambda (x)
  (vla-put-Transparency (vlax-ename->vla-object x) 1)
   )
    lst
    )
  (princ)
)

ajunseo

ssyfeng 发表于 2023-10-17 09:38
试试这个
(defun c:tm (/ lst)
  (setq lst (cdr(reverse(mapcar 'cadr (ssnamex  (ssget))))))

可以了，感谢！

guankuiwu

(command "TRANSPARENCY" (ssget ":S") "" "on")