写文字，标注等实体自动设置到指定的层

lisp_beginner · 发表于 2017-5-5 23:35:34

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

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

×

我想求个代码，不管当前层是什么，在我写文字，标注尺寸时候，生成的实体自动设置到指定层，比如"文字” 层， “标注”层。谢谢！

marting · 发表于 2017-5-6 10:18:02

定义个命令监视的反应器，当执行相关命令生成标注，文字，填充，表格,引线等的时候，自动设置图层"_DIM" , "_TEXT" ,"_HATCH","_TABLE","_LEADER"

1、命令 CrOn , 打开监视
2、命令CrOff，关闭监视

;;; CrOn - Command Reactor On
(defun C:CrOn ()
(vl-load-com)
(setq *OldLayer* (getvar "CLAYER"))
(vl-cmdf "_layer" "_make" "_DIM" "_color" 151 "" "") ; 标注
(vl-cmdf "_layer" "_make" "_HATCH" "_color" 5 "" "") ; _填充
(vl-cmdf "_layer" "_make" "_TEXT" "_color" 6 "" "") ; 文本
(vl-cmdf "_layer" "_make" "_TABLE" "_color" 6 "" "") ; 表格
(vl-cmdf "_layer" "_make" "_LEADER" "_color" 6 "" "") ; 引线
(setvar "clayer" *OldLayer*)
(setq *OldLayer* nil)
(if *vlr-cmd*
(progn
(setq *vlr-cmd* nil)
(vlr-remove-all :vlr-command-reactor)
)
)
(if (not *vlr-cmd*)
(setq *vlr-cmd* (vlr-command-reactor "cmd" '(
(:vlr-commandwillstart . cmd-start)
(:vlr-commandended . cmd-end)
(:vlr-commandcancelled . cmd-end)
(:vlr-commandfailed . cmd-end)
)
)
)
)
)
;;;CrOff - Command reactor off
(defun C:CrOff ()
(setq *vlr-cmd* nil)
(vlr-remove-all :vlr-command-reactor)
)

;;; CrOn - Command Reactor On 
(defun C:CrOn () 
  (vl-load-com) 
  (setq *OldLayer* (getvar "CLAYER")) 
  (vl-cmdf "_layer" "_make" "_DIM" "_color" 151 "" "") ; 标注 
  (vl-cmdf "_layer" "_make" "_HATCH" "_color" 5 "" "") ; _填充 
  (vl-cmdf "_layer" "_make" "_TEXT" "_color" 6 "" "") ; 文本 
  (vl-cmdf "_layer" "_make" "_TABLE" "_color" 6 "" "") ; 表格 
  (vl-cmdf "_layer" "_make" "_LEADER" "_color" 6 "" "")        ; 引线 
  (setvar "clayer" *OldLayer*) 
  (setq *OldLayer* nil) 
  (if *vlr-cmd* 
    (progn 
      (setq *vlr-cmd* nil) 
      (vlr-remove-all :vlr-command-reactor) 
    )                                        
  )                                        
  (if (not *vlr-cmd*) 
    (setq *vlr-cmd* (vlr-command-reactor "cmd" '( 
                                          (:vlr-commandwillstart . cmd-start) 
                                          (:vlr-commandended . cmd-end) 
                                          (:vlr-commandcancelled . cmd-end) 
                                          (:vlr-commandfailed . cmd-end) 
                                         ) 
                    ) 
    ) 
  ) 
) 
 
;;;CrOff - Command reactor off 
(defun C:CrOff () 
  (setq *vlr-cmd* nil) 
  (vlr-remove-all :vlr-command-reactor) 
)

命令还是监视器函数 cmd-start

游客，如果您要查看本帖隐藏内容请回复

;;;-------------------------------------------------------------
(defun cmd-end (calling-reactor cmd / cmd_name)
(setq cmd_name (strcase (car cmd)))
(if (or
(wcmatch cmd_name "*HATCH*")
(wcmatch cmd_name "DIM*")
(wcmatch cmd_name "*TEXT")
(wcmatch cmd_name "*TABLE")
(wcmatch cmd_name "*LEADER")
)
(progn
(if *OldLayer*
(setvar "clayer" *OldLayer*)
)
(setq *OldLayer* nil)
)
)
(princ)
)

hao3ren · 发表于 2017-5-8 00:28:09

隐藏了什么

向嘟嘟 · 发表于 2017-5-8 10:38:57

看看源码。。。。。。。。。

csharp · 发表于 2017-5-8 10:56:47

用数据库反应器，判断添加实体类型修改图层

qindong668 · 发表于 2017-5-8 14:45:04

正需要这个玩意儿！

Michael527 · 发表于 2017-5-9 19:07:57

好程序，看看源码

sunshinejwt · 发表于 2017-5-13 03:38:55

好程序，看看源码

sh_h · 发表于 2017-5-13 13:24:53

学习学习！

yfanziyfanzi · 发表于 2017-5-13 17:00:37

正找这方面的东东，看看合适不

qwe4250 · 发表于 2017-6-9 15:13:00

隐藏了什么呢？

ZPLANE · 发表于 2017-6-17 21:44:10

很好的插件

ZPLANE · 发表于 2017-6-17 22:00:39

很好的插件很好的插件很好的插件

qq1254582201 · 发表于 2017-6-20 16:26:21

掀起你的盖头来

pezyl · 发表于 2017-6-20 22:01:09

这个好像还真是用得到

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

[求助] 写文字，标注等实体自动设置到指定的层

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