设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 开源函数库 › 请教下，这个输出函数该怎么写
返回列表 发新帖
查看: 1391|回复: 7

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

[复制链接]
h┽射手
发表于 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豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

newer

已领礼包: 40个

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

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-6-25 19:02:44 | 显示全部楼层
你要对全图的实体操作变随层？那么

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


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

点评

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

使用道具 举报

kwok

已领礼包: 394个

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

点评

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

使用道具 举报

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

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

使用道具 举报

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

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

使用道具 举报

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

点评

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

使用道具 举报

h┽射手
 楼主| 发表于 2013-6-26 12:29:45 | 显示全部楼层
Free-Lancer 发表于 2013-6-26 11:33
说明cad版本

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-23 20:21 , Processed in 0.212027 second(s), 45 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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