乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 23|回复： 6

[编程交流] 设置颜色、线型和线条

[复制链接]
wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-5 15:34:47 | 显示全部楼层 |阅读模式
我需要将颜色、线型和线宽设置为“按层”
在我的lisp绘图中。
回复

使用道具 举报

satishrajdev

55

主题

402

帖子

357

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
274
发表于 2022-7-5 15:54:34 | 显示全部楼层
对于对象：
  1. (vla-put-color ob 256)
  3. (vla-put-linetype ob "ByLayer")
  5. (vla-put-lineweight ob -1)

 
对于AutoCAD设置：
 
  2. (setvar "cecolor" "256")
  4. (setvar "celtype" "bylayer")
  6. (setvar "celweight" -1)
回复

使用道具 举报

wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-5 15:59:24 | 显示全部楼层
 
谢谢。它非常有用
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 16:08:44 | 显示全部楼层
另一种方式
 
  2. (setq ssall (ssget "x"))
  3. (repeat (setq x (sslength ssall))
  4. (setq obj (vlax-ename->vla-object (ssname ssall (setq x (- x 1)))))
  5. (vlax-put-property obj "Linetype" "Bylayer") 
  6. (vlax-put-property obj "Lineweight" -1)
  7. (vlax-put-property obj "Color" acbylayer)
  8. ) ; end repeat
回复

使用道具 举报

wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-5 16:15:51 | 显示全部楼层
也谢谢你。
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-5 16:28:51 | 显示全部楼层 
  2. ...(foreach prop 
  3. '(        ("Linetype"        "Bylayer"        )
  4.         ("Lineweight"        -1        )
  5.           ("Color"        256        )
  6.           )
  7. (vlax-put obj (car prop) (cadr prop)))
  8. ...

 
  2. ...
  3. (mapcar '(lambda (p v)
  4.          (vlax-put obj p v)
  5.          v
  6.     )
  7.    '("Linetype" "Lineweight" "Color")
  8.    '("Bylayer" -1 256)
  9. )
  10. ....

 
  1. (command "_Setbylayer" (ssget "X") "" "_Yes" "_Yes")
回复

使用道具 举报

wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-5 16:40:39 | 显示全部楼层
 
代码不错，谢谢大家。
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-14 21:07 , Processed in 0.561952 second(s), 66 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表