ajunseo 发表于 2023-10-13 08:47:54

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

本帖最后由 ajunseo 于 2023-10-13 09:43 编辑

一键光栅透明贴图，如何简化 Transparency命令呢？(defun C:tm ( )
       (command "TRANSPARENCY")
       (princ)
)输入命令TM后，不要有选项，直接透明贴图打开。

guosheyang 发表于 2023-10-13 11:09:07

用 vla-put-Transparency这个函数

ajunseo 发表于 2023-10-13 22:10:17

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

怎么写啊？

ssyfeng 发表于 2023-10-16 15:58:50

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

ajunseo 发表于 2023-10-16 21:43:54

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


这个可以，可以框选吗？

ssyfeng 发表于 2023-10-17 09:38:13

试试这个
(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 发表于 2023-10-17 11:10:35

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


可以了，感谢！

guankuiwu 发表于 2023-10-17 17:08:22

(command "TRANSPARENCY" (ssget ":S") "" "on")
页: [1]
查看完整版本: 求大神帮助！简化CAD命令Transparency