toolbar工具栏加载后，为何不能全部调出来？

尘缘一生 · 发表于 2018-5-30 17:16:43

本帖最后由尘缘一生于 2018-5-31 23:52 编辑

自己写了LISP创建工具栏菜单组代码，在AutoCAD2014版下加载，工具栏不能全部调出，大家分析原因在哪？就是下面几句，只有2句奏效：

(if (menugroup "三领工具栏") ; 若已加载三领工具栏
(progn
(command "toolbar" "SL-绘制" "s" ) ; 显示工具栏
(command "toolbar" "SL-钢筋" "s" )
(command "toolbar" "SL-查询" "s" )
(command "toolbar" "SL-编辑" "s" )
(command "toolbar" "SL-常用" "s" )
(command "toolbar" "SL-文件" "s" )
(command "toolbar" "SL-缩放" "s" )
(princ)
)
)

程序代码如下：

;;判断【三领外挂工具栏】菜单是否加载，没有则创建并加载之
(defun create_toolbar (/ file lst x)
(if (null (menugroup "三领工具栏")) ; 判断cad是否加载三领工具栏
(progn ; 如果没加载，则自动执行下面程序
;;;;;(alert "\n程序自动创建\"三领工具栏\"，请稍后")
(setq file (open "D:/三领外挂/三领工具栏.mnu" "W")) ; 在cad搜索目录创建一个菜单mnu文件,写状态打开
(foreach x '(
"***menugroup=三领工具栏"
"***toolbars"
"**绘制"
"[_toolbar(\"SL-绘制\", _floating, _show, 3, 97, 21)]"
"[_button(\"直线 line \", line16, line16)]^c^c_line "
"[_button(\"云线 yx\", yx_16, yx_16)]^c^cyx "
"[_button(\"线045\", icon1322, icon1322)]*^c^cpline;\\w;(* (getvar \"DIMSCALE\") 0.45);(* (getvar \"DIMSCALE\") 0.45) "
"[_button(\"线070\", icon0333, icon0333)]*^c^cpline;\\w;(* (getvar \"DIMSCALE\") 0.7);(* (getvar \"DIMSCALE\") 0.7)"
"[_button(\"折线 polyline\", icon3035, icon3035)]^c^c_pline;\\w;0;0 "
"[_button(\"样条曲线 spline\", icon0153, icon0153)]^c^c_spline"
"[_button(\"平行线 pxx\", icon9894, icon9894)]^c^cpxx "
"[_button(\"选线写字 suan-xz\", icon9895, icon9895)]^c^csuan-xz "
"[_button(\"水平字符 xzp\", icon8716, icon8716)]^c^cxzp"
"[_button(\"垂直字符 xzc\", icon9718, icon9718)]^c^cxzc "
"[_button(\"水平空心字符 x-xzp\", icon7035, icon7035)]^c^cxxzp "
"[_button(\"垂直空心字符 xxzc\", icon9264, icon9264)]^c^cxxzc "
"[_button(\"写汉字 xhz\", rcda9358, rcda9358)]^c^cxhz"
"[_button(\"写5号汉字x-hz\", rcda9169, rcda9169)]^c^cx-hz "
"[_button(\"两点圆弧 arc\", arc2p, arc2p)]^C^C2parc"
"[_button(\"智能中心线 ce\", zxx, zxx)]^c^cce"
"[_button(\"圆圆心、半径 circle\",icon1150, icon1150)]^c^c_circle "
"[_button(\"椭圆中心点 ellipse\", ellipse16, ellipse16)]^c^c_ellipse"
"[_button(\"填充圆 tc-point\", icon3811, icon3811)]^c^ctcyx "
"[_button(\"钢筋点shi-point\", icon8703, icon8703)]^c^cgangjind "
"[_button(\"点 point\", icon8723, icon8723)]*^c^c_point "
"[_button(\"细线矩形 00jx\", icon7711, icon7711)]^c^c_rectang "
"[_button(\"钢筋框 045jx\", icon8253, icon8253)]^c^cgjk "
"[_button(\"涂黑 th\", icon5141, icon5141)]^c^cth "
"[_button(\"填充矩形 tcjx\", icon6868, icon6868)]^c^ctcjx "
"[_button(\"椭圆孔 slot\", tyk, tyk)]^c^cslot "
"[--]"
"[_button(\"剖面号 pmh\", icon4771, icon4771)]^c^cpmhao "
"[_button(\"剖切符 pq\", xtsy, xtsy)]^c^cpq "
"[_button(\"现场焊 xth\", xch, xch)]^c^cxth "
"[_button(\"非现场焊 fxth\", fxch, fxch)]^c^cfxth "
"[_button(\"3点焊缝 3phf \", icon8636, icon8636)]^c^c3phf "
"[_button(\"箭头 jian tou\", icon1538, icon1538)]^c^cjt "
"[_button(\"对称符 dui chen\", duic, duic)]^c^cduichen "
"[_button(\"折断线 zdx\", icon1726, icon1726)]^c^czdx "
"[_button(\"双折断线 zdx1\", shuang-jx, shuang-jx)]^c^czdx1 "
"[_button(\"圆柱截断线 syp\", zhujd, zhujd)]^c^csyp "
"[_button(\"左标高 l-bgf\", icon1842, icon1842)]^c^cl-bgf "
"[_button(\"右标高 r-bgf\", icon5447, icon5447)]^c^cr-bgf "
"[_button(\"加轴线号 zhx-hao\", icon1869, icon1869)]^c^czhux-hao "
"[_button(\"详图号 xthao\", rcda5705, rcda5705)]^c^cxthao "
"[--]"
"[_button(\"填充 hatch\", icon7644, icon7644)]^c^c_bhatch "
"[_button(\"墙线填充 tc-qx\", icon7673, icon7673)]^c^ctcqx "
"[_button(\"混凝土填充 tc-hnt\", icon4664, icon4664)]^c^ctchnt "
"[_button(\"填充轻材 tcqc\", rcda6334, rcda6334)]^c^ctcqc "
"[_button(\"继承填充 jctc\", laywlk16, laywlk16)]^c^cjctc "
"[_button(\"动态填充比例\", icon6541, icon6541)]^c^ctt "
"[--]"
"[_button(\"平行线间距 ll\", icon3430, icon3430)]^c^cll "
"[_button(\"点点标注 dd-dim\", rcda9718, rcda9718)]^c^cdd-dim "
"[_button(\"选线标注 ali-dim\", al-dim, al-dim)]^c^cali-dim "
"[_button(\"尺寸界线 ccjx\", icon5667, icon5667)]^c^cccjx-h "
"[_button(\"弧长标注 hu\", rcda9961, rcdat9961)]^c^chu "
"[_button(\"引线标注 yxbz\", rcda4827, rcda4827)]^c^cyxbz "
"[_button(\"坐标标注 zb\", rcda2382, rcda2382)]^c^czb "
"**钢筋"
"[_toolbar(\"SL-钢筋\", _floating, _show, 963, 130, 21)]"
"[_button(\"门钢构件表\", mengang, mengang)]^c^cmggl "
"[_button(\"钢构件截面特征\", jmtz, jmtz)]^c^c(startapp \"d://三领外挂//实用程序//型钢截面特性查询及计算工具.exe\")"
"[_button(\"选筋表\", xjb, xjb)]^c^c(startapp \"d://三领外挂//实用程序//TSSD2010选筋表.exe\")"
"[_button(\"画板钢筋 bj\", rcda7421, rcda7421)]^c^cbj "
"[_button(\"画板正筋 ban-zj\", icon6299, icon6299)]^c^cban-zj "
"[_button(\"画板负筋 ban-fj\", icon9912, icon9912)]^c^cban-fj "
"[_button(\"改写箍筋\", gujin, gujin)]^c^cgujin "
"[_button(\"改写1根3级\", d1-3, d1-3)]^c^c1-3 "
"[_button(\"改写2根3级\", d2-3, d2-3)]^c^c2-3 "
"[_button(\"改写3根3级\", d3-3, d3-3)]^c^c3-3 "
"[_button(\"改写4根3级\", d4-3, d4-3)]^c^c4-3 "
"**查询"
"[_toolbar(\"SL-查询\", _floating, _show, 937, 461, 6)]"
"[_button(\"列表显示\", list_16, list_16)]^c^cus-list "
"[_button(\"查找、替换\", icon3931, icon3931)]^c^cfid "
"[_button(\"查小于定字高的汉字\", chahz1, chahz1)]^c^cchahz "
"[_button(\"面积\", mianji, mianji)]^c^c_area "
"[_button(\"显示实体dxf码\", icon4084, icon4084)]^c^cprintdxf "
"[_button(\"距离\", juli_16, juli_16)]'_dist "
"[_button(\"标出型心\", rcda2391, rcda2391)]^c^ccr "
"**编辑"
"[_toolbar(\"SL-编辑\", _floating, _show, 963, 130, 21)]"
"[_button(\"删除 erase\", icon7421, icon7421)]*^c^c_erase si auto "
"[_button(\"按层删除 ly-erase\", icon2382, icon2382)]^c^cdellayer "
"[_button(\"oops!\", icon8909, icon8909)]^c^c_oops "
"[_button(\"剪切 trim\", icon7529, icon7529)]^c^c_trim "
"[_button(\"点移dmove\", icon6827, icon6827)]*^c^cmove;\\;(nth 1(grread 5)) "
"[_button(\"选移 ss-move\", icon9961, icon9961)]^c^csmove "
"[_button(\"定距移 move disp\", icon2929, icon2929)]^c^cpy "
"[--]"
"[_button(\"点拷贝 d-copy\", icon5705, icon5705)]*^c^ccopy;\\;(nth 1(grread 5)) "
"[_button(\"多点拷贝 copy m\", icon8145, icon8145)]^c^ccopym "
"[_button(\"选拷贝ss-copy\", icon3281, icon3281)]^c^cscopy "
"[_button(\"定距拷贝 copy disp\", icon4833, icon4833)]^c^cpyfz "
"[_button(\"偏移\", icon6308, icon6308)]^c^c_offset "
"[_button(\"双向延伸 extend\", icon0778, icon0778)]^c^cys "
"[_button(\"拉伸 stretch\", icon1323, icon1323)]*^c^c_stretch c "
"[_button(\"定值改变实体比例 num-sc\", icon0491, icon0491)]^c^cnum-sc "
"[_button(\"倒角chamfer\", icon2859, icon2859)]^c^c_chamfer "
"[_button(\"圆角fillet\", yuanjiao, yuanjiao)]^c^c_fillet "
"[_button(\"旋转ang-rot\" icon2995, icon2995)]^c^cang-rot "
"[_button(\"【文字或物体】动态对齐于曲线 x-rot-mov\", icon2082, icon2082)]^c^c(if (null c:x-rot-mov )(load \"x-rot-mov.vlx\"));x-rot-mov "
"[_button(\"实体旋转平行于直线 x-rotate\", icon1115, icon1115)]^c^cx-rotate "
"[_button(\"按图层改线宽与线型 c-gx\", icon0292, icon0292)]^c^cc-gx "
"[_button(\"分解-explode\", icon8397, icon8397)]^c^c_explode "
"[_button(\"分解pl-explode\", icon5350, icon5350)]^c^cexpline "
"[_button(\"改线宽为 0 gx00\", icon1942, icon1942)]^c^cgx00 "
"[_button(\"改线宽为 0.70 gx070\", icon0333, icon0333)]^c^cgx070 "
"[_button(\"改线宽为 0.45 gx045\", icon1322, icon1322)]^c^cgx045 "
"[_button(\"线弧圆宽度修改\", rcda6962, rcda6962)]^c^cpn1 "
"[_button(\"连线、弧、多段线\", lianxian, lianxian)]^c^cjf "
"[_button(\"编辑多段线\", bjddx, bjddx)]^c^c_pedit "
"[_button(\"水平镜像且移动定位，原图删除 h-mir-mv\", icon3805, icon3805)]^c^ch-mr-mv "
"[_button(\"垂直镜像且移动定位，原图删除v-mir-mv\", icon5890, icon5890)]^c^cv-mr-mv "
"[_button(\"水平镜像且移动定位，原图不删除h-mr-mv-n\", icon5537, icon5537)]^c^ch-mr-mv-n "
"[_button(\"垂直镜像且移动定位，原图不删除v-mr-mv-n\", icon6118, icon6118)]^c^cv-mr-mv-n "
"[_button(\"以直线镜像 j-mirror\", icon2704, icon2704)]^c^cj-mirror "
"[_button(\"阵列\", zhenlie_16, zhenlie_16)]^c^c_array "
"[_button(\"两点打断\", icon4370, icon4370)]*^c^c_break \\_f "
"[_button(\"改为虚线 ch-cxx\", icon2391, icon2391)]^c^cch-cxx "
"[_button(\"改为实线ch-sx\", icon0153, icon0153)]^c^cch-csx "
"[_button(\"改为点划线 ch-cl\", icon3902, icon3902)]^c^cch-cl "
"[_button(\"改为轴线 ch-czx\", icon4604, icon4604)]^c^cch-czx "
"[_button(\"动态线型比例\", dtxx_16, dtxx_16)]^c^cdt-xx "
"[_button(\"改成-虚体字\", rcda1478, rcda1478)]^c^cch-xz "
"[_button(\"改成-实体字\", gstz, gstz)]^c^cch-sz "
"[_button(\"动态填充比例\", icon6541, icon6541)]^c^ctt "
"**常用"
"[_toolbar(\"SL-常用\", _top, _show, 0, 0, 1)] "
"[--]"
"[_button(\"炸开清理全图\", icon9741, icon9741)]^c^ct-explode "
"[_button(\"删除重复线\", trmblk16, trmblk16)]^c^cduprem "
"[_button(\"1,1,0插入图块 insert;1;1;0\", icon2662, icon2662)]^c^cinsert "
"[_button(\"选取图块插入点 insbase\", 4mi_16, 4mi_16)]^c^cinsbase "
"[_button(\"设计中心\", rcda6500, rcda6500)]$m=$(if,$(and,$(getvar,adcstate),1),'_adcclose,'_adcenter) "
"[--]"
"[_button(\"删除及合并图层\", rcda, rcda)]^c^c(if (null c:sstc )(load \"sstc.vlx\"));sstc "
"[_button(\"将对象的图层置为当前\", dqc_16, dqc_16)]^c^c_ai_molc "
"[_button(\"图层特性管理器\", tcgl_16, tcgl_16)]'_layer "
"[--]"
"[_control(_layer)]"
"[--]"
"[_button(\"按色分层\", d2, d2)]^c^cas-c "
"[_button(\"全图-颜色随层\", d3, d3)]^c^csc-zd "
"[_button(\"选择-颜色随层\", d1, d1)]^c^csc-x "
"[_button(\"色变\", wzzk, wzzk)]^c^c(if (null c:sb )(load \"sbv10.vlx\"));sb "
"[--]"
"[_button(\"match properties\", icon2209, icon2209)]'_matchprop "
"[_button(\"ss-cht\", icon5724, icon5724)]^c^cch-text "
"[_button(\"edit text\", icon2648, icon2648)]^c^cdd-cht "
"[_button(\"chtext\", icon3548, icon3548)]^c^cchgtext "
"[_button(\"改数字高\", icon1101, icon1101)]^c^cch-sz-hi "
"[_button(\"改汉字高\", icon4393, icon4393)]^c^cch-hz-hi "
"[_button(\"动态文字\", dtwz, dtwz)]^c^cmacedit "
"[_button(\"屏幕改字\", rcda3902, rcda3902)]^c^c(if (null c:pmgz )(load \"pmgz.vlx\"));pmgz "
"[_button(\"插入特殊符号\", icon1621, icon1621)]^c^ccrfh "
"[_button(\"文字炸开\", icon6729, icon6729)]^c^cexpzi "
"[_button(\"炸字成线\", zha-z-xian, zha-z-xian)]^c^czhazxian "
"[_button(\"字符合并zfhb\", zfhb, zfhb)]^c^czfhb "
"[--]"
"[_button(\"求和\", icon4626, icon4626)]^c^cqiuhe "
"[_button(\"求平均值\", pjz, pjz)]^c^cpjz "
"[_button(\"求积\", qiuji, qiuji)]^c^c_qiuji "
"[_button(\"线长度统计\", adline, adline)]^c^cad "
"[--]"
"[_button(\"打印预览\", icon4583, icon4583)]^c^c_preview "
"[_button(\"页面设置\", ymsz, ymsz)]^c^c_pagesetup "
"[_button(\"批量打印\", bdyplot, bdyplot)]^c^c(if (null c:BatchPlot-v3.6 )(load \"BatchPlot-v3.6.vlx\"));bplot "
"[_button(\"打印\", icon5573, icon5573)]^c^c_plot "
"[_button(\"计算器\", d41, d41)]^c^c(startapp \"d://三领外挂//实用程序//calcplus.exe\") "
"**文件"
"[_toolbar(\"SL-文件\", _floating, _show, 57, 97, 19)] "
"[_button(\"设置绘图\", icon2623, icon2623)]^c^chtbl "
"[_button(\"按1:1绘图\", bl1-1, bl1-1)]^c^c(setvar \"DIMSCALE\" 100) "
"[_button(\"按1:100绘图\", bl1-100, bl1-100)]^c^c(setvar \"DIMSCALE\" 1) "
"[_button(\"cancel\", icon8756, icon8756)]^c^c "
"[_button(\"new\", icon1840, icon1840)]^c^c_new "
"[_button(\"limtoext\", icon2554, icon2554)]^c^climtoext "
"[--]"
"[_button(\"打开\", cj_open, cj_open)]^c^c_open "
"[_button(\"保存\", cj_save, cj_save)]^c^c_qsave "
"[_button(\"另存为\", icon2757, icon2757)]^c^c_saveas "
"[_button(\"局部存盘\", jbcp, jbcp)]^c^c_wblock "
"[_button(\"quit\", icon2316, icon2316)]^c^c_quit "
"[_button(\"end\", icon0037, icon0037)]^c^c_end "
"[--]"
"[_button(\"cut\", icon5006, icon5006)]^c^c_cutclip "
"[_button(\"copy to clipboard\", icon9629, icon9629)]^c^c_copyclip "
"[_button(\"paste\", icon3094, icon3094)]^c^c_pasteclip "
"[_button(\"paste\", icon7446, icon7446)]^c^cpasteblock "
"[--]"
"[_button(\"放弃\", icon3655, icon3655)]_u "
"[_button(\"重做\", icon4767, icon4767)]^c^c_mredo 1 "
"[_button(\"文字样式批量修改\", c_texedi, c_texedi)]^c^c(if (null c:cs )(load \"csstyle.vlx\"));cs "
"[_button(\"修改乱码,炸开mtext,text统一左定位\", exp_zq, exp_zq)]^c^cfs "
"[_button(\"整图缩放\", rcda9895, rcda9895)]^c^csc-t "
"[_button(\"选项\", rcda1942, rcda1942)]^c^c_options "
"[_button(\"autolisp 加载\", rcda2995, rcda2995)]^c^c_appload "
"**缩放"
"[_toolbar(\"SL-缩放\", _floating, _show, 934, 127, 14)] "
"[_button(\"实时缩放\", sssf, sssf)]'_zoom ; "
"[_button(\"limtoext\", icon2554, icon2554)]^c^climtoext "
"[_button(\"实时平移\", zysx_pan, zysx_pan)]'_pan "
"[_button(\"zoom all\", icon9658, icon9658)]'_zoom _all "
"[_button(\"范围缩放\", icon2386, icon2386)]'_zoom _e "
"[_button(\"zoom window\", icon9954, icon9954)]'_zoom;_w "
"[_button(\"放大\", icon1107, icon1107)]'_zoom 2x "
"[_button(\"缩小\", icon0191, icon0191)]'_zoom .5x "
"[_button(\"zoomc4x\", icon9169, icon9169)]^c^czoomc4x "
"[_button(\"zoomc1/2x\", icon5547, icon5547)]^c^czoomc1/2x "
"[_button(\"pan left\", icon0041, icon0041)]'_pan ^p(trans (list (* -0.4 (getvar \"viewsize\")) 0) 0 1) ;^p "
"[_button(\"pan right\", icon8467, icon8467)]'_pan ^p(trans (list (* 0.4 (getvar \"viewsize\")) 0) 0 1) ;^p "
"[_button(\"pan up\", icon6334, icon6334)]'_pan ^p(trans (list 0 (* 0.4 (getvar \"viewsize\"))) 0 1) ;^p "
"[_button(\"pan down\", icon6500, icon6500)]'_pan ^p(trans (list 0 (* -0.4 (getvar \"viewsize\"))) 0 1) ;^p "
"[_button(\"zoom p\", icon1478, icon1478)]^c^c5 "
"[_button(\"全部重生成\", rcda8145, rcda8145)]^c^c_regenall "
)
(princ (strcat x "\n") file) ; 将定义工具栏内容写入mnu文件
)
(close file) ; 关闭mnu文件
(command "menuload" "三领工具栏.mnu") ; 加载三领工具栏
)
)
(if (menugroup "三领工具栏") ; 若已加载三领工具栏
(progn
(command "toolbar" "SL-绘制" "s" ) ; 显示工具栏
(command "toolbar" "SL-钢筋" "s" )
(command "toolbar" "SL-查询" "s" )
(command "toolbar" "SL-编辑" "s" )
(command "toolbar" "SL-常用" "s" )
(command "toolbar" "SL-文件" "s" )
(command "toolbar" "SL-缩放" "s" )
(princ)
)
)
)
(create_toolbar) ; 本句的作用是加载本lisp就自动执行create_toolbar子程序

;;判断【三领外挂工具栏】菜单是否加载，没有则创建并加载之 
(defun create_toolbar (/ file lst x) 
  (if (null (menugroup "三领工具栏"))  ; 判断cad是否加载三领工具栏 
    (progn          ; 如果没加载，则自动执行下面程序 
      ;;;;;(alert "\n程序自动创建\"三领工具栏\"，请稍后") 
      (setq file (open "D:/三领外挂/三领工具栏.mnu" "W")) ; 在cad搜索目录创建一个菜单mnu文件,写状态打开 
      (foreach x '( 
                    "***menugroup=三领工具栏" 
                    "***toolbars" 
                    "**绘制" 
                    "[_toolbar(\"SL-绘制\", _floating, _show, 3, 97, 21)]" 
                    "[_button(\"直线 line \", line16, line16)]^c^c_line " 
                    "[_button(\"云线 yx\", yx_16, yx_16)]^c^cyx " 
                    "[_button(\"线045\", icon1322, icon1322)]*^c^cpline;\\w;(* (getvar \"DIMSCALE\") 0.45);(* (getvar \"DIMSCALE\") 0.45) " 
                    "[_button(\"线070\", icon0333, icon0333)]*^c^cpline;\\w;(* (getvar \"DIMSCALE\") 0.7);(* (getvar \"DIMSCALE\") 0.7)" 
                    "[_button(\"折线 polyline\", icon3035, icon3035)]^c^c_pline;\\w;0;0 " 
                    "[_button(\"样条曲线 spline\", icon0153, icon0153)]^c^c_spline" 
                    "[_button(\"平行线 pxx\", icon9894, icon9894)]^c^cpxx " 
                    "[_button(\"选线写字 suan-xz\", icon9895, icon9895)]^c^csuan-xz " 
                    "[_button(\"水平字符 xzp\", icon8716, icon8716)]^c^cxzp" 
                    "[_button(\"垂直字符 xzc\", icon9718, icon9718)]^c^cxzc " 
                    "[_button(\"水平空心字符 x-xzp\", icon7035, icon7035)]^c^cxxzp " 
                    "[_button(\"垂直空心字符 xxzc\", icon9264, icon9264)]^c^cxxzc " 
                    "[_button(\"写汉字 xhz\", rcda9358, rcda9358)]^c^cxhz" 
                    "[_button(\"写5号汉字x-hz\", rcda9169, rcda9169)]^c^cx-hz " 
                    "[_button(\"两点圆弧 arc\", arc2p, arc2p)]^C^C2parc" 
                    "[_button(\"智能中心线 ce\", zxx, zxx)]^c^cce" 
                    "[_button(\"圆  圆心、半径 circle\",icon1150, icon1150)]^c^c_circle " 
                    "[_button(\"椭圆  中心点 ellipse\", ellipse16, ellipse16)]^c^c_ellipse" 
                    "[_button(\"填充圆 tc-point\", icon3811, icon3811)]^c^ctcyx " 
                    "[_button(\"钢筋点shi-point\", icon8703, icon8703)]^c^cgangjind " 
                    "[_button(\"点 point\", icon8723, icon8723)]*^c^c_point " 
                    "[_button(\"细线矩形 00jx\", icon7711, icon7711)]^c^c_rectang " 
                    "[_button(\"钢筋框 045jx\", icon8253, icon8253)]^c^cgjk " 
                    "[_button(\"涂黑 th\", icon5141, icon5141)]^c^cth " 
                    "[_button(\"填充矩形 tcjx\", icon6868, icon6868)]^c^ctcjx " 
                    "[_button(\"椭圆孔 slot\", tyk, tyk)]^c^cslot " 
                    "[--]" 
                    "[_button(\"剖面号  pmh\", icon4771, icon4771)]^c^cpmhao " 
                    "[_button(\"剖切符 pq\", xtsy, xtsy)]^c^cpq " 
                    "[_button(\"现场焊 xth\", xch, xch)]^c^cxth " 
                    "[_button(\"非现场焊 fxth\", fxch, fxch)]^c^cfxth " 
                    "[_button(\"3点焊缝 3phf \", icon8636, icon8636)]^c^c3phf " 
                    "[_button(\"箭头 jian tou\", icon1538, icon1538)]^c^cjt " 
                    "[_button(\"对称符 dui chen\", duic, duic)]^c^cduichen " 
                    "[_button(\"折断线 zdx\", icon1726, icon1726)]^c^czdx " 
                    "[_button(\"双折断线 zdx1\", shuang-jx, shuang-jx)]^c^czdx1 " 
                    "[_button(\"圆柱截断线 syp\", zhujd, zhujd)]^c^csyp " 
                    "[_button(\"左标高 l-bgf\", icon1842, icon1842)]^c^cl-bgf " 
                    "[_button(\"右标高 r-bgf\", icon5447, icon5447)]^c^cr-bgf " 
                    "[_button(\"加轴线号 zhx-hao\", icon1869, icon1869)]^c^czhux-hao " 
                    "[_button(\"详图号 xthao\", rcda5705, rcda5705)]^c^cxthao " 
                    "[--]" 
                    "[_button(\"填充 hatch\", icon7644, icon7644)]^c^c_bhatch " 
                    "[_button(\"墙线填充 tc-qx\", icon7673, icon7673)]^c^ctcqx " 
                    "[_button(\"混凝土填充 tc-hnt\", icon4664, icon4664)]^c^ctchnt " 
                    "[_button(\"填充轻材 tcqc\", rcda6334, rcda6334)]^c^ctcqc " 
                    "[_button(\"继承填充 jctc\", laywlk16, laywlk16)]^c^cjctc " 
                    "[_button(\"动态填充比例\", icon6541, icon6541)]^c^ctt " 
                    "[--]" 
                    "[_button(\"平行线间距 ll\", icon3430, icon3430)]^c^cll " 
                    "[_button(\"点点标注 dd-dim\", rcda9718, rcda9718)]^c^cdd-dim " 
                    "[_button(\"选线标注 ali-dim\", al-dim, al-dim)]^c^cali-dim " 
                    "[_button(\"尺寸界线 ccjx\", icon5667, icon5667)]^c^cccjx-h " 
                    "[_button(\"弧长标注 hu\", rcda9961, rcdat9961)]^c^chu " 
                    "[_button(\"引线标注 yxbz\", rcda4827, rcda4827)]^c^cyxbz " 
                    "[_button(\"坐标标注 zb\", rcda2382, rcda2382)]^c^czb  " 
                     
                     
                    "**钢筋" 
                    "[_toolbar(\"SL-钢筋\", _floating, _show, 963, 130, 21)]" 
                    "[_button(\"门钢构件表\", mengang, mengang)]^c^cmggl " 
                    "[_button(\"钢构件截面特征\", jmtz, jmtz)]^c^c(startapp \"d://三领外挂//实用程序//型钢截面特性查询及计算工具.exe\")" 
                    "[_button(\"选筋表\", xjb, xjb)]^c^c(startapp \"d://三领外挂//实用程序//TSSD2010选筋表.exe\")" 
                    "[_button(\"画板钢筋 bj\", rcda7421, rcda7421)]^c^cbj " 
                    "[_button(\"画板正筋 ban-zj\", icon6299, icon6299)]^c^cban-zj " 
                    "[_button(\"画板负筋 ban-fj\", icon9912, icon9912)]^c^cban-fj " 
                    "[_button(\"改写箍筋\", gujin, gujin)]^c^cgujin  " 
                    "[_button(\"改写1根3级\", d1-3, d1-3)]^c^c1-3 " 
                    "[_button(\"改写2根3级\", d2-3, d2-3)]^c^c2-3 " 
                    "[_button(\"改写3根3级\", d3-3, d3-3)]^c^c3-3 " 
                    "[_button(\"改写4根3级\", d4-3, d4-3)]^c^c4-3 " 
                     
                    "**查询" 
                    "[_toolbar(\"SL-查询\", _floating, _show, 937, 461, 6)]" 
                    "[_button(\"列表显示\", list_16, list_16)]^c^cus-list " 
                    "[_button(\"查找、替换\", icon3931, icon3931)]^c^cfid " 
                    "[_button(\"查小于定字高的汉字\", chahz1, chahz1)]^c^cchahz " 
                    "[_button(\"面积\", mianji, mianji)]^c^c_area " 
                    "[_button(\"显示实体dxf码\", icon4084, icon4084)]^c^cprintdxf " 
                    "[_button(\"距离\", juli_16, juli_16)]'_dist " 
                    "[_button(\"标出型心\", rcda2391, rcda2391)]^c^ccr " 
                     
                    "**编辑" 
                    "[_toolbar(\"SL-编辑\", _floating, _show, 963, 130, 21)]" 
                    "[_button(\"删除 erase\", icon7421, icon7421)]*^c^c_erase si auto " 
                    "[_button(\"按层删除 ly-erase\", icon2382, icon2382)]^c^cdellayer " 
                    "[_button(\"oops!\", icon8909, icon8909)]^c^c_oops " 
                    "[_button(\"剪切 trim\", icon7529, icon7529)]^c^c_trim " 
                    "[_button(\"点移dmove\", icon6827, icon6827)]*^c^cmove;\\;(nth 1(grread 5)) " 
                    "[_button(\"选移 ss-move\", icon9961, icon9961)]^c^csmove " 
                    "[_button(\"定距移 move disp\", icon2929, icon2929)]^c^cpy " 
                    "[--]" 
                    "[_button(\"点拷贝 d-copy\", icon5705, icon5705)]*^c^ccopy;\\;(nth 1(grread 5)) " 
                    "[_button(\"多点拷贝 copy m\", icon8145, icon8145)]^c^ccopym " 
                    "[_button(\"选拷贝ss-copy\", icon3281, icon3281)]^c^cscopy " 
                    "[_button(\"定距拷贝 copy disp\", icon4833, icon4833)]^c^cpyfz " 
                    "[_button(\"偏移\", icon6308, icon6308)]^c^c_offset " 
                    "[_button(\"双向延伸 extend\", icon0778, icon0778)]^c^cys " 
                    "[_button(\"拉伸 stretch\", icon1323, icon1323)]*^c^c_stretch c " 
                    "[_button(\"定值改变实体比例  num-sc\", icon0491, icon0491)]^c^cnum-sc " 
                    "[_button(\"倒角chamfer\", icon2859, icon2859)]^c^c_chamfer " 
                    "[_button(\"圆角fillet\", yuanjiao, yuanjiao)]^c^c_fillet " 
                    "[_button(\"旋转ang-rot\" icon2995, icon2995)]^c^cang-rot " 
                    "[_button(\"【文字或物体】动态对齐于曲线 x-rot-mov\", icon2082, icon2082)]^c^c(if (null c:x-rot-mov )(load \"x-rot-mov.vlx\"));x-rot-mov " 
                    "[_button(\"实体旋转平行于直线 x-rotate\", icon1115, icon1115)]^c^cx-rotate " 
                    "[_button(\"按图层改线宽与线型 c-gx\", icon0292, icon0292)]^c^cc-gx " 
                    "[_button(\"分解-explode\", icon8397, icon8397)]^c^c_explode " 
                    "[_button(\"分解pl-explode\", icon5350, icon5350)]^c^cexpline " 
                    "[_button(\"改线宽为 0 gx00\", icon1942, icon1942)]^c^cgx00  " 
                    "[_button(\"改线宽为 0.70 gx070\", icon0333, icon0333)]^c^cgx070 " 
                    "[_button(\"改线宽为 0.45 gx045\", icon1322, icon1322)]^c^cgx045 " 
                    "[_button(\"线弧圆宽度修改\", rcda6962, rcda6962)]^c^cpn1 " 
                    "[_button(\"连线、弧、多段线\", lianxian, lianxian)]^c^cjf " 
                    "[_button(\"编辑多段线\", bjddx, bjddx)]^c^c_pedit " 
                    "[_button(\"水平镜像且移动定位，原图删除 h-mir-mv\", icon3805, icon3805)]^c^ch-mr-mv " 
                    "[_button(\"垂直镜像且移动定位，原图删除v-mir-mv\", icon5890, icon5890)]^c^cv-mr-mv " 
                    "[_button(\"水平镜像且移动定位，原图不删除h-mr-mv-n\", icon5537, icon5537)]^c^ch-mr-mv-n " 
                    "[_button(\"垂直镜像且移动定位，原图不删除v-mr-mv-n\", icon6118, icon6118)]^c^cv-mr-mv-n " 
                    "[_button(\"以直线镜像 j-mirror\", icon2704, icon2704)]^c^cj-mirror " 
                    "[_button(\"阵列\", zhenlie_16, zhenlie_16)]^c^c_array " 
                    "[_button(\"两点打断\", icon4370, icon4370)]*^c^c_break \\_f " 
                    "[_button(\"改为虚线 ch-cxx\", icon2391, icon2391)]^c^cch-cxx " 
                    "[_button(\"改为实线ch-sx\", icon0153, icon0153)]^c^cch-csx " 
                    "[_button(\"改为点划线 ch-cl\", icon3902, icon3902)]^c^cch-cl " 
                    "[_button(\"改为轴线 ch-czx\", icon4604, icon4604)]^c^cch-czx " 
                    "[_button(\"动态线型比例\", dtxx_16, dtxx_16)]^c^cdt-xx " 
                    "[_button(\"改成-虚体字\", rcda1478, rcda1478)]^c^cch-xz " 
                    "[_button(\"改成-实体字\", gstz, gstz)]^c^cch-sz " 
                    "[_button(\"动态填充比例\", icon6541, icon6541)]^c^ctt " 
                     
                    "**常用" 
                    "[_toolbar(\"SL-常用\", _top, _show, 0, 0, 1)] " 
                    "[--]" 
                    "[_button(\"炸开清理全图\", icon9741, icon9741)]^c^ct-explode " 
                    "[_button(\"删除重复线\", trmblk16, trmblk16)]^c^cduprem " 
                    "[_button(\"1,1,0插入图块 insert;1;1;0\", icon2662, icon2662)]^c^cinsert " 
                    "[_button(\"选取图块插入点 insbase\", 4mi_16, 4mi_16)]^c^cinsbase " 
                    "[_button(\"设计中心\", rcda6500, rcda6500)]$m=$(if,$(and,$(getvar,adcstate),1),'_adcclose,'_adcenter) " 
                    "[--]" 
                    "[_button(\"删除及合并图层\", rcda, rcda)]^c^c(if (null c:sstc )(load \"sstc.vlx\"));sstc " 
                    "[_button(\"将对象的图层置为当前\", dqc_16, dqc_16)]^c^c_ai_molc " 
                    "[_button(\"图层特性管理器\", tcgl_16, tcgl_16)]'_layer " 
                    "[--]" 
                    "[_control(_layer)]" 
                    "[--]" 
                    "[_button(\"按色分层\", d2, d2)]^c^cas-c  " 
                    "[_button(\"全图-颜色随层\", d3, d3)]^c^csc-zd " 
                    "[_button(\"选择-颜色随层\", d1, d1)]^c^csc-x  " 
                    "[_button(\"色变\", wzzk, wzzk)]^c^c(if (null c:sb )(load \"sbv10.vlx\"));sb " 
                    "[--]" 
                    "[_button(\"match properties\", icon2209, icon2209)]'_matchprop " 
                    "[_button(\"ss-cht\", icon5724, icon5724)]^c^cch-text " 
                    "[_button(\"edit text\", icon2648, icon2648)]^c^cdd-cht " 
                    "[_button(\"chtext\", icon3548, icon3548)]^c^cchgtext " 
                    "[_button(\"改数字高\", icon1101, icon1101)]^c^cch-sz-hi " 
                    "[_button(\"改汉字高\", icon4393, icon4393)]^c^cch-hz-hi " 
                    "[_button(\"动态文字\", dtwz, dtwz)]^c^cmacedit " 
                    "[_button(\"屏幕改字\", rcda3902, rcda3902)]^c^c(if (null c:pmgz )(load \"pmgz.vlx\"));pmgz " 
                    "[_button(\"插入特殊符号\", icon1621, icon1621)]^c^ccrfh " 
                    "[_button(\"文字炸开\", icon6729, icon6729)]^c^cexpzi " 
                    "[_button(\"炸字成线\", zha-z-xian, zha-z-xian)]^c^czhazxian " 
                    "[_button(\"字符合并zfhb\", zfhb, zfhb)]^c^czfhb  " 
                    "[--]" 
                    "[_button(\"求和\", icon4626, icon4626)]^c^cqiuhe " 
                    "[_button(\"求平均值\", pjz, pjz)]^c^cpjz " 
                    "[_button(\"求积\", qiuji, qiuji)]^c^c_qiuji " 
                    "[_button(\"线长度统计\", adline, adline)]^c^cad " 
                    "[--]" 
                    "[_button(\"打印预览\", icon4583, icon4583)]^c^c_preview " 
                    "[_button(\"页面设置\", ymsz, ymsz)]^c^c_pagesetup " 
                    "[_button(\"批量打印\", bdyplot, bdyplot)]^c^c(if (null c:BatchPlot-v3.6 )(load \"BatchPlot-v3.6.vlx\"));bplot " 
                    "[_button(\"打印\", icon5573, icon5573)]^c^c_plot " 
                    "[_button(\"计算器\", d41, d41)]^c^c(startapp \"d://三领外挂//实用程序//calcplus.exe\") " 
                     
                    "**文件" 
                    "[_toolbar(\"SL-文件\", _floating, _show, 57, 97, 19)] " 
                    "[_button(\"设置绘图\", icon2623, icon2623)]^c^chtbl " 
                    "[_button(\"按1:1绘图\", bl1-1, bl1-1)]^c^c(setvar \"DIMSCALE\" 100) " 
                    "[_button(\"按1:100绘图\", bl1-100, bl1-100)]^c^c(setvar \"DIMSCALE\" 1) " 
                    "[_button(\"cancel\", icon8756, icon8756)]^c^c " 
                    "[_button(\"new\", icon1840, icon1840)]^c^c_new " 
                    "[_button(\"limtoext\", icon2554, icon2554)]^c^climtoext " 
                    "[--]" 
                    "[_button(\"打开\", cj_open, cj_open)]^c^c_open  " 
                    "[_button(\"保存\", cj_save, cj_save)]^c^c_qsave " 
                    "[_button(\"另存为\", icon2757, icon2757)]^c^c_saveas " 
                    "[_button(\"局部存盘\", jbcp, jbcp)]^c^c_wblock " 
                    "[_button(\"quit\", icon2316, icon2316)]^c^c_quit " 
                    "[_button(\"end\", icon0037, icon0037)]^c^c_end " 
                    "[--]" 
                    "[_button(\"cut\", icon5006, icon5006)]^c^c_cutclip " 
                    "[_button(\"copy to clipboard\", icon9629, icon9629)]^c^c_copyclip " 
                    "[_button(\"paste\", icon3094, icon3094)]^c^c_pasteclip " 
                    "[_button(\"paste\", icon7446, icon7446)]^c^cpasteblock " 
                    "[--]" 
                    "[_button(\"放弃\", icon3655, icon3655)]_u  " 
                    "[_button(\"重做\", icon4767, icon4767)]^c^c_mredo 1  " 
                    "[_button(\"文字样式批量修改\", c_texedi, c_texedi)]^c^c(if (null c:cs )(load \"csstyle.vlx\"));cs " 
                    "[_button(\"修改乱码,炸开mtext,text统一左定位\", exp_zq, exp_zq)]^c^cfs " 
                    "[_button(\"整图缩放\", rcda9895, rcda9895)]^c^csc-t " 
                    "[_button(\"选项\", rcda1942, rcda1942)]^c^c_options " 
                    "[_button(\"autolisp 加载\", rcda2995, rcda2995)]^c^c_appload " 
                     
                    "**缩放" 
                    "[_toolbar(\"SL-缩放\", _floating, _show, 934, 127, 14)] " 
                    "[_button(\"实时缩放\", sssf, sssf)]'_zoom ; " 
                    "[_button(\"limtoext\", icon2554, icon2554)]^c^climtoext " 
                    "[_button(\"实时平移\", zysx_pan, zysx_pan)]'_pan " 
                    "[_button(\"zoom all\", icon9658, icon9658)]'_zoom _all " 
                    "[_button(\"范围缩放\", icon2386, icon2386)]'_zoom _e  " 
                    "[_button(\"zoom window\", icon9954, icon9954)]'_zoom;_w  " 
                    "[_button(\"放大\", icon1107, icon1107)]'_zoom 2x " 
                    "[_button(\"缩小\", icon0191, icon0191)]'_zoom .5x " 
                    "[_button(\"zoomc4x\", icon9169, icon9169)]^c^czoomc4x " 
                    "[_button(\"zoomc1/2x\", icon5547, icon5547)]^c^czoomc1/2x " 
                    "[_button(\"pan left\", icon0041, icon0041)]'_pan ^p(trans (list (* -0.4 (getvar \"viewsize\")) 0) 0 1) ;^p " 
                    "[_button(\"pan right\", icon8467, icon8467)]'_pan ^p(trans (list (* 0.4 (getvar \"viewsize\")) 0) 0 1) ;^p " 
                    "[_button(\"pan up\", icon6334, icon6334)]'_pan ^p(trans (list 0 (* 0.4 (getvar \"viewsize\"))) 0 1) ;^p " 
                    "[_button(\"pan down\", icon6500, icon6500)]'_pan ^p(trans (list 0 (* -0.4 (getvar \"viewsize\"))) 0 1) ;^p " 
                    "[_button(\"zoom p\", icon1478, icon1478)]^c^c5 " 
                    "[_button(\"全部重生成\", rcda8145, rcda8145)]^c^c_regenall " 
                  ) 
        (princ (strcat x "\n") file)   ; 将定义工具栏内容写入mnu文件 
      ) 
      (close file)         ; 关闭mnu文件 
      (command "menuload" "三领工具栏.mnu") ; 加载三领工具栏 
    ) 
  ) 
  (if (menugroup "三领工具栏")  ; 若已加载三领工具栏 
    (progn 
      (command "toolbar" "SL-绘制" "s" ) ; 显示工具栏 
      (command "toolbar" "SL-钢筋" "s" ) 
      (command "toolbar" "SL-查询" "s" ) 
      (command "toolbar" "SL-编辑" "s" ) 
      (command "toolbar" "SL-常用" "s" ) 
      (command "toolbar" "SL-文件" "s" ) 
      (command "toolbar" "SL-缩放" "s" )    
      (princ) 
    ) 
  ) 
) 
(create_toolbar)    ; 本句的作用是加载本lisp就自动执行create_toolbar子程序

账号		自动登录	找回密码
密码			注册

[提问] toolbar工具栏加载后，为何不能全部调出来？

浏览过的版块