设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

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

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

[复制链接]

签到天数: 7 天

连续签到: 2 天

[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对象的颜色
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 289 天

连续签到: 3 天

[LV.8]以坛为家I

已领礼包: 20个

财富等级: 恭喜发财

发表于 2017-7-17 17:12:09 | 显示全部楼层
缺函数啊
(dimension)
(mtext)
(text)
callassoc
回复 支持 反对

使用道具 举报

签到天数: 289 天

连续签到: 3 天

[LV.8]以坛为家I

已领礼包: 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
回复 支持 反对

使用道具 举报

签到天数: 309 天

连续签到: 65 天

[LV.8]以坛为家I

点击这里给我发消息

已领礼包: 557个

财富等级: 财运亨通

发表于 2017-7-18 00:43:31 | 显示全部楼层
Ooooooooooo
回复 支持 反对

使用道具 举报

签到天数: 7 天

连续签到: 2 天

[LV.3]偶尔看看II

 楼主| 发表于 2017-7-18 07:57:30 | 显示全部楼层
首先谢谢“marting”老师了,我是一点不会,能不能把你说那些加到我那个里面,整个完整的,我拷贝到我机器了,这样我就能用了。你现在这样说我也看不懂。谢谢你了,或者追加我的QQ112941649 。十分感谢
回复 支持 反对

使用道具 举报

签到天数: 7 天

连续签到: 2 天

[LV.3]偶尔看看II

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

回复

使用道具 举报

签到天数: 7 天

连续签到: 2 天

[LV.3]偶尔看看II

 楼主| 发表于 昨天 16:09 | 显示全部楼层


                               
登录/注册后可看大图

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

回复 支持 反对

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2017-7-27 22:42 , Processed in 0.687117 second(s), 70 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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