找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1415|回复: 7

[选择集] 请教下,这个输出函数该怎么写

[复制链接]
发表于 2013-6-25 18:51:01 | 显示全部楼层 |阅读模式
函数发布
函数名称: 颜色随层
调用格式: lisp
参数说明: 我想实现颜色随层,空格行不知道怎么写了,请求帮助!!
返回值: -
函数简介: (PROMPT "\n底图处理")
(SETVAR "CMDECHO" 0)
(COMMAND "LAYER" "U" "*" "")
(VL-LOAD-COM)
(command "undo" "be")
(SETQ DOCUMENT (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)))
(SETQ MODELSPACE (VLA-GET-MODELSPACE DOCUMENT))
(SETQ LAYERS (VLA-GET-LAYERS DOCUMENT))
(setq SS (ssget "X" '((0 . "LAYERS") (-4 . "/=")(62 . 256))))

;(vla-regen DOCUMENT :vlax-false)
(PROMPT "\r完成")
(command "undo" "e")
(SETVAR "CMDECHO" 1)
(PRINC)
函数来源: 二次修改
函数作者:
适用版本: ACAD 2006- 
最后更新时间: 2013-06-25
备注: -
演示图片: -

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
我想实现颜色随层,空格行不知道怎么写了,请求帮助!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2013-6-25 18:57:46 | 显示全部楼层
这是求助帖,不应该用函数发布了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2013-6-25 19:02:44 | 显示全部楼层
你要对全图的实体操作变随层?那么

  1. (setq SS (ssget "X" '((0 . "LAYERS") (-4 . "/=")(62 . 256))))


这就不对了,你要选所有的实体,然后遍历选择集对象,对每个对象操作,设置它随层。

点评

能帮我写下么?谢谢,实在不懂!  详情 回复 发表于 2013-6-26 10:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 394个

财富等级: 日进斗金

发表于 2013-6-25 20:45:05 | 显示全部楼层
简单我来,不知是不是楼主想要的
;;*****************线色随层
(defun C:tt(/ ss)
  (SETQ SS (SSGET ))
  (command ".setbylayer" ss "" "y" "y")
  (princ)
)

点评

试了,不行...  详情 回复 发表于 2013-6-26 10:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-26 10:07:09 | 显示全部楼层
newer 发表于 2013-6-25 19:02
你要对全图的实体操作变随层?那么

能帮我写下么?谢谢,实在不懂!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-26 10:07:54 | 显示全部楼层
kwok 发表于 2013-6-25 20:45
简单我来,不知是不是楼主想要的
;;*****************线色随层
(defun C:tt(/ ss)

试了,不行...:Q
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-26 11:33:51 来自手机 | 显示全部楼层
说明cad版本来自: Android客户端

点评

06.08都可以  详情 回复 发表于 2013-6-26 12:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-26 12:29:45 | 显示全部楼层

06.08都可以
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-25 16:01 , Processed in 0.447066 second(s), 50 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表