明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1221|回复: 4

[提问] 帮我看看这个效果是怎么实现的呢 ?我自己写的代码不知道哪里有问题》

[复制链接]
发表于 2014-11-21 00:14 | 显示全部楼层 |阅读模式
  1. (defun c:xxxx()
  2.   (func1)
  3.   (func2)
  4.   (func3)
  5.   (func4)
  6.   )

  7. (defun func1()
  8.   (if (not (tblsearch "layer" "S-BEAM-标注箍筋)"))
  9.     (command "layer" "m" "S-BEAM-标注箍筋" "c" 135 "l" "CONTINUOUS" "")
  10.     (command "layer" "s" "S-BEAM-标注箍筋" "")
  11.     (prin1)
  12.   )
  13. )

  14. (defun func2()
  15.     (if (not (tblsearch "dimstyle" "标注箍筋"))
  16.        (command "dimstyle" "s" "标注箍筋")
  17.        (command "dimstyle" "v" "标注箍筋")
  18.     )
  19. )

  20. (defun func3()
  21.     (setvar "dimASO" "关")
  22.     (setvar "dimSTYLE" "TSSD_100_100")
  23.     (setvar "dimADEC" 0)
  24.     (setvar "dimALT" 关)
  25.     (setvar "dimALTD" 2)
  26.     (setvar "dimALTF" 25.40)
  27.     (setvar "dimALTRND" 0.00)
  28.     (setvar "dimALTTD" 2)
  29.     (setvar "dimALTTZ" 0)
  30.     (setvar "dimALTU" 2)
  31.     (setvar "dimALTZ" 0)
  32.     (setvar "dimAPOST" "")
  33.     (setvar "dimASZ" 100.00)
  34.     (setvar "dimATFIT" 3)
  35.     (setvar "dimAUNIT" 0)
  36.     (setvar "dimAZIN" 0)
  37.     (setvar "dimBLK" ArchTick)
  38.     (setvar "dimBLK1" ArchTick)
  39.     (setvar "dimBLK2" ArchTick)
  40.     (setvar "dimCEN" 0.00)
  41.     (setvar "dimCLRD" 0)
  42.     (setvar "dimCLRE" 0)
  43.     (setvar "dimDEC" 0)
  44.     (setvar "dimDLE" 100.00)
  45.     (setvar "dimDLI" 0.00)
  46.     (setvar "dimDSEP" .)
  47.     (setvar "dimEXE" 100.00)
  48.     (setvar "dimEXO" 250.00)
  49.     (setvar "dimFRAC" 0)
  50.     (setvar "dimGAP" 30.00)
  51.     (setvar "dimJUST" 0)
  52.     (setvar "dimLDRBLK" 实心闭合)
  53.     (setvar "dimLFAC" 1.00)
  54.     (setvar "dimLIM" 关)
  55.     (setvar "dimLUNIT" 2)
  56.     (setvar "dimLWD" -2)
  57.     (setvar "dimLWE" -2)
  58.     (setvar "dimPOST" "")
  59.     (setvar "dimRND" 0.00)
  60.     (setvar "dimSAH" 关)
  61.     (setvar "dimSCALE" 1.00)
  62.     (setvar "dimSD1" 关)
  63.     (setvar "dimSD2" 关)
  64.     (setvar "dimSE1" 关)
  65.     (setvar "dimSE2" 关)
  66.     (setvar "dimSOXD" 关)
  67.     (setvar "dimTAD" 1)
  68.     (setvar "dimTDEC" 0)
  69.     (setvar "dimTFAC" 1.00)
  70.     (setvar "dimTIH" 关)
  71.     (setvar "dimTIX" 开)
  72.     (setvar "dimTM" 0.00)
  73.     (setvar "dimTMOVE" 2)
  74.     (setvar "dimTOFL" 开)
  75.     (setvar "dimTOH" 关)
  76.     (setvar "dimTOL" 关)
  77.     (setvar "dimTOLJ" 1)
  78.     (setvar "dimTP" 0.00)
  79.     (setvar "dimTSZ" 0.00)
  80.     (setvar "dimTVP" 0.00)
  81.     (setvar "dimTXSTY" TSSD_dimension)
  82.     (setvar "dimTXT" 350.00)
  83.     (setvar "dimTZIN" 0)
  84.     (setvar "dimUPT" 关)
  85.     (setvar "dimZIN" 0)
  86.   )

  87. (defun func4()
  88.   (command "dimlinear" pause pause "t" "\\u+00828@120(2)" pause)
  89.   )

本帖子中包含更多资源

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

x
发表于 2014-11-21 08:09 | 显示全部楼层
  1. (defun func3()
  2.   (setvar "dimASO" 0)
  3.   (setvar "dimSTYLE" "TSSD_100_100")
  4.   (setvar "dimADEC" 0)
  5.   (setvar "dimALT" 0)
  6.   (setvar "dimALTD" 2)
  7.   (setvar "dimALTF" 25.4)
  8.   (setvar "dimALTRND" 0.0)
  9.   (setvar "dimALTTD" 2)
  10.   (setvar "dimALTTZ" 0)
  11.   (setvar "dimALTU" 2)
  12.   (setvar "dimALTZ" 0)
  13.   (setvar "dimAPOST" "")
  14.   (setvar "dimASZ" 100.0)
  15.   (setvar "dimATFIT" 3)
  16.   (setvar "dimAUNIT" 0)
  17.   (setvar "dimAZIN" 0)
  18.   (setvar "dimBLK" "_ARCHTICK")
  19.   (setvar "dimBLK1" "_ARCHTICK")
  20.   (setvar "dimBLK2" "_ARCHTICK")
  21.   (setvar "dimCEN" 0.00)
  22.   (setvar "dimCLRD" 0)
  23.   (setvar "dimCLRE" 0)
  24.   (setvar "dimDEC" 0)
  25.   (setvar "dimDLE" 100.00)
  26.   (setvar "dimDLI" 0.00)
  27.   (setvar "dimDSEP" .)
  28.   (setvar "dimEXE" 100.00)
  29.   (setvar "dimEXO" 250.00)
  30.   (setvar "dimFRAC" 0)
  31.   (setvar "dimGAP" 30.00)
  32.   (setvar "dimJUST" 0)
  33.   (setvar "dimLDRBLK" "")
  34.   (setvar "dimLFAC" 1.00)
  35.   (setvar "dimLIM" 0)
  36.   (setvar "dimLUNIT" 2)
  37.   (setvar "dimLWD" -2)
  38.   (setvar "dimLWE" -2)
  39.   (setvar "dimPOST" "")
  40.   (setvar "dimRND" 0.00)
  41.   (setvar "dimSAH" 0)
  42.   (setvar "dimSCALE" 1.00)
  43.   (setvar "dimSD1" 0)
  44.   (setvar "dimSD2" 0)
  45.   (setvar "dimSE1" 0)
  46.   (setvar "dimSE2" 0)
  47.   (setvar "dimSOXD" 0)
  48.   (setvar "dimTAD" 1)
  49.   (setvar "dimTDEC" 0)
  50.   (setvar "dimTFAC" 1.00)
  51.   (setvar "dimTIH" 0)
  52.   (setvar "dimTIX" 1)
  53.   (setvar "dimTM" 0.00)
  54.   (setvar "dimTMOVE" 2)
  55.   (setvar "dimTOFL" 1)
  56.   (setvar "dimTOH" 0)
  57.   (setvar "dimTOL" 0)
  58.   (setvar "dimTOLJ" 1)
  59.   (setvar "dimTP" 0.00)
  60.   (setvar "dimTSZ" 0.00)
  61.   (setvar "dimTVP" 0.00)
  62.   (setvar "dimTXSTY" "TSSD_dimension")
  63.   (setvar "dimTXT" 350.00)
  64.   (setvar "dimTZIN" 0)
  65.   (setvar "dimUPT" 0)
  66.   (setvar "dimZIN" 0)
  67. )
 楼主| 发表于 2014-11-21 13:15 | 显示全部楼层
ZZXXQQ 发表于 2014-11-21 08:09

按照你说的这个改了,但是输入命令就直接退出了,没有提示是未知命令,C:\Documents and Settings\Administrator\桌面\11111111

本帖子中包含更多资源

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

x

点评

为什么是没有提示?不明白。  发表于 2014-11-21 20:23
发表于 2014-11-22 11:21 | 显示全部楼层

本帖子中包含更多资源

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

x
 楼主| 发表于 2014-11-24 13:13 | 显示全部楼层
bingshuier 发表于 2014-11-21 13:15
按照你说的这个改了,但是输入命令就直接退出了,没有提示是未知命令,

这是这种情况哈  不知道哪里有问题呢

本帖子中包含更多资源

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

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

本版积分规则

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

GMT+8, 2024-3-29 05:45 , Processed in 0.278360 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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