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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 请问一下这是为什么？
返回列表 发新帖
查看: 929|回复: 4

[已解答] 请问一下这是为什么？

[复制链接]
yfs719
发表于 2013-8-12 08:23 | 显示全部楼层 |阅读模式
本帖最后由 yfs719 于 2013-8-12 08:55 编辑

问题如下：
1.在命令行里面一一输入是正常的。
2.如果把命令用"command"写成一串时，结束命令后，会提示一个"nil"？（命令本身是运行了的。）
如下图:
(上面这个问题已解决。)

新加问题如下：
不好意思，再请教一下，论坛里面有一段关于设定常用填充的lsp.我下载后按结构设计使用习惯改一下，不过不知道为什么图层"hatch"建立及设定颜色都可以，就是改线宽不行，帮忙看一下。谢谢！！
  2. ;;预设常用填充======================
  3. ;;V1.2       明经raimo    2012.07.30
  4. ;;优化代码,去掉拼凑代码重新设计     
  5. ;;增加记忆功能，提高填充的使用方便性
  6. ;;在V1.1的基础上实现点选，与对象选择
  7. ;;并存，并且都可以多选。
  8. ;;非常感谢ZZXXQQ版主的指点与帮助！！
  9. ;;==================================
  10. (defun c:TC (/ opt bl )
  11. (setvar "measurement" 1)     ; 设置公制单位
  12. (setvar "cmdecho" 0)         ; 关闭命令响应
  13. (setq oldcolor (getvar "cecolor"))
  14. (if (not (tblsearch "layer" "HATCH"))
  15. (command "LAYER" "M" "HATCH" "c" "1" "" "lw" "0.05" "" "")
  16. );加载图层HATCH
  17.   (command "layer" "s" "HATCH" "");设定填充图层
  18.   (command "color" "251");设定填充颜色
  19.   (if *num_HType*
  20.   (setq num_HType (getint (strcat "\n选择填充样式  ①█实体 ②砼 ③砼100 ④钢砼 ⑤钢砼100 ⑥/// ⑦//斜线100 ⑧×× ⑨××交叉线100 ⑩金属20 ⑾蜂窝 ⑿砖 ⒀┏ ⒁人字: <" (rtos *num_HType* 2 0) ">")))
  21.   (setq num_HType (getint "\n选择填充样式  ①█实体 ②砼 ③砼100 ④钢砼 ⑤钢砼100 ⑥/// ⑦//斜线100 ⑧×× ⑨××交叉线100 ⑩金属20 ⑾蜂窝 ⑿砖 ⒀┏ ⒁人字: " ))
  22. )
  23. (if
  24.   (or
  25.    (= num_HType 2)
  26.    (= num_HType 4)
  27.    (= num_HType 6)
  28.    (= num_HType 8)
  29.     )
  30.   (setq bl (getint (strcat "\请输入比例: ")));设置比例
  31. )
  32. (if (not num_HType)
  33.   (setq num_HType *num_HType*)
  34.   (setq *num_HType* num_HType)
  35. )
  36. (setq opt num_HType)

  38. (if (< 0 opt 50) (eval (read(strcat "(tianchong" (itoa opt) ")"))));根据选项参数执行填充样式

  40. (if (setq ss (ssget))
  41.   (command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
  42. (progn  ;如果选择集为空，则执行点选命令
  43.   (prompt "\n请拾取填充内部点：\n")
  44.   (command "bhatch" pause)
  45.   (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
  46. ))

  48. (command "color" oldcolor)
  49. (command "layerP")
  50. (princ)
  51. )
  52. (defun tianchong1 ()
  53. (prompt "\n当前样式: ①灰色实体填充100\n")
  54. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  55. (command "bhatch" "p" "solid" "")
  56. )
  57. (defun tianchong2 ()
  58. (prompt "\n当前样式: ②砼\n")
  59. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  60. (command "bhatch" "p" "混凝土" bl "0" "")
  61. )
  62. (defun tianchong3 ()
  63. (prompt "\n当前样式: ③砼100\n")
  64. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  65. (command "bhatch" "p" "混凝土" "100" "0" "")
  66. )
  67. (defun tianchong4 ()
  68. (prompt "\n当前样式: ④钢砼\n")
  69. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  70. (command "bhatch" "p" "钢筋混凝土" bl "0" "")
  71. )
  72. (defun tianchong5 ()
  73. (prompt "\n当前样式: ⑤钢砼100\n")
  74. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  75. (command "bhatch" "p" "钢筋混凝土" "100" "0" "")
  76. )
  77. (defun tianchong6 ()
  78. (prompt "\n当前样式: ⑥斜线\n")
  79. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  80. (command "bhatch" "p" "ANSI31" bl "0" "")
  81. )
  82. (defun tianchong7 ()
  83. (prompt "\n当前样式: ⑦斜线100\n")
  84. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  85. (command "bhatch" "p" "ANSI31" "100" "0" "")
  86. )
  87. (defun tianchong8 ()
  88. (prompt "\n当前样式: ⑧交叉线\n")
  89. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  90. (command "bhatch" "p" "ANSI37" bl "0" "")
  91. )
  92. (defun tianchong9 ()
  93. (prompt "\n当前样式: ⑨交叉线\n")
  94. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  95. (command "bhatch" "p" "ANSI37" "100" "0" "")
  96. )
  97. (defun tianchong10 ()
  98. (prompt "\n当前样式: ⑩金属20\n")
  99. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  100. (command "bhatch" "p" "ANSI32" "20" "0" "")
  101. )
  102. (defun tianchong11 ()
  103. (prompt "\n当前样式: ⑾蜂窝\n")
  104. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  105. (command "bhatch" "p" "HONEY" "100" "0" "")
  106. )
  107. (defun tianchong12 ()
  108. (prompt "\n当前样式: ⑿砖\n")
  109. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  110. (command "bhatch" "p" "AR-B816" "100" "0" "")
  111. )
  112. (defun tianchong13 ()
  113. (prompt "\n当前样式: ⒀┏┏\n")
  114. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  115. (command "bhatch" "p" "ANGLE" "100" "0" "")
  116. )
  117. (defun tianchong14 ()
  118. (prompt "\n当前样式: ⒁人字\n")
  119. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  120. (command "bhatch" "p" "AR-HBONE" "100" "0" "")
  121. )
  122. (prompt "\n***预设常用填充***  命令:TC")
  123. (princ)

本帖子中包含更多资源

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

x

点评

ZZXXQQ
改什么线宽？  发表于 2013-8-12 22:47
回复

使用道具 举报

nzl1116
发表于 2013-8-12 08:25 | 显示全部楼层
本来就返回nil，看command函数帮助
回复 支持 反对

使用道具 举报

yfs719
 楼主| 发表于 2013-8-12 08:26 | 显示全部楼层
哦哦.                                      
回复 支持 反对

使用道具 举报

yfs719
 楼主| 发表于 2013-8-12 08:32 | 显示全部楼层
本帖最后由 yfs719 于 2013-8-12 08:53 编辑

不好意思，再请教一下，论坛里面有一段关于设定常用填充的lsp.我下载后按结构设计使用习惯改一下，不过不知道为什么图层"hatch"建立及设定颜色都可以，就是改线宽不行，帮忙看一下。谢谢！！
(已放到一楼了。)
  2. ;;预设常用填充======================
  3. ;;V1.2       明经raimo    2012.07.30
  4. ;;优化代码,去掉拼凑代码重新设计     
  5. ;;增加记忆功能，提高填充的使用方便性
  6. ;;在V1.1的基础上实现点选，与对象选择
  7. ;;并存，并且都可以多选。
  8. ;;非常感谢ZZXXQQ版主的指点与帮助！！
  9. ;;==================================
  10. (defun c:TC (/ opt bl )
  11. (setvar "measurement" 1)     ; 设置公制单位
  12. (setvar "cmdecho" 0)         ; 关闭命令响应
  13. (setq oldcolor (getvar "cecolor"))
  14. (if (not (tblsearch "layer" "HATCH"))
  15. (command "LAYER" "M" "HATCH" "c" "1" "" "lw" "0.05" "" "")
  16. );加载图层HATCH
  17.   (command "layer" "s" "HATCH" "");设定填充图层
  18.   (command "color" "251");设定填充颜色
  19.   (if *num_HType*
  20.   (setq num_HType (getint (strcat "\n选择填充样式  ①█实体 ②砼 ③砼100 ④钢砼 ⑤钢砼100 ⑥/// ⑦//斜线100 ⑧×× ⑨××交叉线100 ⑩金属20 ⑾蜂窝 ⑿砖 ⒀┏ ⒁人字: <" (rtos *num_HType* 2 0) ">")))
  21.   (setq num_HType (getint "\n选择填充样式  ①█实体 ②砼 ③砼100 ④钢砼 ⑤钢砼100 ⑥/// ⑦//斜线100 ⑧×× ⑨××交叉线100 ⑩金属20 ⑾蜂窝 ⑿砖 ⒀┏ ⒁人字: " ))
  22. )
  23. (if
  24.   (or
  25.    (= num_HType 2)
  26.    (= num_HType 4)
  27.    (= num_HType 6)
  28.    (= num_HType 8)
  29.     )
  30.   (setq bl (getint (strcat "\请输入比例: ")));设置比例
  31. )
  32. (if (not num_HType)
  33.   (setq num_HType *num_HType*)
  34.   (setq *num_HType* num_HType)
  35. )
  36. (setq opt num_HType)

  38. (if (< 0 opt 50) (eval (read(strcat "(tianchong" (itoa opt) ")"))));根据选项参数执行填充样式

  40. (if (setq ss (ssget))
  41.   (command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
  42. (progn  ;如果选择集为空，则执行点选命令
  43.   (prompt "\n请拾取填充内部点：\n")
  44.   (command "bhatch" pause)
  45.   (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
  46. ))

  48. (command "color" oldcolor)
  49. (command "layerP")
  50. (princ)
  51. )
  52. (defun tianchong1 ()
  53. (prompt "\n当前样式: ①灰色实体填充100\n")
  54. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  55. (command "bhatch" "p" "solid" "")
  56. )
  57. (defun tianchong2 ()
  58. (prompt "\n当前样式: ②砼\n")
  59. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  60. (command "bhatch" "p" "混凝土" bl "0" "")
  61. )
  62. (defun tianchong3 ()
  63. (prompt "\n当前样式: ③砼100\n")
  64. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  65. (command "bhatch" "p" "混凝土" "100" "0" "")
  66. )
  67. (defun tianchong4 ()
  68. (prompt "\n当前样式: ④钢砼\n")
  69. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  70. (command "bhatch" "p" "钢筋混凝土" bl "0" "")
  71. )
  72. (defun tianchong5 ()
  73. (prompt "\n当前样式: ⑤钢砼100\n")
  74. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  75. (command "bhatch" "p" "钢筋混凝土" "100" "0" "")
  76. )
  77. (defun tianchong6 ()
  78. (prompt "\n当前样式: ⑥斜线\n")
  79. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  80. (command "bhatch" "p" "ANSI31" bl "0" "")
  81. )
  82. (defun tianchong7 ()
  83. (prompt "\n当前样式: ⑦斜线100\n")
  84. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  85. (command "bhatch" "p" "ANSI31" "100" "0" "")
  86. )
  87. (defun tianchong8 ()
  88. (prompt "\n当前样式: ⑧交叉线\n")
  89. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  90. (command "bhatch" "p" "ANSI37" bl "0" "")
  91. )
  92. (defun tianchong9 ()
  93. (prompt "\n当前样式: ⑨交叉线\n")
  94. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  95. (command "bhatch" "p" "ANSI37" "100" "0" "")
  96. )
  97. (defun tianchong10 ()
  98. (prompt "\n当前样式: ⑩金属20\n")
  99. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  100. (command "bhatch" "p" "ANSI32" "20" "0" "")
  101. )
  102. (defun tianchong11 ()
  103. (prompt "\n当前样式: ⑾蜂窝\n")
  104. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  105. (command "bhatch" "p" "HONEY" "100" "0" "")
  106. )
  107. (defun tianchong12 ()
  108. (prompt "\n当前样式: ⑿砖\n")
  109. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  110. (command "bhatch" "p" "AR-B816" "100" "0" "")
  111. )
  112. (defun tianchong13 ()
  113. (prompt "\n当前样式: ⒀┏┏\n")
  114. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  115. (command "bhatch" "p" "ANGLE" "100" "0" "")
  116. )
  117. (defun tianchong14 ()
  118. (prompt "\n当前样式: ⒁人字\n")
  119. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
  120. (command "bhatch" "p" "AR-HBONE" "100" "0" "")
  121. )
  122. (prompt "\n***预设常用填充***  命令:TC")
  123. (princ)
回复 支持 反对

使用道具 举报

yfs719
 楼主| 发表于 2013-8-12 18:00 | 显示全部楼层
为什么我回复不了？
各位有空看一下。
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-20 00:15 , Processed in 0.239491 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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