设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表
查看: 112|回复: 6

[求助] 求助在cad中取得线,文字,尺寸线等属性,取得这些的层,线色等等的属性,求原代码

[复制链接]

签到天数: 9 天

连续签到: 1 天

[LV.3]偶尔看看II

发表于 2017-7-17 16:23:16 | 显示全部楼层 |阅读模式

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

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

x
求助在cad中取得线,文字,尺寸线等属性,取得这些的层,线色等等的属性,求原代码。我以前有一个,在2012本版之前都好使,但不清楚为什么在CAD2016不好使。下面我把以前的源代码帖上,希望有高人指点需要改动哪里在2016版本能好使
(defun c:aaa(/ att tt obj layer linetype color scale ttype high totation)
  (setq obj(entsel"\nSelect the object:"))
  (setq att(entget (car obj)))
  (setq tt(callassoc 0 att))

     (if
    (equal tt "DIMENSION")
    (dimension)
    )
   (if
    (equal tt "MTEXT")
    (mtext)
    )
    (if
    (equal tt "TEXT")
    (text)
    )
       (if
     (or
    (equal  tt "LINE")
    (equal  tt "CIRCLE")
    (equal tt "SPLINE")
    (equal tt "ELLIPSE")
    (equal tt "LWPOLYLINE")
    (equal tt "POINT")
    )
    (line)
    )
)




上一篇:已知白色直线长度和R角尺寸求圆心坐标点
下一篇:分别用VLA方法和entmod方法修改MTEXT对象的颜色
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 426 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 20个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 426 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 20个

财富等级: 恭喜发财

发表于 2017-7-17 17:15:24 | 显示全部楼层
获得实体的通用的属性,VLAX-GET


  1. 命令: (setq e (entlast))
  2. <图元名: -24ea88>

  3. 命令: (setq o (vlax-ename->vla-object e))
  4. #<VLA-OBJECT IAcadBlockReference 172d8eec>

  5. 命令: (vlax-get o 'layer)
  6. "0"

  7. 命令: (vlax-get o 'color)
  8. 256

  9. 命令: (vlax-get o 'linetype)
  10. "ByLayer"

  11. 命令: (vlax-get o 'lineweight)
  12. -1

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

使用道具 举报

签到天数: 581 天

连续签到: 224 天

[LV.9]以坛为家II

点击这里给我发消息

已领礼包: 1222个

财富等级: 财源广进

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

使用道具 举报

签到天数: 9 天

连续签到: 1 天

[LV.3]偶尔看看II

 楼主| 发表于 2017-7-18 07:57:30 | 显示全部楼层
首先谢谢“marting”老师了,我是一点不会,能不能把你说那些加到我那个里面,整个完整的,我拷贝到我机器了,这样我就能用了。你现在这样说我也看不懂。谢谢你了,或者追加我的QQ112941649 。十分感谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 9 天

连续签到: 1 天

[LV.3]偶尔看看II

 楼主| 发表于 2017-7-20 07:48:34 | 显示全部楼层
本帖最后由 wk2004 于 2017-7-26 16:07 编辑

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

使用道具 举报

签到天数: 9 天

连续签到: 1 天

[LV.3]偶尔看看II

 楼主| 发表于 2017-7-26 16:09:27 | 显示全部楼层


                               
登录/注册后可看大图

谢谢“marting”老师了,我是一点不会,能不能把你说那些加到我那个里面,整个完整的,我拷贝到我机器了,这样我就能用了。你现在这样说我也看不懂。谢谢你了,或者追加我的QQ112941649 。十分感谢

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

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-4-27 06:37 , Processed in 0.408273 second(s), 76 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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