设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2389|回复: 18

[填充] 色块(填充)显示顺序置底

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-8-28 12:51:47 | 显示全部楼层 |阅读模式
  • 插件名称 : 色块置底
  • 作  者 : Lispboy
  • 运行环境 :XDRX API 
  • 发布时间 :2013-08-28
  • 命令名称 :XDTB_HATCH->BOTTOM
  • 插件介绍 :将图中色块(填充实体)置底,支持图块内色块
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

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

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

x
XDRX API 支持图块内的显示顺序调整了,抽空给大家写个插件,将图中色块置底。

[pcode=lisp,true]
;|
色块置底工具,支持图块内填充置底
命令名:XDTB_Hatch->Bottom
|;
(defun c:XDTB_Hatch->Bottom (/ e el el1 n ob ss tf tf1)
  (xdrx_begin)
  (setq tf (xdrx_yesorno "\n是否处理图块内色块" 0) tf1 nil)
  (if (setq ss (ssget "x" '((0 . "HATCH"))))
    (progn
      (setq tf1 t)
      (xdrx_setsstodb ss 0)
      (xdrx_draworder->back ss)
    )
  )
  (if (= tf 1)
    (progn
      (setq ob (xdrx_object_get "block"))
      (setq el nil)
      (while (setq e (xdrx_object_next))
        (if (not (= (substr (car e) 1 1) "*"))
          (progn
            (setq el (cons (cadr e) el))
          )
        )
      )
      (foreach n el
        (xdrx_object_get n)
        (xdrx_setenttodb n)
        (setq na (xdrx_getentdxf 2))
        (setq el1 nil)
        (while (setq e (xdrx_object_next))
          (if (= "HATCH" (xdrx_getentdxf 0))
            (setq el1 (cons (cadr e) el1))
          )
        )
        (if el1
          (progn
            (setq tf1 t)
            (apply
              'xdrx_draworder->back
              el1
            )
            (if (setq ss (ssget "x" (list '(0 . "insert") (cons 2 na))))
               (xdrx_object_regen ss)
            )
          )
        )
      )
    )
  )
  (if tf1
    (princ "\n图中所有色块已经置底!")
    (princ "\n图中没有发现色块!")
  )
  (xdrx_end)
  (princ)
)

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

已领礼包: 342个

财富等级: 日进斗金

发表于 2013-8-28 13:36:38 | 显示全部楼层
好像都没几个人用晓东工具箱。看到论坛上交流晓东API仅仅几个人。
1.伪码太多。
2.工具箱(非程序库)太老,新的未出。

点评

为我所用即可,A/Vlisp DCL OpenDCL doslib xdapi expresstools ARX C# VB.net VBA ... 不拘形式!  详情 回复 发表于 2013-8-28 17:28
直接给你VLX就好了。  详情 回复 发表于 2013-8-28 14:53
你当没看见就是了,交流编程用API是一回事,用插件是另外一回事。你下载完API和函数库,能用不? CAD的内部函数,你看到源码了?  详情 回复 发表于 2013-8-28 14:14
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 862个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2013-8-28 14:14:03 | 显示全部楼层
429014673 发表于 2013-8-28 13:36
好像都没几个人用晓东工具箱。看到论坛上交流晓东API仅仅几个人。
1.伪码太多。
2.工具箱(非程序库)太 ...

你当没看见就是了,交流编程用API是一回事,用插件是另外一回事。你下载完API和函数库,能用不? CAD的内部函数,你看到源码了?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2013-8-28 14:53:39 | 显示全部楼层
429014673 发表于 2013-8-28 13:36
好像都没几个人用晓东工具箱。看到论坛上交流晓东API仅仅几个人。
1.伪码太多。
2.工具箱(非程序库)太 ...

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

使用道具 举报

已领礼包: 1266个

财富等级: 财源广进

发表于 2013-8-28 17:23:21 来自手机 | 显示全部楼层

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

使用道具 举报

发表于 2013-8-28 17:28:25 来自手机 | 显示全部楼层
本帖最后由 Free-Lancer 于 2013-8-28 17:32 编辑
429014673 发表于 2013-8-28 13:36
好像都没几个人用晓东工具箱。看到论坛上交流晓东API仅仅几个人。
1.伪码太多。
2.工具箱(非程序库)太 ...


为我所用即可,A/Vlisp DCL OpenDCL doslib xdapi expresstools ARX C# VB.net VBA ActiveX command ...  不拘形式!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 76个

财富等级: 招财进宝

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

使用道具 举报

发表于 2013-10-7 15:01:29 | 显示全部楼层
那象在CAD2005中没有任何效果啊?能否修改一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

已领礼包: 34个

财富等级: 招财进宝

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

使用道具 举报

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

使用道具 举报

已领礼包: 63个

财富等级: 招财进宝

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2021-9-21 01:57 , Processed in 1.040577 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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