设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 请问，怎么调用这种结构里面的内容
返回列表 发新帖
查看: 287|回复: 1

[提问] 请问，怎么调用这种结构里面的内容

[复制链接]
8142556
发表于 2018-1-22 15:54 | 显示全部楼层 |阅读模式
本帖最后由 8142556 于 2018-1-22 16:03 编辑

最好有句完整的调用示例
比如我要调用其中的某一行内容
回复

使用道具 举报

8142556
 楼主| 发表于 2018-1-22 15:55 | 显示全部楼层
本帖最后由 8142556 于 2018-1-22 16:02 编辑
  2. (defun ea_mainmenu_datastru ()
  3.   '(("TITLE" "XDCAD") ;_菜单标题
  4.     ("LOGO" 103) ;_Logo 图标,不启用仅保留名称
  5.     ("TAB0" ("TAB0" "通用") ("TAB1" "专业") ("TAB2" "图层")) ;_根据Tab启用情况增减
  6.     ;;以上三行固定格式，不可更改标记名称或省略元素
  7.     ;;第一个TAB菜单
  8.     ("TAB0"
  9.      ;;主菜单, 命令说明和图标可省略
  10.      ("MAIN"
  11.       ("曲 线 一 " "曲线类工具" 100)
  12.       ("曲 线 二 " 100)
  13.       "="
  14.       ("图块工具" 100)
  15.       ("填充工具")
  16.       ("标注工具")
  17.       ("文字工具")
  18.       ("图层工具")
  19.       "=" ;_分隔符，固定符号不可更改
  20.       ("实体工具")
  21.       "="
  22.       ("专业工具")
  23.      )
  24.      ;;第一个子菜单，对应 Main 中次序, 命令说明和图标可省略
  25.      ("SUB0"
  26.       ("多线清理" "XDTB_PolyCompress")
  27.       "="
  28.       ("批量倒角" "xdtb_plinebataddfillet")
  29.       ("增加顶点" "XDTB_PLineAddPnt")
  30.       ("删除顶点" "XDTB_PLineRemovePnt")
  31.       ("框删顶点" "XDTB_RemoveVerts")
  32.       ("删区间点"
  33.        "删除多段线两点间的所有顶点"
  34.        "XDTB_PolyLineR2Pnt"
  35.       )
  36.       ("删除整段" "XDTB_PolylineRSEG")
  37.       ("框选断开" "XDTB_CurveCrossBreak")
  38.       "="
  39.       ("局部偏移" "xdtb_plinesegoffset")
  40.       ("成组偏移" "XDTB_CurveGOffset")
  41.       ("单线变双" "XDTB_CurveDOffset")
  42.       ("内偏延伸" "XDTB_PlineSegOffsetIn")
  43.       "="
  44.       ("SP转Pline" "XDTB_SPline2PL")
  45.       ("曲线转型"
  46.        "将二维多段线在普通、FIT、B样条、C样条曲线间批量转换"
  47.        "XDTB_PlineConvertType"
  48.       )
  49.       ("光滑曲线" "XDTB_CURVEFIT")
  50.       ("光滑转直" "XDTB_PLineRFIT")
  51.       ("线变复线" "XDTB_CURVE_L2PL")
  52.       "="
  53.       ("融合线段" "XDTB_LineJoin")
  54.       ("曲线校正" "XDTB_DrawAdjust")
  55.       "="
  56.       ("识别内角" "XDTB_PlineInterior")
  57.       ("批标线长" "XDTB_Dimlines")
  58.      )
  59.      ;;第二个子菜单
  60.      ("SUB1"
  61.       ("删超短线" "XDTB_CurveDelSLine")
  62.       ("消除重线" "XDTB_RDUPLINE")
  63.       "="
  64.       ("自由矩形" "XDTB_RectFree")
  65.       ("拓扑造区" "ToPoMkRegion")
  66.       ("多线轮廓" "XDTB_PLine2Outline")
  67.       "="
  68.       ("快速修整" "XDTB_PolylineTrim")
  69.       ("自动修剪" "XDTB_CurveAutoRepair")
  70.       ("局部加粗" "XDTB_PlineSegWidth")
  71.       "="
  72.       ("辅助垂线" "XDTB_HelpPerpLine")
  73.      )
  74.      ("SUB2"
  75.       ("图块轮廓" "生成图块轮廓线" "XDTB_Block2Bound" 100)
  76.       ("图层至 0"
  77.        "所有实体图层变为0层，支持嵌套"
  78.        "Xdtb_blockE20"
  79.        100
  80.       )
  81.       ("图块遮罩" "Xdtb_blockmark" 100)
  82.       ("修改基点" "动态修改图块插入点" "XDTB_BlockChgBasePnt" 100)
  83.       ("动态匹配" "动态块完全匹配" "XDTB_DYNMat")
  84.       ("块生外框" "生成UCS包围盒" "XDTB_Block2Box")
  85.       ("重命名块" "重新指定名称" "XDTB_BlockRename")
  86.       ("块内裁剪" "准确的块轮廓线裁剪边界" "XDTB_BlockTrim")
  87.       ("块内改色" "XDTB_BlockRefChgClr")
  88.       ("提取轮廓" "交互提取轮廓" "XDTB_BlockSingleBound")
  89.       ("提取外框" "交互提取外框" "XDTB_BlockSingleBox")
  90.       ("移动实体" "块内实体移动" "XDTB_MoveEntInBlk")
  91.       ("块添实体" "XDTB_BlockAppendEntity")
  92.       ("比例修复" "XDTB_BlockAdjust")
  93.       ("图块合并" "图块合并成匿名块" "XDTB_BlkRefUnion")
  94.       ("局部复制" "从XREF,INSERT实体内部抠出实体" "XDTB_CopyN")
  95.      )
  96.      ("SUB3"
  97.       ("快速填充" "XDTB_FastHatch")
  98.       ("填充置底" "XDTB_Hatch->Bottom")
  99.       ("填充消重" "XDTB_HatchRemoveDup")
  100.       ("填充挖洞" "XDTB_Hacth")
  101.      )
  102.      ("SUB4" ("标分布筋" "XDTB_DimFbgj"))
  103.      ("SUB5"
  104.       ("同字连线" "XDTB_FindString")
  105.       ("文本对齐" "XDTB_TXTAlign")
  106.       ("修改文字" "XDTB_TXTChange")
  107.       ("沿线写字" "XDTB_TextMkAtLine")
  108.      )
  109.      ("SUB6"
  110.       ("图层归并"
  111.        "将所有实体设置到指定的图层，并进行图形清理，支持嵌套的图块，所有实体颜色随层。"
  112.        "XDTB_LayerMerge"
  113.       )
  114.       ("图层全开"
  115.        "打开所有图层，包括关闭和冻结的"
  116.        "XDTB_LyrOnAll"
  117.       )
  118.       ("选层保留" "关闭非选择图层" "XDTB_LAYERREV")
  119.       ("选层冻结" "支持块内图层" "XDTB_LyrFrozenByPick")
  120.       ("冻结隐藏" "冻结所有不可见层" "XDTB_LyrFrozenAllOff")
  121.       ("解冻所有" "解冻所有图层" "XDTB_LyrUnFrozenAll")
  122.      )
  123.      ("SUB7"
  124.       ("面域合并" "XDTB_RegionUnion")
  125.       ("面域转线" "XDTB_Region2Curves")
  126.       ("面域差集" "XDTB_RegionSubtract")
  127.       ("面域求交" "XDTB_RegionIntersect")
  128.       "="
  129.       ("修改颜色" "XDTB_EntityChgClr")
  130.       "="
  131.       ("实体信息"
  132.        "动态鼠标显示实体信息开关命令，开、关交替命"
  133.        "XDTB_EntityInfo"
  134.       )
  135.      )
  136.      ("SUB8"
  137.       ("标三四通" "XDTB_PIPEHead1")
  138.      )
  139.     ) ;_结束第一个 tAB
  140.     ;;开始第二个 TAB
  141.     ("TAB1"
  142.      ("MAIN"
  143.       ("标三四通" "XDTB_PIPEHead1" t)
  144.      )
  145.     )
  146.     ;;开始第三个 Tab
  147.     ;;直接菜单，不需要SUB部分，末尾加 T
  148.     ("TAB2"
  149.      ("MAIN"
  150.       ("图层归并"
  151.        "将所有实体设置到指定的图层，并进行图形清理，支持嵌套的图块，所有实体颜色随层。"
  152.        "XDTB_LayerMerge"
  153.        t
  154.       )
  155.       ("图层全开"
  156.        "打开所有图层，包括关闭和冻结的"
  157.        "XDTB_LyrOnAll"
  158.        t
  159.       )
  160.       ("选层保留" "关闭非选择图层" "XDTB_LAYERREV" t)
  161.       ("选层冻结" "支持块内图层" "XDTB_LyrFrozenByPick" t)
  162.       ("冻结隐藏" "冻结所有不可见层" "XDTB_LyrFrozenAllOff" t)
  163.       ("解冻所有" "解冻所有图层" "XDTB_LyrUnFrozenAll" t)
  164.      )
  165.     )
  166.    )
  167. )
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-4-27 01:09 , Processed in 0.170404 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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