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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 求助：求高手修改代码
返回列表 发新帖
查看: 1539|回复: 1

[已解答] 求助：求高手修改代码

[复制链接]
恕放之生命
发表于 2014-8-29 21:25:32 | 显示全部楼层 |阅读模式
本帖最后由 恕放之生命 于 2014-8-29 21:28 编辑

求助：求高手修改代码

这段代码是由一个块生成lisp代码工具生成，现在无法生成块了，求高手出手相助为谢！


  4. (defun MakeBlock-bb-DXF ()

  6. (if (not (tblsearch "Layer" "总图-坐标"))
  7. (progn
  8. ;;;entmake *** "LAYER" *** object:
  9.   (entmake (list
  10.     '(0 . "LAYER")
  11.     '(100 . "AcDbSymbolTableRecord")
  12.     '(100 . "AcDbLayerTableRecord")
  13.     '(2 . "总图-坐标")
  14.     '(70 . 0)
  15.     '(62 . 3)
  16.     '(6 . "Continuous")
  17.     '(290 . 1)
  18.     '(370 . -3)
  19.       )
  20.     )
  21.   );End Progn
  22. );End IF

  24. (if (not (tblsearch "Block" "bb"))
  25. (progn
  26. ;;;entmake *** "BLOCK" *** object:
  27.   (entmake (list
  28.     '(0 . "BLOCK")
  29.     '(100 . "AcDbEntity")
  30.     '(67 . 0)
  31.     '(8 . "0")
  32.     '(100 . "AcDbBlockBegin")
  33.     '(70 . 0)
  34.     '(10 0.0 0.0 0.0)
  35.     '(2 . "bb")
  36.     '(1 . "")
  37.       )
  38.     )

  40. ;;;entmake *** "LINE" *** object:
  41.   (entmake (list
  42.     '(0 . "LINE")
  43.     '(100 . "AcDbEntity")
  44.     '(67 . 0)
  45.     '(8 . "总图-坐标")
  46.     '(100 . "AcDbLine")
  47.     '(10 31.7819 20.8843 0.0)
  48.     '(11 -31.7819 -20.8843 0.0)
  49.     '(210 0.0 0.0 1.0)
  50.       )
  51.     )

  53. ;;;entmake *** "LINE" *** object:
  54.   (entmake (list
  55.     '(0 . "LINE")
  56.     '(100 . "AcDbEntity")
  57.     '(67 . 0)
  58.     '(8 . "总图-坐标")
  59.     '(100 . "AcDbLine")
  60.     '(10 -31.7819 20.8843 0.0)
  61.     '(11 31.7819 -20.8843 0.0)
  62.     '(210 0.0 0.0 1.0)
  63.       )
  64.     )

  66. ;;;entmake *** "LWPOLYLINE" *** object:
  67.   (entmake (list
  68.     '(0 . "LWPOLYLINE")
  69.     '(100 . "AcDbEntity")
  70.     '(67 . 0)
  71.     '(8 . "总图-坐标")
  72.     '(100 . "AcDbPolyline")
  73.     '(90 . 4)
  74.     '(70 . 1)
  75.     '(43 . 0.0)
  76.     '(38 . 0.0)
  77.     '(39 . 0.0)
  78.     '(10 -31.7819 20.8843)
  79.     '(40 . 0.0)
  80.     '(41 . 0.0)
  81.     '(42 . 0.0)
  82.     '(10 31.7819 20.8843)
  83.     '(40 . 0.0)
  84.     '(41 . 0.0)
  85.     '(42 . 0.0)
  86.     '(10 31.7819 -20.8843)
  87.     '(40 . 0.0)
  88.     '(41 . 0.0)
  89.     '(42 . 0.0)
  90.     '(10 -31.7819 -20.8843)
  91.     '(40 . 0.0)
  92.     '(41 . 0.0)
  93.     '(42 . 0.0)
  94.     '(210 0.0 0.0 1.0)
  95.       )
  96.     )

  98. ;;;entmake *** "ENDBLK" *** object:
  99.   (entmake (list
  100.     '(0 . "ENDBLK")
  101.     '(100 . "AcDbEntity")
  102.     '(100 . "AcDbBlockEnd")
  103.       )
  104.     )

  106.   (entupd (tblobjname "Block" "bb"))
  107.   );End Progn
  108. );End IF

  110.   (princ)  ;静默退出
  111. )

  113. ;$$$$$$$$$$$$
  114. (DEFUN C:ZKaa( )
  115. (SETVAR "CMDECHO" 0)
  116. (SETVAR "OSMODE" 0);关闭捕捉

  118.   (COMMAND "_INSERT" (MakeBlock-bb-DXF "bb") (getpoint "\n图块插入点:") 1 1 0)

  120.   (princ)  ;静默退出
  121. )

本帖子中包含更多资源

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

x
回复

使用道具 举报

edata
发表于 2014-8-29 23:54:36 | 显示全部楼层
  1. (defun MakeBlock-bb-DXF ()

  3. (if (not (tblsearch "Layer" "总图-坐标"))
  4. (progn
  5. ;;;entmake *** "LAYER" *** object:
  6.   (entmake (list
  7.     '(0 . "LAYER")
  8.     '(100 . "AcDbSymbolTableRecord")
  9.     '(100 . "AcDbLayerTableRecord")
  10.     '(2 . "总图-坐标")
  11.     '(70 . 0)
  12.     '(62 . 3)
  13.     '(6 . "Continuous")
  14.     '(290 . 1)
  15.     '(370 . -3)
  16.       )
  17.     )
  18.   );End Progn
  19. );End IF

  21. (if (not (tblsearch "Block" "bb"))
  22. (progn
  23. ;;;entmake *** "BLOCK" *** object:
  24.   (entmake (list
  25.     '(0 . "BLOCK")
  26.     '(100 . "AcDbEntity")
  27.     '(67 . 0)
  28.     '(8 . "0")
  29.     '(100 . "AcDbBlockBegin")
  30.     '(70 . 0)
  31.     '(10 0.0 0.0 0.0)
  32.     '(2 . "bb")
  33.     '(1 . "")
  34.       )
  35.     )

  37. ;;;entmake *** "LINE" *** object:
  38.   (entmake (list
  39.     '(0 . "LINE")
  40.     '(100 . "AcDbEntity")
  41.     '(67 . 0)
  42.     '(8 . "总图-坐标")
  43.     '(100 . "AcDbLine")
  44.     '(10 31.7819 20.8843 0.0)
  45.     '(11 -31.7819 -20.8843 0.0)
  46.     '(210 0.0 0.0 1.0)
  47.       )
  48.     )

  50. ;;;entmake *** "LINE" *** object:
  51.   (entmake (list
  52.     '(0 . "LINE")
  53.     '(100 . "AcDbEntity")
  54.     '(67 . 0)
  55.     '(8 . "总图-坐标")
  56.     '(100 . "AcDbLine")
  57.     '(10 -31.7819 20.8843 0.0)
  58.     '(11 31.7819 -20.8843 0.0)
  59.     '(210 0.0 0.0 1.0)
  60.       )
  61.     )

  63. ;;;entmake *** "LWPOLYLINE" *** object:
  64.   (entmake (list
  65.     '(0 . "LWPOLYLINE")
  66.     '(100 . "AcDbEntity")
  67.     '(67 . 0)
  68.     '(8 . "总图-坐标")
  69.     '(100 . "AcDbPolyline")
  70.     '(90 . 4)
  71.     '(70 . 1)
  72.     '(43 . 0.0)
  73.     '(38 . 0.0)
  74.     '(39 . 0.0)
  75.     '(10 -31.7819 20.8843)
  76.     '(40 . 0.0)
  77.     '(41 . 0.0)
  78.     '(42 . 0.0)
  79.     '(10 31.7819 20.8843)
  80.     '(40 . 0.0)
  81.     '(41 . 0.0)
  82.     '(42 . 0.0)
  83.     '(10 31.7819 -20.8843)
  84.     '(40 . 0.0)
  85.     '(41 . 0.0)
  86.     '(42 . 0.0)
  87.     '(10 -31.7819 -20.8843)
  88.     '(40 . 0.0)
  89.     '(41 . 0.0)
  90.     '(42 . 0.0)
  91.     '(210 0.0 0.0 1.0)
  92.       )
  93.     )

  95. ;;;entmake *** "ENDBLK" *** object:
  96.   (entmake (list
  97.     '(0 . "ENDBLK")
  98.     '(100 . "AcDbEntity")
  99.     '(100 . "AcDbBlockEnd")
  100.       )
  101.     )

  103.   (entupd (tblobjname "Block" "bb"))
  104.   );End Progn
  105. );End IF

  107.   (princ)  ;静默退出
  108. )

  110. ;$$$$$$$$$$$$
  111. (DEFUN C:ZKaa( )
  112. (SETVAR "CMDECHO" 0)
  113. (SETVAR "OSMODE" 0);关闭捕捉
  114. (MakeBlock-bb-DXF )
  115.   (COMMAND "_INSERT" "bb" (getpoint "\n图块插入点:") 1 1 0)

  117.   (princ)  ;静默退出
  118. )

点评

恕放之生命
谢谢E大的帮忙！  发表于 2014-8-30 08:37

评分

参与人数 1明经币 +1 收起 理由
恕放之生命 + 1 很给力!

查看全部评分

回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-5-24 03:44 , Processed in 0.195850 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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