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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › LISP代码运行后有点小问题，求帮助，谢谢
返回列表 发新帖
查看: 1119|回复: 2

[已解答] LISP代码运行后有点小问题，求帮助，谢谢

[复制链接]
magicboy555
发表于 2014-11-18 17:00:19 | 显示全部楼层 |阅读模式
代码如下，是建立图层、文字样式、标注样式的，但是多建几个文字样式和标注样式就不行了。还有我想加一个打印样式进去，这样一键可以设置好模板，到别人的图里面也不担心了
  2. (DEFUN C:JMB ()
  3.   (COMMAND "LAYER" "M" "轮廓线-粗" "C" "7" "" "")
  4.   (COMMAND "LAYER" "M" "轮廓线-中" "C" "2" "" "")
  5.   (COMMAND "LAYER" "M" "轮廓线-细" "C" "5" "" "")
  6.   (COMMAND "LAYER" "M" "填充" "C" "252" "" "")
  7.   (COMMAND "LAYER" "M" "标注" "C" "3" "" "")
  8.   (COMMAND "LAYER" "M" "文字" "C" "4" "" "")
  9.   (COMMAND "CLAYER" "0")
  10. ;;;接下来建立文字样式   
  11. (entmake (list
  12. '(0 . "STYLE")
  13. '(100 . "AcDbSymbolTableRecord")
  14. '(100 . "AcDbTextStyleTableRecord")
  15. '(2 . "BJ")                      ;样式名
  16. '(70 . 0)                      ;标准标志值
  17. '(40 . 0.0)                      ;预设文字高度
  18. '(41 . 1.0)                      ;字宽比例
  19. '(3 . "gbenor.shx")              ;主字体文件名
  20. '(4 . "gbcbig.shx")))              ;大字体文件名
  21. ;;;接下来建立标注样式
  22. (progn
  23. (command "-DIMSTYLE" "s" "DIMBJ");建立布局标注
  24.     (setvar "DIMDLI" 7.0000) ;尺寸线间距(基线间距)
  25.     (setvar "DIMEXE" 2.0000) ;尺寸界线在尺寸线上(超出尺寸线)
  26.     (setvar "DIMEXO" 2.0000) ;尺寸界线原点偏移
  27.     (setvar "DIMBLK" "_ArchTick") ;箭头块名
  28.     (setvar "DIMBLK1" "_ArchTick") ;第一个箭头块名
  29.     (setvar "DIMBLK2" "_ArchTick") ;第二个箭头块名
  30.     (setvar "DIMLDRBLK" "_DOT") ;引线块名
  31.     (setvar "DIMASZ" 2.0) ;箭头大小
  32.     (setvar "DIMTXSTY" "BJ") ;文字样式
  33.     (setvar "DIMCLRT" 4)  ;标注文字颜色(绿色)
  34.     (setvar "DIMTXT" 2.500) ;文字高度
  35.     (setvar "DIMTAD" 1)   ;文字位于尺寸线上方
  36.     (setvar "DIMJUST" 0)  ;将文字置于尺寸线之上，并在尺寸界线之间置中对正
  37.     (setvar "DIMTXTDIRECTION" 0) ;以从左到右阅读的样式显示标注文字
  38.     (setvar "DIMGAP" 0.8) ;尺寸线和文字的间距
  39.     (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
  40.     (setvar "DIMTMOVE" 2) ;允许标注文字自由移动而不用添加引线
  41.    
  42.     (setvar "DIMSCALE" 0.0) ;将标注缩放到布局(模型作图就修改)

  44.     (setvar "DIMLUNIT" 2) ;线性标注单位格式
  45.     (setvar "DIMDEC" 0)  ;精度
  46.     (setvar "DIMDSEP" ".") ;小数分隔符
  47.     (princ "")
  48.     )
  49. ;-------------------------------------------------------------------
  50. (progn
  51. (command "-DIMSTYLE" "s" "DIM-100");建立比例100标注
  52.     (setvar "DIMDLI" 7.0000) ;尺寸线间距(基线间距)
  53.     (setvar "DIMEXE" 2.0000) ;尺寸界线在尺寸线上(超出尺寸线)
  54.     (setvar "DIMEXO" 2.0000) ;尺寸界线原点偏移
  55.     (setvar "DIMBLK" "_ArchTick") ;箭头块名
  56.     (setvar "DIMBLK1" "_ArchTick") ;第一个箭头块名
  57.     (setvar "DIMBLK2" "_ArchTick") ;第二个箭头块名
  58.     (setvar "DIMLDRBLK" "_DOT") ;引线块名
  59.     (setvar "DIMASZ" 2.0) ;箭头大小
  60.     (setvar "DIMTXSTY" "BJ") ;文字样式
  61.     (setvar "DIMCLRT" 4)  ;标注文字颜色(绿色)
  62.     (setvar "DIMTXT" 2.500) ;文字高度
  63.     (setvar "DIMTAD" 1)   ;文字位于尺寸线上方
  64.     (setvar "DIMJUST" 0)  ;将文字置于尺寸线之上，并在尺寸界线之间置中对正
  65.     (setvar "DIMTXTDIRECTION" 0) ;以从左到右阅读的样式显示标注文字
  66.     (setvar "DIMGAP" 0.8) ;尺寸线和文字的间距
  67.     (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
  68.     (setvar "DIMTMOVE" 2) ;允许标注文字自由移动而不用添加引线
  69.    
  70.     (setvar "DIMSCALE" 100.0) ;将标注缩放到布局(模型作图就修改)

  72.     (setvar "DIMLUNIT" 2) ;线性标注单位格式
  73.     (setvar "DIMDEC" 0)  ;精度
  74.     (setvar "DIMDSEP" ".") ;小数分隔符
  75.     (princ "")
  76.     )   

  78. )
回复

使用道具 举报

ZZXXQQ
发表于 2014-11-18 21:18:46 | 显示全部楼层
注意命令顺序
  2. (defun C:JMB ()
  3.   (command "LAYER" "M" "轮廓线-粗" "C" "7" "" "")
  4.   (command "LAYER" "M" "轮廓线-中" "C" "2" "" "")
  5.   (command "LAYER" "M" "轮廓线-细" "C" "5" "" "")
  6.   (command "LAYER" "M" "填充" "C" "252" "" "")
  7.   (command "LAYER" "M" "标注" "C" "3" "" "")
  8.   (command "LAYER" "M" "文字" "C" "4" "" "")
  9.   (setvar "CLAYER" "0")
  10. ;;;接下来建立文字样式   
  11. (entmake (list
  12. '(0 . "STYLE")
  13. '(100 . "AcDbSymbolTableRecord")
  14. '(100 . "AcDbTextStyleTableRecord")
  15. '(2 . "BJ")                      ;样式名
  16. '(70 . 0)                      ;标准标志值
  17. '(40 . 0.0)                      ;预设文字高度
  18. '(41 . 1.0)                      ;字宽比例
  19. '(3 . "gbenor.shx")              ;主字体文件名
  20. '(4 . "gbcbig.shx")))              ;大字体文件名
  21. ;;;接下来建立标注样式
  22. (progn
  23.   (setvar "DIMDLI" 7.0) ;尺寸线间距(基线间距)
  24.   (setvar "DIMEXE" 2.0) ;尺寸界线在尺寸线上(超出尺寸线)
  25.   (setvar "DIMEXO" 2.0) ;尺寸界线原点偏移
  26.   (setvar "DIMBLK" "_ArchTick") ;箭头块名
  27.   (setvar "DIMBLK1" "_ArchTick") ;第一个箭头块名
  28.   (setvar "DIMBLK2" "_ArchTick") ;第二个箭头块名
  29.   (setvar "DIMLDRBLK" "_DOT") ;引线块名
  30.   (setvar "DIMASZ" 2.0) ;箭头大小
  31.   (setvar "DIMTXSTY" "BJ") ;文字样式
  32.   (setvar "DIMCLRT" 4)  ;标注文字颜色(绿色)
  33.   (setvar "DIMTXT" 2.5) ;文字高度
  34.   (setvar "DIMTAD" 1)   ;文字位于尺寸线上方
  35.   (setvar "DIMJUST" 0)  ;将文字置于尺寸线之上，并在尺寸界线之间置中对正
  36. ;  (setvar "DIMTXTDIRECTION" 0) ;以从左到右阅读的样式显示标注文字
  37.   (setvar "DIMGAP" 0.8) ;尺寸线和文字的间距
  38.   (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
  39.   (setvar "DIMTMOVE" 2) ;允许标注文字自由移动而不用添加引线
  40.   (setvar "DIMSCALE" 0.0) ;将标注缩放到布局(模型作图就修改)
  41.   (setvar "DIMLUNIT" 2) ;线性标注单位格式
  42.   (setvar "DIMDEC" 0)  ;精度
  43.   (setvar "DIMDSEP" ".") ;小数分隔符
  44.   (if (tblsearch "DIMSTYLE" "DIMBJ")
  45.    (command "-DIMSTYLE" "S" "DIMBJ" "Y");建立布局标注
  46.    (command "-DIMSTYLE" "R" "DIMBJ")
  47.   )
  48. )
  49. ;-------------------------------------------------------------------
  50. (progn
  51.   (setvar "DIMDLI" 7.0) ;尺寸线间距(基线间距)
  52.   (setvar "DIMEXE" 2.0) ;尺寸界线在尺寸线上(超出尺寸线)
  53.   (setvar "DIMEXO" 2.0) ;尺寸界线原点偏移
  54.   (setvar "DIMBLK" "_ArchTick") ;箭头块名
  55.   (setvar "DIMBLK1" "_ArchTick") ;第一个箭头块名
  56.   (setvar "DIMBLK2" "_ArchTick") ;第二个箭头块名
  57.   (setvar "DIMLDRBLK" "_DOT") ;引线块名
  58.   (setvar "DIMASZ" 2.0) ;箭头大小
  59.   (setvar "DIMTXSTY" "BJ") ;文字样式
  60.   (setvar "DIMCLRT" 4)  ;标注文字颜色(绿色)
  61.   (setvar "DIMTXT" 2.5) ;文字高度
  62.   (setvar "DIMTAD" 1)   ;文字位于尺寸线上方
  63.   (setvar "DIMJUST" 0)  ;将文字置于尺寸线之上，并在尺寸界线之间置中对正
  64. ;  (setvar "DIMTXTDIRECTION" 0) ;以从左到右阅读的样式显示标注文字
  65.   (setvar "DIMGAP" 0.8) ;尺寸线和文字的间距
  66.   (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
  67.   (setvar "DIMTMOVE" 2) ;允许标注文字自由移动而不用添加引线
  68.   (setvar "DIMSCALE" 100.0) ;将标注缩放到布局(模型作图就修改)
  69.   (setvar "DIMLUNIT" 2) ;线性标注单位格式
  70.   (setvar "DIMDEC" 0)  ;精度
  71.   (setvar "DIMDSEP" ".") ;小数分隔符
  72.   (if (tblsearch "DIMSTYLE" "DIM-100")
  73.    (command "-DIMSTYLE" "S" "DIM-100" "Y")
  74.    (command "-DIMSTYLE" "S" "DIM-100");建立比例100标注
  75.   )
  76. )
  77. (princ)
  78. )
回复 支持 反对

使用道具 举报

magicboy555
 楼主| 发表于 2014-11-18 23:23:12 | 显示全部楼层
ZZXXQQ 发表于 2014-11-18 21:18
注意命令顺序

多谢！虽然有点小问题，但是被我修复了！大概有些懂得这意思了，以后再慢慢完善。附上运行成功的代码
  2. (defun C:JMB ()
  3.   (command "LAYER" "M" "轮廓线-粗" "C" "7" "" "")
  4.   (command "LAYER" "M" "轮廓线-中" "C" "2" "" "")
  5.   (command "LAYER" "M" "轮廓线-细" "C" "5" "" "")
  6.   (command "LAYER" "M" "填充" "C" "252" "" "")
  7.   (command "LAYER" "M" "标注" "C" "3" "" "")
  8.   (command "LAYER" "M" "文字" "C" "4" "" "")
  9.   (setvar "CLAYER" "0")
  10. ;;;接下来建立文字样式   
  11. (entmake (list
  12. '(0 . "STYLE")
  13. '(100 . "AcDbSymbolTableRecord")
  14. '(100 . "AcDbTextStyleTableRecord")
  15. '(2 . "BJ")                      ;样式名
  16. '(70 . 0)                      ;标准标志值
  17. '(40 . 0.0)                      ;预设文字高度
  18. '(41 . 1.0)                      ;字宽比例
  19. '(3 . "gbenor.shx")              ;主字体文件名
  20. '(4 . "gbcbig.shx")))              ;大字体文件名

  22. ;;;接下来建立标注样式
  23. (progn
  24.   (setvar "DIMDLI" 7.0) ;尺寸线间距(基线间距)
  25.   (setvar "DIMEXE" 2.0) ;尺寸界线在尺寸线上(超出尺寸线)
  26.   (setvar "DIMEXO" 2.0) ;尺寸界线原点偏移
  27.   (setvar "DIMBLK" "_ArchTick") ;箭头块名
  28.   (setvar "DIMBLK1" "_ArchTick") ;第一个箭头块名
  29.   (setvar "DIMBLK2" "_ArchTick") ;第二个箭头块名
  30.   (setvar "DIMLDRBLK" "_DOT") ;引线块名
  31.   (setvar "DIMASZ" 2.0) ;箭头大小
  32.   (setvar "DIMTXSTY" "BJ") ;文字样式
  33.   (setvar "DIMCLRT" 4)  ;标注文字颜色(绿色)
  34.   (setvar "DIMTXT" 2.5) ;文字高度
  35.   (setvar "DIMTAD" 1)   ;文字位于尺寸线上方
  36.   (setvar "DIMJUST" 0)  ;将文字置于尺寸线之上，并在尺寸界线之间置中对正
  37.   (setvar "DIMTXTDIRECTION" 0) ;以从左到右阅读的样式显示标注文字
  38.   (setvar "DIMGAP" 0.8) ;尺寸线和文字的间距
  39.   (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
  40.   (setvar "DIMTMOVE" 2) ;允许标注文字自由移动而不用添加引线
  41.   (setvar "DIMSCALE" 0.0) ;将标注缩放到布局(模型作图就修改)
  42.   (setvar "DIMLUNIT" 2) ;线性标注单位格式
  43.   (setvar "DIMDEC" 0)  ;精度
  44.   (setvar "DIMDSEP" ".") ;小数分隔符
  45.   (if (tblsearch "DIMSTYLE" "DIMBJ")
  46.    (command "-DIMSTYLE" "S" "DIMBJ" "Y");建立布局标注
  47.    (command "-DIMSTYLE" "S" "DIMBJ")
  48.   )
  49. )
  50. ;-------------------------------------------------------------------
  51. (progn
  52.   (setvar "DIMDLI" 7.0) ;尺寸线间距(基线间距)
  53.   (setvar "DIMEXE" 2.0) ;尺寸界线在尺寸线上(超出尺寸线)
  54.   (setvar "DIMEXO" 2.0) ;尺寸界线原点偏移
  55.   (setvar "DIMBLK" "_ArchTick") ;箭头块名
  56.   (setvar "DIMBLK1" "_ArchTick") ;第一个箭头块名
  57.   (setvar "DIMBLK2" "_ArchTick") ;第二个箭头块名
  58.   (setvar "DIMLDRBLK" "_DOT") ;引线块名
  59.   (setvar "DIMASZ" 2.0) ;箭头大小
  60.   (setvar "DIMTXSTY" "BJ") ;文字样式
  61.   (setvar "DIMCLRT" 4)  ;标注文字颜色(绿色)
  62.   (setvar "DIMTXT" 2.5) ;文字高度
  63.   (setvar "DIMTAD" 1)   ;文字位于尺寸线上方
  64.   (setvar "DIMJUST" 0)  ;将文字置于尺寸线之上，并在尺寸界线之间置中对正
  65.   (setvar "DIMTXTDIRECTION" 0) ;以从左到右阅读的样式显示标注文字
  66.   (setvar "DIMGAP" 0.8) ;尺寸线和文字的间距
  67.   (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
  68.   (setvar "DIMTMOVE" 2) ;允许标注文字自由移动而不用添加引线
  69.   (setvar "DIMSCALE" 100.0) ;将标注缩放到布局(模型作图就修改)
  70.   (setvar "DIMLUNIT" 2) ;线性标注单位格式
  71.   (setvar "DIMDEC" 0)  ;精度
  72.   (setvar "DIMDSEP" ".") ;小数分隔符
  73.   (if (tblsearch "DIMSTYLE" "DIM-100")
  74.    (command "-DIMSTYLE" "S" "DIM-100" "Y")
  75.    (command "-DIMSTYLE" "S" "DIM-100");建立比例100标注
  76.   )
  77. )
  78. (princ)
  79. )
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-5-23 19:25 , Processed in 0.150183 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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