色块（填充）显示顺序置底

Lispboy · 发表于 2013-8-28 12:51:47

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

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

×

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]

429014673 · 发表于 2013-8-28 13:36:38

好像都没几个人用晓东工具箱。看到论坛上交流晓东API仅仅几个人。
1.伪码太多。
2.工具箱（非程序库）太老，新的未出。

zhangq_cai1 · 发表于 2013-8-28 14:00:58

提供了函数库就不是伪码，CAD的函数也是直接用的~~~~~~~~~~~~~~~~~~~~~~

newer · 发表于 2013-8-28 14:14:03

429014673 发表于 2013-8-28 13:36
好像都没几个人用晓东工具箱。看到论坛上交流晓东API仅仅几个人。
1.伪码太多。
2.工具箱（非程序库）太 ...

你当没看见就是了，交流编程用API是一回事，用插件是另外一回事。你下载完API和函数库，能用不？ CAD的内部函数，你看到源码了？

Lisphk · 发表于 2013-8-28 14:53:39

429014673 发表于 2013-8-28 13:36
好像都没几个人用晓东工具箱。看到论坛上交流晓东API仅仅几个人。
1.伪码太多。
2.工具箱（非程序库）太 ...

直接给你VLX就好了。

st788796 · 发表于 2013-8-28 17:23:21

429014673 发表于 3 小时前

 登录/注册后可看大图

好像都没几个人用晓东工具箱。看到论坛上交流晓东API仅仅几个人。
1.伪码太多。
2.工具箱（非程序库）太老，新的未出。

API包含了很多思想，对 autocad lisper 绝对有益无害！来自: Android客户端

Free-Lancer · 发表于 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 ... 不拘形式！

chenbing111 · 发表于 2013-9-13 17:05:20

牛哈学习了

清风明月10 · 发表于 2013-10-7 15:01:29

那象在CAD2005中没有任何效果啊？能否修改一下

hahadang · 发表于 2013-10-17 12:19:49

不知道这个该用再什么地方。

zhuo2013 · 发表于 2013-10-25 15:57:06

新人入论坛学习

purple01 · 发表于 2013-11-6 05:07:20

这个很有用

rh88cn · 发表于 2013-12-13 14:38:33

努力获得权限下函数库

AxueLJ · 发表于 2016-5-15 00:38:34

学习学习！！！

land100 · 发表于 2017-11-3 11:21:39

学习到了徐范德萨v

账号		自动登录	找回密码
密码			立即注册

[填充] 色块（填充）显示顺序置底

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

点评