社区 › Auto Lisp › 设置颜色、线型和线条

wimal 发表于 2022-7-5 15:34:47

设置颜色、线型和线条

我需要将颜色、线型和线宽设置为“按层”
在我的lisp绘图中。

satishrajdev 发表于 2022-7-5 15:54:34

对于对象：
(vla-put-color ob 256)

(vla-put-linetype ob "ByLayer")

(vla-put-lineweight ob -1)


 
对于AutoCAD设置：
 

(setvar "cecolor" "256")

(setvar "celtype" "bylayer")

(setvar "celweight" -1)

wimal 发表于 2022-7-5 15:59:24

 
谢谢。它非常有用

BIGAL 发表于 2022-7-5 16:08:44

另一种方式
 

(setq ssall (ssget "x"))
(repeat (setq x (sslength ssall))
(setq obj (vlax-ename->vla-object (ssname ssall (setq x (- x 1)))))
(vlax-put-property obj "Linetype" "Bylayer")
(vlax-put-property obj "Lineweight" -1)
(vlax-put-property obj "Color" acbylayer)
) ; end repeat

wimal 发表于 2022-7-5 16:15:51

也谢谢你。

pBe 发表于 2022-7-5 16:28:51

...(foreach prop
'(        ("Linetype"        "Bylayer"        )
        ("Lineweight"        -1        )
        ("Color"        256        )
        )
(vlax-put obj (car prop) (cadr prop)))
...

 

...
(mapcar '(lambda (p v)
       (vlax-put obj p v)
       v
    )
   '("Linetype" "Lineweight" "Color")
   '("Bylayer" -1 256)
)
....

 
(command "_Setbylayer" (ssget "X") "" "_Yes" "_Yes")

wimal 发表于 2022-7-5 16:40:39

 
代码不错，谢谢大家。

查看完整版本: 设置颜色、线型和线条