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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › 求一个在画线时能修改图层的命令
12下一页
返回列表 发新帖
查看: 3829|回复: 21

[编程申请] 求一个在画线时能修改图层的命令

[复制链接]
5240xiao
发表于 2014-3-13 13:07:09 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

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

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2014-3-13 13:21:00 | 显示全部楼层
可以写个透明的命令，透明切换当前层更通用些。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

5240xiao
 楼主| 发表于 2014-3-13 13:24:30 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
怎么写啊，老大

点评

Lisphk
有个想法啊，你在画线的时候，鼠标去图层下拉框那选中别的层，看看还能继续在新层上画线不？  详情 回复 发表于 2014-3-13 13:41
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2014-3-13 13:41:01 | 显示全部楼层
5240xiao 发表于 2014-3-13 13:24
怎么写啊，老大

有个想法啊，你在画线的时候，鼠标去图层下拉框那选中别的层，看看还能继续在新层上画线不？

点评

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

使用道具 举报

5240xiao
 楼主| 发表于 2014-3-13 13:49:46 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Lisphk 发表于 2014-3-13 13:41
有个想法啊，你在画线的时候，鼠标去图层下拉框那选中别的层，看看还能继续在新层上画线不？

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

使用道具 举报

5240xiao
 楼主| 发表于 2014-3-13 14:18:23 | 显示全部楼层

(defun c:w1()

   (command "layer" "m" "WALL" "c" "255" "WALL" "")
  (prin1)
)

(defun c:w2()

  (command "layer" "m" "WINDOW" "c" "134" "WINDOW" "")
  (prin1)

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

使用道具 举报

5240xiao
 楼主| 发表于 2014-3-13 14:25:30 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这样会出错
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-3-13 14:49:20 | 显示全部楼层
本帖最后由 st788796 于 2014-3-13 14:55 编辑
5240xiao 发表于 2014-3-13 14:25
这样会出错

8.0 以上 ODCL
  1. (defun setlyr (/
  2.                lyrlst
  3.                string
  4.                c:clayer/form1#OnInitialize
  5.                c:clayer/form1/textbutton1#OnClicked
  6.               )
  7.   (defun c:clayer/form1#OnInitialize ()
  8.     (dcl-ListBox-AddList clayer/form1/listbox1 lyrlst)
  9.   )
  10.   (defun c:clayer/form1/textbutton1#OnClicked (/ clyr)
  11.     (setq
  12.       clyr (car (dcl-ListBox-GetSelectedItems clayer/form1/listbox1))
  13.     )
  14.     (vla-SetVariable
  15.       (vla-get-activedocument (vlax-get-acad-object))
  16.       "Clayer"
  17.       clyr
  18.     )
  19.     (dcl-form-close clayer/form1)
  20.     (princ)
  21.   )
  22.   (setq        lyrlst (mapcar 'car (XD::Object:Get "Layer"))
  23.         string
  24.                '("YWt6A8AJAAALZ7doBuKjKjUVLS9ugBCk2vlIPFZWa0n/OJK8LuXaM+3rqnnAHMtrYSbu5khk5Vje"
  25.                  "K93lUGvED1tcgHrhnnVpUCKr40G++zU/1UVpFGUZsMPHmaLf8178nkPiBZEJGLCy4ueHMNLHpPpJ"
  26.                  "XVsqL7pLsp5cYn6RxP4QhMxO7zvk+t0E4tvnOvSObvNaTPpNhBFqrbbcOgE7hDVdOcRXJOPfTzNE"
  27.                  "Z6kn7VPoF1M1DfoKJuTaA0eSXrJotaQo7Cgm8VNwr4FO31w3OZYlXKNMh5Y+6t1b3TPecbQ/dqA9"
  28.                  "ELwFL9mNsq8Iy/qg6LotL22W+ovWewMMgwJa/ZRgXGAKRgzLXI5r/wXTgxKRw+4hc55TW5of2QNu"
  29.                  "WKIA8t34g0pV5tknWsN00O3gBB/Cltbhd4Iintl8gW4vS3rwRj+CrRr3c9dllowtsieUcdpCjATP"
  30.                  "yE4H2E7PBAISNMM/pqR02/qTyf/DLn1YqEVK3WOCrA7F0hOxTzQ4/exN+LWK4Nmqq6jXDXa0QYPG"
  31.                  "j771VGxOZNRLkOAoH28bSu7fOsXEcxyTzqIEkKwrUh8oicIEUoSR977xOhtgdII+noV8CfW0q3wZ"
  32.                  "82hO90azjWoz6zhixZcDcJT8wbHTJCOeR0H5sEmQ/idf0XRSxb6cN2GdpVyw8zjA7Y9v/TFMIGqZ"
  33.                  "QhSaT+jRZIGkoGlvsczheQmBWa/7IbOHyoAZwZ0j4m6FyWSBNVJBEg7ijz+/vj18aXpAXk7iHgBa"
  34.                  "Fcj3gidSpDlNtIkG8fgHt1z02/w1xCOVqsjBmfELOQCZpAmEywsDJYJkHuJJBk2dc9wIJ6+N7AUT"
  35.                  "RtyDg1FiBxuMyrKEE0aNbBUOGPEJMciMCjzirZzqwIlSMKMcwreV7ujwmiY0ql9dguEk4e2kITK2"
  36.                  "rdgRyrDq7nF1AYHurUQA9a1hjmlG471hDYTYiYN7nqtFyw=="
  37.                 )
  38.   )
  39.   (dcl_project_import string)
  40.   (dcl_form_show clayer/form1)
  41.   (princ)
  42. )
  43. (vlax-add-cmd
  44.   "setlyr"
  45.   "setlyr"
  46.   "setlyr"
  47.   ACRX_CMD_TRANSPARENT
  48. )
clyr.gif

点评

Lisphk
ODCL很牛啊。  详情 回复 发表于 2014-3-13 14:53

评分

参与人数 1D豆 +5 收起 理由
5240xiao + 5 很给力!经验；技术要点；资料分享奖！

查看全部评分

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

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2014-3-13 14:53:03 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
st788796 发表于 2014-3-13 14:49
8.0 以上 ODCL

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

使用道具 举报

5240xiao
 楼主| 发表于 2014-3-13 14:55:36 | 显示全部楼层
(vl-doc-export 'ww)
(defun ww ()
   (vla-put-color (vlax-ename->vla-object (entlast)) acRed)  能不能把这个换层图层的
   (princ)
)  
(vlax-add-cmd "ww" 'ww "ww" acrx_cmd_transparent)
(princ)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-3-13 14:57:04 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Lisphk 发表于 2014-3-13 14:53
ODCL很牛啊。

呵呵,源泉建筑好像都是 ODCL 对话框

点评

5240xiao
这个命令，用什么起动，我怎么用不起来  详情 回复 发表于 2014-3-13 15:15
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

5240xiao
 楼主| 发表于 2014-3-13 15:15:30 | 显示全部楼层
st788796 发表于 2014-3-13 14:57
呵呵,源泉建筑好像都是 ODCL 对话框

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

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-3-13 15:18:55 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
5240xiao 发表于 2014-3-13 15:15
这个命令，用什么起动，我怎么用不起来

'setlyr      

点评

5240xiao
谢谢 ，工具很好，但我cad2006用不起了，要下个8。0ODCL吗，网上怎么找不到  详情 回复 发表于 2014-3-13 15:39
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

5240xiao
 楼主| 发表于 2014-3-13 15:39:42 | 显示全部楼层
st788796 发表于 2014-3-13 15:18
'setlyr

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

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-3-13 15:46:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
5240xiao 发表于 2014-3-13 15:39
谢谢 ，工具很好，但我cad2006用不起了，要下个8。0ODCL吗，网上怎么找不到

http://sourceforge.jp/projects/sfnet_opendcl/

目前最新是 8.0.4

下载 Runtime 两个文件 msm msi

点评

5240xiao
谢谢，大哥，如 果把这个代码(vla-put-color (vlax-ename->vla-object (entlast)) acRed) 改颜色变成改成变一个图层窗，要怎么改，  详情 回复 发表于 2014-3-13 15:53
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-20 06:05 , Processed in 0.514881 second(s), 75 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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