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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › 源码共享 › ！写字符、汉字的源码程序！
返回列表 发新帖
查看: 2153|回复: 3

！写字符、汉字的源码程序！

[复制链接]
尘缘一生
发表于 2014-11-2 21:54:41 | 显示全部楼层 |阅读模式
本帖最后由 尘缘一生 于 2014-11-6 17:59 编辑

自己写的，一直使用，想完善它，也为自己干活快些，请这里高手完善下吧。
说明：
     我里面构建命令为：
     XZP：写出水平向字符的。
     XZC：写出垂直向字符的。
     XHZ:写字符、汉字综合的，包括水平、垂直、选择直线，设置字体等。
    SUAN-XZ:先写字--->选择一线性实体，即可写出与线性角度适合的实体，在移动定位。
特点：1：字符等可以任意组合，鼠标点即可，也可以键盘输入新内容。本人极其恶心用键盘，
             追求最少击键，省一秒也不多一秒。因此，构建了几个命令，可以整合一个综合的。
            2：跟随鼠标，任意满足放置要求。
            3:这是93年写的，LISP简单，代码初级，自己只为干活快，都是被逼的。

遗憾：我是做结构的，一直弄不好钢筋问题，组合也设置不好，DCL的LABLE 项又找不到钢筋怎么写，
           就用了汉字“一级钢"，”二级钢“。。。成了这个样子。            
汉字, 程序

本帖子中包含更多资源

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

x

相关帖子
回复

使用道具 举报

hao3ren
发表于 2014-11-2 23:20:55 | 显示全部楼层
感觉这玩意实在块不到哪里去啊

点评

尘缘一生
我截屏软件慢  发表于 2014-11-3 07:11
回复 支持 反对

使用道具 举报

hao3ren
发表于 2014-11-3 00:28:09 | 显示全部楼层
命令: SUAN-XZ
; 错误: no function definition: ENTS

点评

尘缘一生
丢掉一个子函数（ents),已经更新补上。  发表于 2014-11-3 07:19
尘缘一生
SUAN-XZ 要选择一线性实体的。  发表于 2014-11-3 07:11
回复 支持 反对

使用道具 举报

尘缘一生
 楼主| 发表于 2014-11-3 07:29:31 | 显示全部楼层
源码如下：
  2. ;;----------------------------------------------------------------------------
  3. (defun ENTS( )
  4.         (setq pt1 (entsel "\nplease choose an entity:"))
  5.         (setq pt2 (nth 1 pt1))
  6.         (setq pt3 (nth 0 pt1))
  7.         (setq k3 (osnap pt2 "NEAR"))
  8.         (setq pt4 (osnap k3 "ENDPOINT"))
  9.         (setq pt5 (osnap k3 "MIDPOINT"))
  10.         (setq dis (distance pt4 pt5))
  11.         (setq ang (angle pt4 pt5))
  12.         (setq pt6 (polar pt4 ang (* 2 dis)))
  13.         (setq k1 (nth 0 pt4))
  14.         (setq k2 (nth 0 pt6))
  15.         (if (< k1 k2)
  16.                 (setq ang (angle pt4 pt6))
  17.         )
  18.         (if (< k2 k1)
  19.                 (setq ang (angle pt6 pt4))
  20.         )
  21.         (if (= k2 k1)
  22.                 (setq ang (/ pi 2))
  23.         )
  24. )
  25. ;;-----------------------------------------------------------------
  26. (defun DCLXZ( )
  27.   (if (or (not dcl_id) (< (setq dcl_id(load_dialog (dcl-xz-dcl))) 0))
  28.                 (setq dcl_id(load_dialog (dcl-xz-dcl))))
  29.   (if (not (new_dialog "dhxz" dcl_id))(exit))
  30.         (action_tile "tile0" "(setq pt1 $value)(setq s pt1)(setq n (strlen pt1))")
  31.         (action_tile "tile1" "(setq pt1 "1")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  32.         (action_tile "tile2" "(setq pt1 "2")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  33.         (action_tile "tile3" "(setq pt1 "3")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  34.         (action_tile "tile4" "(setq pt1 "4")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  35.         (action_tile "tile5" "(setq pt1 "5")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  36.         (action_tile "tile6" "(setq pt1 "6")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  37.         (action_tile "tile7" "(setq pt1 "7")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  38.         (action_tile "tile8" "(setq pt1 "8")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  39.         (action_tile "tile9" "(setq pt1 "9")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  40.         (action_tile "tile10" "(setq pt1 "0")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  41.         (action_tile "tile11" "(setq pt1 (chr 128))(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  42.         (action_tile "tile12" "(setq pt1 "%")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  43.         (action_tile "tile13" "(setq pt1 "=")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  44.         (action_tile "tile14" "(setq pt1 "%%130")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  45.         (action_tile "tile15" "(setq pt1 "%%131")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  46.         (action_tile "tile48" "(setq pt1 "%%132")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  47.         (action_tile "tile16" "(setq pt1 "@")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  48.         (action_tile "tile17" "(setq pt1 ";")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  49.         (action_tile "tile18" "(setq pt1 ",")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  50.         (action_tile "tile19" "(setq pt1 ":")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  51.         (action_tile "tile20" "(setq pt1 "(")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  52.         (action_tile "tile21" "(setq pt1 ")")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  53.         (action_tile "tile22" "(setq pt1 "+")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  54.         (action_tile "tile23" "(setq pt1 "-")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  55.         (action_tile "tile24" "(setq pt1 ".")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  56.         (action_tile "tile25" "(setq pt1 ">")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  57.         (action_tile "tile26" "(setq pt1 (strcat (chr 128) "0.000"))(setq s (strcat s pt1))(setq n (+ n 6))(set_tile "tile0" s)")
  58.         (action_tile "tile27" "(setq pt1 "@100")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  59.         (action_tile "tile28" "(setq pt1 "@120")(setq s (strcat s pt1))(setq n (+ n 4))(set_tile "tile0" s)")
  60.         (action_tile "tile29" "(setq pt1 "@150")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  61.         (action_tile "tile30" "(setq pt1 "@200")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  62.         (action_tile "tile31" "(setq pt1 "@250")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  63.         (action_tile "tile32" "(setq pt1 "<")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  64.         (action_tile "tile33" "(setq pt1 "*")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  65.         (action_tile "tile34" "(setq pt1 "&#91;")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  66.         (action_tile "tile35" "(setq pt1 "&#93;")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  67.         (action_tile "tile36" "(setq pt1 "a")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  68.         (action_tile "tile37" "(setq pt1 "#")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  69.         (action_tile "tile38" "(setq pt1 "JQL")(setq s (strcat s pt1))(setq n (+ n 3))(set_tile "tile0" s)")
  70.         (action_tile "tile39" "(setq pt1 "YP")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  71.         (action_tile "tile40" "(setq pt1 "XB")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  72.         (action_tile "tile41" "(setq pt1 "LL")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  73.         (action_tile "tile42" "(setq pt1 "JC")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  74.         (action_tile "tile43" "(setq pt1 "GL")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  75.         (action_tile "tile44" "(setq pt1 "XGL")(setq s (strcat s pt1))(setq n (+ n 3))(set_tile "tile0" s)")
  76.         (action_tile "tile45" "(setq pt1 "WL")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  77.         (action_tile "tile46" "(setq pt1 "TY")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  78.         (action_tile "tile47" "(setq pt1 "@300")(setq s (strcat s pt1))(setq n (+ n 2))(set_tile "tile0" s)")
  79.         (action_tile "accept" "(done_dialog 1)")
  80.         (start_dialog)
  81.         (unload_dialog dcl_id)
  82. )

  84. ;;-----------------------------------------------------------------------------

  86. (defun DCL-XZ-dcl (/ lst_str str file f)
  87.         (setq lst_str '(
  88.                   " dhxz:dialog {"
  89.                   " label="请给出文字或进行选择（编者：陈传建）:?";"
  90.                   "  initial_focus=tile0;"
  91.                   " :boxed_radio_row {"
  92.                   "   label="文字内容为= :";"
  93.                   "    :edit_box {"
  94.                   "      key="tile0";"
  95.                   "      value="";"
  96.                   "      allow_accept=true;"
  97.                   "    }"
  98.                   "  }"
  99.                   " :boxed_radio_row {  "
  100.                   "   :radio_button {"
  101.                   "   label=".";"
  102.                   "   key="tile24";"
  103.                   "   }"
  104.                   "   :radio_button {"
  105.                   "   label="±";"
  106.                   "   key="tile11";"
  107.                   "   }"
  108.                   "   :radio_button {"
  109.                   "   label="%";"
  110.                   "   key="tile12";"
  111.                   "   }"
  112.                   "   :radio_button {"
  113.                   "   label="=";"
  114.                   "   key="tile13";"
  115.                   "   }"
  116.                   "   :radio_button {"
  117.                   "   label="一级筋";"
  118.                   "   key="tile14";"
  119.                   "   }"
  120.                   "   :radio_button {"
  121.                   "   label="二级筋";"
  122.                   "   key="tile15";"
  123.                   "   }"
  124.                   "   :radio_button {"
  125.                   "   label="三级筋";"
  126.                   "   key="tile48";"
  127.                   "   }"  
  128.                   "  }"
  129.                   " :row {"
  130.                   "   label="数字= :";"
  131.                   "   :radio_button {"
  132.                   "   label="0";"
  133.                   "   key="tile10";"
  134.                   "   }"
  135.                   "   :radio_button {"
  136.                   "   label="1";"
  137.                   "   key="tile1";"
  138.                   "   }"
  139.                   "   :radio_button {"
  140.                   "   label="2";"
  141.                   "   key="tile2";"
  142.                   "   }"
  143.                   "   :radio_button {"
  144.                   "   label="3";"
  145.                   "   key="tile3";"
  146.                   "   }"
  147.                   "   :radio_button {"
  148.                   "   label="4";"
  149.                   "   key="tile4";"
  150.                   "   }"
  151.                   "   :radio_button {"
  152.                   "   label="5";"
  153.                   "   key="tile5";"
  154.                   "   }"
  155.                   "   :radio_button {"
  156.                   "   label="6";"
  157.                   "   key="tile6";"
  158.                   "   }"
  159.                   "   :radio_button {"
  160.                   "   label="7";"
  161.                   "   key="tile7";"
  162.                   "   }"
  163.                   "   :radio_button {"
  164.                   "   label="8";"
  165.                   "   key="tile8";"
  166.                   "   }"
  167.                   "   :radio_button {"
  168.                   "   label="9";"
  169.                   "   key="tile9";"
  170.                   "   }"
  171.                   "  }"
  172.                   " :row {"
  173.                   "   label="常用符号= :";"
  174.                   " :column {"
  175.                   "   :radio_button {"
  176.                   "   label="±0.000";"
  177.                   "   key="tile26";"
  178.                   "   }"
  179.                   "   :radio_button {"
  180.                   "   label="@100";"
  181.                   "   key="tile27";"
  182.                   "   }"
  183.                   "   :radio_button {"
  184.                   "   label="@120";"
  185.                   "   key="tile28";"
  186.                   "   }"
  187.                   "   :radio_button {"
  188.                   "   label="@150";"
  189.                   "   key="tile29";"
  190.                   "   }"
  191.                   "   :radio_button {"
  192.                   "   label="@200";"
  193.                   "   key="tile30";"
  194.                   "   }"
  195.                   "   :radio_button {"
  196.                   "   label="@250";"
  197.                   "   key="tile31";"
  198.                   "   }"
  199.                   "  }"
  200.                   " :column {"
  201.                   "   :radio_button {"
  202.                   "   label="GL";"
  203.                   "   key="tile43";"
  204.                   "   }"
  205.                   "   :radio_button {"
  206.                   "   label="XGL";"
  207.                   "   key="tile44";"
  208.                   "   }"
  209.                   "   :radio_button {"
  210.                   "   label="WL";"
  211.                   "   key="tile45";"
  212.                   "   }"
  213.                   "   :radio_button {"
  214.                   "   label="TY";"
  215.                   "   key="tile46";"
  216.                   "   }"
  217.                   "   :radio_button {"
  218.                   "   label="@300";"
  219.                   "   key="tile47";"
  220.                   "   }"
  221.                   "  }"
  222.                   " :column {"
  223.                   "   :radio_button {"
  224.                   "   label="JQL";"
  225.                   "   key="tile38";"
  226.                   "   }"
  227.                   "   :radio_button {"
  228.                   "   label="YP";"
  229.                   "   key="tile39";"
  230.                   "   }"
  231.                   "   :radio_button {"
  232.                   "   label="XB";"
  233.                   "   key="tile40";"
  234.                   "   }"
  235.                   "   :radio_button {"
  236.                   "   label="LL";"
  237.                   "   key="tile41";"
  238.                   "   }"
  239.                   "   :radio_button {"
  240.                   "   label="JC";"
  241.                   "   key="tile42";"
  242.                   "   }"
  243.                   "  }"
  244.                   " :column {"
  245.                   "   :radio_button {"
  246.                   "   label="@";"
  247.                   "   key="tile16";"
  248.                   "   }"
  249.                   "   :radio_button {"
  250.                   "   label=";";"
  251.                   "   key="tile17";"
  252.                   "   }"
  253.                   "   :radio_button {"
  254.                   "   label=",";"
  255.                   "   key="tile18";"
  256.                   "   }"
  257.                   "   :radio_button {"
  258.                   "   label=":";"
  259.                   "   key="tile19";"
  260.                   "   }"
  261.                   "   :radio_button {"
  262.                   "   label="(";"
  263.                   "   key="tile20";"
  264.                   "   }"
  265.                   "  }"
  266.                   " :column {"
  267.                   "   :radio_button {"
  268.                   "   label=")";"
  269.                   "   key="tile21";"
  270.                   "   }"
  271.                   "   :radio_button {"
  272.                   "   label="+";"
  273.                   "   key="tile22";"
  274.                   "   }"
  275.                   "   :radio_button {"
  276.                   "   label="-";"
  277.                   "   key="tile23";"
  278.                   "   }"
  279.                   "   :radio_button {"
  280.                   "   label="<";"
  281.                   "   key="tile32";"
  282.                   "   }"
  283.                   "   :radio_button {"
  284.                   "   label=">";"
  285.                   "   key="tile25";"
  286.                   "   }"
  287.                   "  }"
  288.                   " :column {"
  289.                   "   :radio_button {"
  290.                   "   label="*";"
  291.                   "   key="tile33";"
  292.                   "   }"
  293.                   "   :radio_button {"
  294.                   "   label="&#91;";"
  295.                   "   key="tile34";"
  296.                   "   }"
  297.                   "   :radio_button {"
  298.                   "   label="&#93;";"
  299.                   "   key="tile35";"
  300.                   "   }"
  301.                   "   :radio_button {"
  302.                   "   label="a";"
  303.                   "   key="tile36";"
  304.                   "   }"
  305.                   "   :radio_button {"
  306.                   "   label="#";"
  307.                   "   key="tile37";"
  308.                   "   }"
  309.                   "  }"
  310.                   "}"
  311.                   "  ok_cancel;"
  312.                   " }"
  313.                 )
  314.         )
  315.         (setq file (vl-filename-mktemp "DclTemp.dcl"))
  316.         (setq f (open file "w"))
  317.         (foreach str lst_str
  318.                 (princ "\n" f)
  319.                 (princ str f)
  320.         )
  321.         (close f)
  322.         ;;返回
  323.         file
  324. )

  326. ;;-------------------------------------------------------------------------

  328. (defun SSET( )
  329.         (setq oldos (getvar "OSMODE"))
  330.         (setq oldorh (getvar "ORTHOMODE"))
  331.         (setq oldsn (getvar "SNAPMODE"))
  332.         (setvar "OSMODE" 0) ;;;捕捉关闭
  333.         (setvar "ORTHOMODE" 0) ;;;正交关闭
  334.         (setvar "SNAPMODE" 0);;;;实体捕捉关闭
  335.         (setvar "CMDECHO" 0)
  336.         (setvar "TEXTEVAL" 1)
  337. )

  339. ;;---------------------------------------------------------------------------
  340. (defun SSET1( )
  341.         (setvar "ORTHOMODE" oldorh)  ;;;恢复正交
  342.         (setvar "OSMODE" oldos)  ;;;恢复正交
  343.         (setvar "SNAPMODE" oldsn) ;;;;恢复实体捕捉   
  344.         (setvar "CMDECHO" 1)
  345. )
  346. ;;----------------------------------------------------------------------------

  348. (defun XZ ( )
  349.         (SSET)
  350.         (setq p (strlen pt2))
  351.         (setq pt4 (polar pt1 ang p))
  352.         (setq pt3 (polar pt1 (+ ang pi) p))
  353.         (setvar "TEXTSTYLE" style)
  354.         (command "TEXT" pt3 3.0 ang pt2)
  355.         (setvar "TEXTSTYLE" "STANDARD")
  356.         (command "MOVE" (entlast) "" pt1 pause"")
  357.         (entupd (entlast))
  358.         (SSET1)
  359. )

  361. ;;;--------------------------------------------------------------------
  362. (defun C:SUAN-XZ(/ s n pt1 pt2 pt3 pt4 pt5 pt6 k1 k2 k3 dis ang p)
  363.   (setq style "STANDARD")
  364.   (DCLXZ)
  365.   (ENTS)
  366.   (setq pt2 S)
  367.   (setq ang (atof(angtos ang 0)))
  368.         (setvar "TEXTSTYLE" style)
  369.         (command "TEXT" pt5 3.0 ang pt2)
  370.         (setvar "TEXTSTYLE" "STANDARD")
  371.         (command "MOVE" (entlast) "" pt5 pause"")
  372.         (entupd (entlast))
  373.         (SSET1)
  374. )

  376. ;;-------------------------------------------------------------------

  378. (defun C:XZP(/ s n ang style pt1 pt2 pt3 pt4 p)
  379.         (DCLXZ)
  380.         (setq pt2 s)
  381.         (setq pt1 (nth 1 (grread 5)))
  382.         (setq ang 0)
  383.         (setq style "STANDARD")
  384.         (XZ)
  385. )

  387. ;;--------------------------------------------------------------------------

  389. (defun C:XZC(/ s n ang style pt1 pt2 pt3 pt4 p)
  390.         (DCLXZ)
  391.         (setq pt2 s)
  392.         (setq pt1 (nth 1 (grread 5)))
  393.         (setq ang 90)
  394.         (setq style "STANDARD")
  395.         (XZ)
  396. )

  398. ;;-----------------------------------------------------------------------
  399. ;;---------------------------------------------------------------------------------
  400. (defun C:XHZ(/ h1 ang s sl pt1 pt2 pt3 pt4 pt5 p p1 p2 k3 sty what_next)
  401.         (gc)
  402.         (if (or (not dcl_id1) (< (setq dcl_id1(load_dialog (xhz-dcl))) 0))
  403.                 (setq dcl_id1(load_dialog (xhz-dcl)))
  404.   )
  405.   (if (not (new_dialog "xhz1" dcl_id1))
  406.                 (exit)
  407.   )   
  408.   (setq what_next 3)
  409.         (while (< 2 what_next)
  410.           (action_tile "tile0" "(setq s1 $value)")
  411.           (action_tile "tile1" "(set_tile "tileh" "8")")
  412.           (action_tile "tile2" "(set_tile "tileh" "10")")
  413.           (action_tile "tile3" "(set_tile "tileh" "20")")
  414.           (action_tile "tile4" "(done_dialog 4)")
  415.           (action_tile "tile5" "(set_tile "tilea" "90")")
  416.           (action_tile "tile6" "(set_tile "tilea" "-90")")
  417.           (action_tile "tile8" "(set_tile "tile7" "HZ")")
  418.           (action_tile "tile9" "(set_tile "tile7" "XZ")")
  419.           (action_tile "accept" "(setq h1 (atof(get_tile "tileh")))(setq ang (/ (* pi (atof(get_tile "tilea"))) 180))(setq sty (get_tile "tile7"))(done_dialog 1)")
  420.           (action_tile "tilec" "(done_dialog 5)")
  421.           (action_tile "tilepm" "(done_dialog 6)")
  422.           (action_tile "tilelp" "(done_dialog 7)")
  423.           (action_tile "tilezb" "(done_dialog 8)")
  424.           (setq what_next (start_dialog))
  425.                 (cond ((= what_next 4)                                
  426.                                 (new_dialog "xhz1" dcl_id1)
  427.                                 (setq h1 (atof(get_tile "tileh")))
  428.                                 (setq sty (get_tile "tile7"))           
  429.                                 (done_dialog 1)
  430.                                 (setq pt1 (entsel "\n请选择文字写线的实体线?:"))
  431.                                 (setq pt2 (nth 1 pt1))
  432.                                 (setq pt3 (nth 0 pt1))
  433.                                 (setq k3 (osnap pt2 "NEAR"))
  434.                                 (setq pt4 (osnap k3 "ENDPOINT"))
  435.                                 (setq pt5 (osnap k3 "MIDPOINT"))
  436.                                 (setq ang (angle pt5 pt4))
  437.                                 (setq pt1 (nth 1 (grread 5)))
  438.                                 (setvar "CMDECHO" 0)
  439.                                 (setvar "TEXTEVAL" 1)
  440.                                 (setq p (strlen s1))
  441.                                 (setq pt3 (polar pt1 ang p))
  442.                                 (setq pt4 (polar pt1 (+ ang pi) p))
  443.                                 (setvar "TEXTSTYLE" sty)
  444.                                 (command "TEXT" "J" "F" pt3 pt4 h1 s1)
  445.                                 (setvar "TEXTSTYLE" "STANDARD")
  446.                                 (command "MOVE" (entlast) "" pt1 pause"")
  447.                                 (entupd (entlast))
  448.                                 (setvar "CMDECHO" 1)
  449.                                 (unload_dialog dcl_id1)
  450.                                 (exit)
  451.                         )
  452.                         ((= what_next 5)
  453.                                 (dclxz)
  454.                                 (new_dialog "xhz1" dcl_id1)
  455.                                 (set_tile "tile0" (strcat s1 s))
  456.                                 (setq what_next 3)
  457.                         )
  458.                         ((= what_next 6)
  459.                                 (dclpm)
  460.                                 (new_dialog "xhz1" dcl_id1)
  461.                                 (set_tile "tile0" (strcat s1 s))
  462.                                 (setq what_next 3)
  463.                         )
  464.                         ((= what_next 7)
  465.                                 (dcllp)
  466.                                 (new_dialog "xhz1" dcl_id1)
  467.                                 (set_tile "tile0" (strcat s1 s))
  468.                                 (setq what_next 3)
  469.                         )
  470.                         ((= what_next 8)
  471.                                 (dclzb)
  472.                                 (new_dialog "xhz1" dcl_id1)
  473.                                 (set_tile "tile0" (strcat s1 s))
  474.                                 (setq what_next 3)
  475.                         )
  476.                 )   
  477.   )
  478.   (unload_dialog dcl_id1)
  479.   (setvar "CMDECHO" 0)
  480.   (if(/= s1 "")  
  481.                 (progn
  482.                         (setq pt1 (getpoint " \n请在屏幕上给出一点?:"))            
  483.                         (setvar "CMDECHO" 0)
  484.                         (setvar "TEXTEVAL" 1)
  485.                         (setq p (strlen s1))
  486.                         (setq pt4 (polar pt1 ang p))
  487.                         (setq pt3 (polar pt1 (+ ang pi) p))
  488.                         (setvar "TEXTSTYLE" sty)
  489.                         (command "TEXT" "J" "F" pt3 pt4 h1 s1)
  490.                         (setvar "TEXTSTYLE" "STANDARD")
  491.                         (command "MOVE" (entlast) "" pt1 pause"")
  492.                         (entupd (entlast))
  493.                         (setvar "CMDECHO" 1)                    
  494.                         (exit)                          
  495.                 )        
  496.         )  
  497.   (princ)
  498. )
  499. ;;----------------------------------------------------------------------
  500. (defun xhz-dcl (/ lst_str str file f)
  501.         (setq lst_str '(
  502.                   "xhz1:dialog {"
  503.                   " label="请给出有关文字及其参数(编者: 陈传建）?";"
  504.                   " initial_focus=tile0;"
  505.                   "  :boxed_row {"
  506.                   "   label="文字为= :";"
  507.                   "    :edit_box {"
  508.                   "      key="tile0";"
  509.                   "      value="";"
  510.                   "      allow_accept=true;"
  511.                   "    }"
  512.                   "  }"
  513.                   " :boxed_row {"
  514.                   "      ///DCL文件注释形式"
  515.                   "   :radio_button {"
  516.                   "   label="字符->";"
  517.                   "   key="tilec";"
  518.                   "   }"
  519.                   "   :radio_button {"
  520.                   "   label="平面->";"
  521.                   "   key="tilepm";"
  522.                   "   }"
  523.                   "   :radio_button {"
  524.                   "   label="立剖面->";"
  525.                   "   key="tilelp";"
  526.                   "   }"
  527.                   "   :radio_button {"
  528.                   "   label="住宅办公->";"
  529.                   "   key="tilezb";"
  530.                   "   }"  
  531.                   " }  "
  532.                   " :boxed_radio_row {"
  533.                   "  label="字高";"
  534.                   "   :edit_box {"
  535.                   "      key="tileh";"
  536.                   "      value="6";"
  537.                   "      allow_accept=true;"
  538.                   "    }"
  539.                   "   :radio_button {"
  540.                   "   label="8";"
  541.                   "   key="tile1";"
  542.                   "   }"
  543.                   "   :radio_button {"
  544.                   "   label="10";"
  545.                   "   key="tile2";"
  546.                   "   }"
  547.                   "   :radio_button {"
  548.                   "   label="20";"
  549.                   "   key="tile3";"
  550.                   "   }"
  551.                   "  }"
  552.                   " :boxed_radio_row {"
  553.                   "   label="字角度";"
  554.                   "   :edit_box {"
  555.                   "      key="tilea";"
  556.                   "      value="0";"
  557.                   "      allow_accept=true;"
  558.                   "    }"
  559.                   "   :radio_button {"
  560.                   "   label="选择直线<";"
  561.                   "   key="tile4";"
  562.                   "   }"
  563.                   "    :radio_button {"
  564.                   "   label="90";"
  565.                   "   key="tile5";"
  566.                   "   }"
  567.                   "   :radio_button {"
  568.                   "   label="-90";"
  569.                   "   key="tile6";"
  570.                   "   }"
  571.                   "  }"
  572.                   "   :boxed_radio_row {"
  573.                   "   label="文字字型";"
  574.                   "   :edit_box {"
  575.                   "      key="tile7";"
  576.                   "      value="STANDARD";"
  577.                   "      allow_accept=true;"
  578.                   "    }"
  579.                   "   :radio_button {"
  580.                   "   label="细体字";"
  581.                   "   key="tile8";"
  582.                   "   is_default=true;"
  583.                   "   }"
  584.                   "   :radio_button {"
  585.                   "   label="空心字";"
  586.                   "   key="tile9";"
  587.                   "   }"
  588.                   " } "
  589.                   "  ok_only;"
  590.                   "}"
  591.                 )
  592.         )
  593.         (setq file (vl-filename-mktemp "DclTemp.dcl"))
  594.         (setq f (open file "w"))
  595.         (foreach str lst_str
  596.                 (princ "\n" f)
  597.                 (princ str f)
  598.         )
  599.         (close f)
  600.         ;;返回
  601.         file
  602. )
  603. ;;----------------------------------------------------------------------
  604. (defun DCLPM( )
  605.   (if (or (not dcl_id) (< (setq dcl_id(load_dialog (dcl-pm))) 0))
  606.                 (setq dcl_id(load_dialog (dcl-pm))))
  607.   (if (not (new_dialog "dpm" dcl_id))(exit))
  608.         (action_tile "tile0" "(setq pt1 $value)(setq s pt1)(setq n (strlen pt1))")
  609.         (action_tile "tile1" "(setq pt1 "平面")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  610.         (action_tile "tile2" "(setq pt1 "大样")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  611.         (action_tile "tile3" "(setq pt1 "放大")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  612.         (action_tile "tile4" "(setq pt1 "单元")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  613.         (action_tile "tile5" "(setq pt1 "屋面")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  614.         (action_tile "tile6" "(setq pt1 "图")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  615.         (action_tile "tile7" "(setq pt1 "一")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  616.         (action_tile "tile8" "(setq pt1 "二")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  617.         (action_tile "tile9" "(setq pt1 "三")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  618.         (action_tile "tile10" "(setq pt1 "四")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  619.         (action_tile "tile11" "(setq pt1 "五")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  620.         (action_tile "tile12" "(setq pt1 "六")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  621.         (action_tile "tile13" "(setq pt1 "层")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  622.         (action_tile "tile14" "(setq pt1 "标准")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  623.         (action_tile "tile15" "(setq pt1 "单元")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  624.         (action_tile "tile16" "(setq pt1 "厨厕")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  625.         (action_tile "tile17" "(setq pt1 "组合")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  626.         (action_tile "tile18" "(setq pt1 "地下")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  627.         (action_tile "tile19" "(setq pt1 "透视")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  628.         (action_tile "tile20" "(setq pt1 "夹层")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  629.         (action_tile "tile21" "(setq pt1 "详图")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  630.         (action_tile "tile22" "(setq pt1 "总")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  631.         (action_tile "tile23" "(setq pt1 "屋面")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  632.         (action_tile "tile24" "(setq pt1 "排水")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  633.         (action_tile "tile25" "(setq pt1 "楼梯")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  634.         (action_tile "tile26" "(setq pt1 "七")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  635.         (action_tile "tile27" "(setq pt1 "八")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  636.         (action_tile "tile28" "(setq pt1 "九")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  637.         (action_tile "tile29" "(setq pt1 "十")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  638.         (action_tile "tile30" "(setq pt1 "示意")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  639.         (action_tile "tile31" "(setq pt1 "道路")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  640.         (action_tile "tile32" "(setq pt1 "绿化")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  641.         (action_tile "tile33" "(setq pt1 "土方")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  642.         (action_tile "tile34" "(setq pt1 "布置")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  643.         (action_tile "tile35" "(setq pt1 "墙身")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  644.         (action_tile "tile36" "(setq pt1 "规划")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  645.         (action_tile "tile37" "(setq pt1 "现状")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  646.         (action_tile "tile38" "(setq pt1 "竖向")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  647.         (action_tile "tile39" "(setq pt1 "设计")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  648.         (action_tile "tile40" "(setq pt1 "综合")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  649.         (action_tile "tile41" "(setq pt1 "管线")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  650.         (action_tile "tile42" "(setq pt1 "居住")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  651.         (action_tile "tile43" "(setq pt1 "指标")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  652.         (action_tile "tile44" "(setq pt1 "用地")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  653.         (action_tile "tile45" "(setq pt1 "位置")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  654.         (action_tile "tile46" "(setq pt1 "表")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  655.         (action_tile "tile47" "(setq pt1 "单")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  656.         (action_tile "tile48" "(setq pt1 "建筑")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  657.         (action_tile "tile49" "(setq pt1 "材料")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  658.         (action_tile "tile50" "(setq pt1 "报价")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  659.         (action_tile "tile51" "(setq pt1 "预算")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  660.         (action_tile "tile52" "(setq pt1 "梁")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  661.         (action_tile "tile53" "(setq pt1 "柱")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  662.         (action_tile "tile54" "(setq pt1 "门")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  663.         (action_tile "tile55" "(setq pt1 "窗")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  664.         (action_tile "tile56" "(setq pt1 "混凝土")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  665.         (action_tile "tile57" "(setq pt1 "钢")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  666.         (action_tile "tile58" "(setq pt1 "现浇板")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  667.         (action_tile "tile59" "(setq pt1 "结构")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  668.         (action_tile "tile60" "(setq pt1 "配筋")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  669.         (action_tile "accept" "(done_dialog 1)")
  670.         (start_dialog)
  671.         (unload_dialog dcl_id)
  672. )

  674. ;;----------------------------------------------------------------------

  676. (defun DCL-PM (/ lst_str str file f)
  677.         (setq lst_str '(
  678.                   " dpm:dialog {"
  679.                   " label="请给出文字或进行选择（编者：陈传建）:?";"
  680.                   "  initial_focus=tile0;"
  681.                   " :boxed_radio_row {"
  682.                   "   label="文字内容为= :";"
  683.                   "    :edit_box {"
  684.                   "      key="tile0";"
  685.                   "      value="";"
  686.                   "      allow_accept=true;"
  687.                   "    }"
  688.                   "  }"
  689.                   " :boxed_radio_row {"
  690.                   "   :radio_button {"
  691.                   "   label="平面";"
  692.                   "   key="tile1";"
  693.                   "   }"
  694.                   "   :radio_button {"
  695.                   "   label="大样";"
  696.                   "   key="tile2";"
  697.                   "   }"
  698.                   "   :radio_button {"
  699.                   "   label="放大";"
  700.                   "   key="tile3";"
  701.                   "   }"
  702.                   "   :radio_button {"
  703.                   "   label="单元";"
  704.                   "   key="tile4";"
  705.                   "   }"
  706.                   "   :radio_button {"
  707.                   "   label="屋面";"
  708.                   "   key="tile5";"
  709.                   "   }"
  710.                   "   :radio_button {"
  711.                   "   label="图";"
  712.                   "   key="tile6";"
  713.                   "   }"
  714.                   "   :radio_button {"
  715.                   "   label="表";"
  716.                   "   key="tile46";"
  717.                   "   }"
  718.                   "   :radio_button {"
  719.                   "   label="单";"
  720.                   "   key="tile47";"
  721.                   "   }"
  722.                   "  }"
  723.                   " :boxed_radio_row {"
  724.                   "   label="楼层:";"
  725.                   "   :radio_button {"
  726.                   "   label="一";"
  727.                   "   key="tile7";"
  728.                   "   }"
  729.                   "   :radio_button {"
  730.                   "   label="二";"
  731.                   "   key="tile8";"
  732.                   "   }"
  733.                   "   :radio_button {"
  734.                   "   label="三";"
  735.                   "   key="tile9";"
  736.                   "   }"
  737.                   "   :radio_button {"
  738.                   "   label="四";"
  739.                   "   key="tile10";"
  740.                   "   }"
  741.                   "   :radio_button {"
  742.                   "   label="五";"
  743.                   "   key="tile11";"
  744.                   "   }"
  745.                   "   :radio_button {"
  746.                   "   label="六";"
  747.                   "   key="tile12";"
  748.                   "   }"
  749.                   "   :radio_button {"
  750.                   "   label="七";"
  751.                   "   key="tile26";"
  752.                   "   }"
  753.                   "   :radio_button {"
  754.                   "   label="八";"
  755.                   "   key="tile27";"
  756.                   "   }"
  757.                   "   :radio_button {"
  758.                   "   label="九";"
  759.                   "   key="tile28";"
  760.                   "   }"
  761.                   "   :radio_button {"
  762.                   "   label="十";"
  763.                   "   key="tile29";"
  764.                   "   }"
  765.                   "   :radio_button {"
  766.                   "   label="层";"
  767.                   "   key="tile13";"
  768.                   "   }"
  769.                   "  }"
  770.                         " :boxed_radio_row {"
  771.                   "   label="结构:";"
  772.                   "   :radio_button {"
  773.                   "   label="梁";"
  774.                   "   key="tile52";"
  775.                   "   }"
  776.                   "   :radio_button {"
  777.                   "   label="柱";"
  778.                   "   key="tile53";"
  779.                   "   }"
  780.                   "   :radio_button {"
  781.                   "   label="门";"
  782.                   "   key="tile54";"
  783.                   "   }"
  784.                   "   :radio_button {"
  785.                   "   label="窗";"
  786.                   "   key="tile55";"
  787.                   "   }"
  788.                   "   :radio_button {"
  789.                   "   label="混凝土";"
  790.                   "   key="tile56";"
  791.                   "   }"
  792.                   "   :radio_button {"
  793.                   "   label="钢";"
  794.                   "   key="tile57";"
  795.                   "   }"
  796.                   "   :radio_button {"
  797.                   "   label="现浇板";"
  798.                   "   key="tile58";"
  799.                   "   }"
  800.                   "   :radio_button {"
  801.                   "   label="结构";"
  802.                   "   key="tile59";"
  803.                   "   }"
  804.                   "   :radio_button {"
  805.                   "   label="配筋";"
  806.                   "   key="tile60";"
  807.                   "   }"
  808.                   "  }"
  809.                   " :row {"
  810.                   "   label="常用:";"
  811.                   " :column {"
  812.                   "   :radio_button {"
  813.                   "   label="标准";"
  814.                   "   key="tile14";"
  815.                   "   }"
  816.                   "   :radio_button {"
  817.                   "   label="单元";"
  818.                   "   key="tile15";"
  819.                   "   }"
  820.                   "   :radio_button {"
  821.                   "   label="厨厕";"
  822.                   "   key="tile16";"
  823.                   "   }"
  824.                   "   :radio_button {"
  825.                   "   label="组合";"
  826.                   "   key="tile17";"
  827.                   "   }"
  828.                   "  }"
  829.                   " :column {"
  830.                   "   :radio_button {"
  831.                   "   label="地下";"
  832.                   "   key="tile18";"
  833.                   "   }"
  834.                   "   :radio_button {"
  835.                   "   label="透视";"
  836.                   "   key="tile19";"
  837.                   "   }"
  838.                   "   :radio_button {"
  839.                   "   label="夹层";"
  840.                   "   key="tile20";"
  841.                   "   }"
  842.                   "   :radio_button {"
  843.                   "   label="详图";"
  844.                   "   key="tile21";"
  845.                   "   }"
  846.                   "  }"
  847.                   " :column {"
  848.                   "   :radio_button {"
  849.                   "   label="总";"
  850.                   "   key="tile22";"
  851.                   "   }"
  852.                   "   :radio_button {"
  853.                   "   label="屋面";"
  854.                   "   key="tile23";"
  855.                   "   }"
  856.                   "   :radio_button {"
  857.                   "   label="排水";"
  858.                   "   key="tile24";"
  859.                   "   }"
  860.                   "   :radio_button {"
  861.                   "   label="楼梯";"
  862.                   "   key="tile25";"
  863.                   "   }"
  864.                   "  }"
  865.                   " :column {"
  866.                   "   :radio_button {"
  867.                   "   label="示意";"
  868.                   "   key="tile30";"
  869.                   "   }"
  870.                   "   :radio_button {"
  871.                   "   label="道路";"
  872.                   "   key="tile31";"
  873.                   "   }"
  874.                   "   :radio_button {"
  875.                   "   label="绿化";"
  876.                   "   key="tile32";"
  877.                   "   }"
  878.                   "   :radio_button {"
  879.                   "   label="土方";"
  880.                   "   key="tile33";"
  881.                   "   }"
  882.                   "  }"
  883.                         " :column {"
  884.                   "   :radio_button {"
  885.                   "   label="布置";"
  886.                   "   key="tile34";"
  887.                   "   }"
  888.                   "   :radio_button {"
  889.                   "   label="墙身";"
  890.                   "   key="tile35";"
  891.                   "   }"
  892.                   "   :radio_button {"
  893.                   "   label="规划";"
  894.                   "   key="tile36";"
  895.                   "   }"
  896.                   "   :radio_button {"
  897.                   "   label="现状";"
  898.                   "   key="tile37";"
  899.                   "   }"
  900.                   "  }"
  901.                         " :column {"
  902.                   "   :radio_button {"
  903.                   "   label="竖向";"
  904.                   "   key="tile38";"
  905.                   "   }"
  906.                   "   :radio_button {"
  907.                   "   label="设计";"
  908.                   "   key="tile39";"
  909.                   "   }"
  910.                   "   :radio_button {"
  911.                   "   label="综合";"
  912.                   "   key="tile40";"
  913.                   "   }"
  914.                   "   :radio_button {"
  915.                   "   label="管线";"
  916.                   "   key="tile41";"
  917.                   "   }"
  918.                   "  }"
  919.                         " :column {"
  920.                   "   :radio_button {"
  921.                   "   label="居住";"
  922.                   "   key="tile42";"
  923.                   "   }"
  924.                   "   :radio_button {"
  925.                   "   label="指标";"
  926.                   "   key="tile43";"
  927.                   "   }"
  928.                   "   :radio_button {"
  929.                   "   label="用地";"
  930.                   "   key="tile44";"
  931.                   "   }"
  932.                   "   :radio_button {"
  933.                   "   label="位置";"
  934.                   "   key="tile45";"
  935.                   "   }"
  936.                   "  }"
  937.                         " :column {"
  938.                   "   :radio_button {"
  939.                   "   label="建筑";"
  940.                   "   key="tile48";"
  941.                   "   }"
  942.                   "   :radio_button {"
  943.                   "   label="材料";"
  944.                   "   key="tile49";"
  945.                   "   }"
  946.                   "   :radio_button {"
  947.                   "   label="报价";"
  948.                   "   key="tile50";"
  949.                   "   }"
  950.                   "   :radio_button {"
  951.                   "   label="预算";"
  952.                   "   key="tile51";"
  953.                   "   }"
  954.                   "  }"
  955.                   " }"  
  956.                   "  ok_cancel;"
  957.                   " }"
  958.           )
  959.         )
  960.         (setq file (vl-filename-mktemp "DclTemp.dcl"))
  961.         (setq f (open file "w"))
  962.         (foreach str lst_str
  963.                 (princ "\n" f)
  964.                 (princ str f)
  965.         )
  966.         (close f)
  967.         ;;返回
  968.         file
  969. )
  970. ;;---------------------------------------------------------

  972. (defun DCLLP( )
  973.   (if (or (not dcl_id) (< (setq dcl_id(load_dialog (dcl-lp))) 0))
  974.                 (setq dcl_id(load_dialog (dcl-lp))))
  975.   (if (not (new_dialog "dlp" dcl_id))(exit))
  976.         (action_tile "tile0" "(setq pt1 $value)(setq s pt1)(setq n (strlen pt1))")
  977.         (action_tile "tile1" "(setq pt1 "立面")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  978.         (action_tile "tile2" "(setq pt1 "剖面")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  979.         (action_tile "tile3" "(setq pt1 "东")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  980.         (action_tile "tile4" "(setq pt1 "西")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  981.         (action_tile "tile5" "(setq pt1 "南")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  982.         (action_tile "tile6" "(setq pt1 "北")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  983.         (action_tile "tile7" "(setq pt1 "正")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  984.         (action_tile "tile8" "(setq pt1 "侧")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  985.         (action_tile "tile9" "(setq pt1 "背")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  986.         (action_tile "tile10" "(setq pt1 "1-1")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  987.         (action_tile "tile11" "(setq pt1 "2-2")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  988.         (action_tile "tile12" "(setq pt1 "3-3")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  989.         (action_tile "tile13" "(setq pt1 "4-4")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  990.         (action_tile "tile14" "(setq pt1 "A-A")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  991.         (action_tile "tile15" "(setq pt1 "B-B")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  992.         (action_tile "tile16" "(setq pt1 "C-C")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  993.         (action_tile "tile17" "(setq pt1 "D-D")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  994.         (action_tile "tile18" "(setq pt1 "图")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  995.         (action_tile "accept" "(done_dialog 1)")
  996.         (start_dialog)
  997.         (unload_dialog dcl_id)
  998. )

  1000. ;;----------------------------------------------------------------------

  1002. (defun DCL-LP (/ lst_str str file f)
  1003.         (setq lst_str '(
  1004.                   " dlp:dialog {"
  1005.                   " label="请给出文字或进行选择（编者：陈传建）:?";"
  1006.                   "  initial_focus=tile0;"
  1007.                   " :boxed_radio_row {"
  1008.                   "   label="文字内容为= :";"
  1009.                   "    :edit_box {"
  1010.                   "      key="tile0";"
  1011.                   "      value="";"
  1012.                   "      allow_accept=true;"
  1013.                   "    }"
  1014.                   "  }"
  1015.                   " :boxed_radio_row {"
  1016.                   "   :radio_button {"
  1017.                   "   label="立面";"
  1018.                   "   key="tile1";"
  1019.                   "   }"
  1020.                   "   :radio_button {"
  1021.                   "   label="剖面";"
  1022.                   "   key="tile2";"
  1023.                   "   }"
  1024.                   "   :radio_button {"
  1025.                   "   label="东";"
  1026.                   "   key="tile3";"
  1027.                   "   }"
  1028.                   "   :radio_button {"
  1029.                   "   label="西";"
  1030.                   "   key="tile4";"
  1031.                   "   }"
  1032.                   "   :radio_button {"
  1033.                   "   label="南";"
  1034.                   "   key="tile5";"
  1035.                   "   }"
  1036.                   "   :radio_button {"
  1037.                   "   label="北";"
  1038.                   "   key="tile6";"
  1039.                   "   }"
  1040.                   "   :radio_button {"
  1041.                   "   label="正";"
  1042.                   "   key="tile7";"
  1043.                   "   }"
  1044.                   "   :radio_button {"
  1045.                   "   label="侧";"
  1046.                   "   key="tile8";"
  1047.                   "   }"
  1048.                   "   :radio_button {"
  1049.                   "   label="背";"
  1050.                   "   key="tile9";"
  1051.                   "   }"
  1052.                   "   :radio_button {"
  1053.                   "   label="图";"
  1054.                   "   key="tile18";"
  1055.                   "   }"
  1056.                   "  }"
  1057.                   " :boxed_radio_row {"
  1058.                   "   label="符号:";"
  1059.                   "   :radio_button {"
  1060.                   "   label="1-1";"
  1061.                   "   key="tile10";"
  1062.                   "   }"
  1063.                   "   :radio_button {"
  1064.                   "   label="2-2";"
  1065.                   "   key="tile11";"
  1066.                   "   }"
  1067.                   "   :radio_button {"
  1068.                   "   label="3-3";"
  1069.                   "   key="tile12";"
  1070.                   "   }"
  1071.                   "   :radio_button {"
  1072.                   "   label="4-4";"
  1073.                   "   key="tile13";"
  1074.                   "   }"
  1075.                   "   :radio_button {"
  1076.                   "   label="A-A";"
  1077.                   "   key="tile14";"
  1078.                   "   }"
  1079.                   "   :radio_button {"
  1080.                   "   label="B-B";"
  1081.                   "   key="tile15";"
  1082.                   "   }"
  1083.                   "   :radio_button {"
  1084.                   "   label="C-C";"
  1085.                   "   key="tile16";"
  1086.                   "   }"
  1087.                   "   :radio_button {"
  1088.                   "   label="D-D";"
  1089.                   "   key="tile17";"
  1090.                   "   }"
  1091.                   "   }"
  1092.                   "  ok_cancel;"
  1093.                   " }"
  1094.                 )
  1095.         )
  1096.         (setq file (vl-filename-mktemp "DclTemp.dcl"))
  1097.         (setq f (open file "w"))
  1098.         (foreach str lst_str
  1099.                 (princ "\n" f)
  1100.                 (princ str f)
  1101.         )
  1102.         (close f)
  1103.         ;;返回
  1104.         file
  1105. )
  1106. ;;------------------------------------------------------------
  1107. (defun DCLZB( )
  1108.   (if (or (not dcl_id) (< (setq dcl_id(load_dialog (dcl-zb))) 0))
  1109.                 (setq dcl_id(load_dialog (dcl-zb))))
  1110.   (if (not (new_dialog "dzb" dcl_id))(exit))
  1111.         (action_tile "tile0" "(setq pt1 $value)(setq s pt1)(setq n (strlen pt1))")
  1112.         (action_tile "tile1" "(setq pt1 "室")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1113.         (action_tile "tile2" "(setq pt1 "空间")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1114.         (action_tile "tile3" "(setq pt1 "示意")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1115.         (action_tile "tile4" "(setq pt1 "主")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1116.         (action_tile "tile5" "(setq pt1 "前")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1117.         (action_tile "tile6" "(setq pt1 "后")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1118.         (action_tile "tile7" "(setq pt1 "正")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1119.         (action_tile "tile8" "(setq pt1 "侧")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1120.         (action_tile "tile9" "(setq pt1 "间")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1121.         (action_tile "tile10" "(setq pt1 "门厅")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1122.         (action_tile "tile11" "(setq pt1 "卧室")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1123.         (action_tile "tile12" "(setq pt1 "起居")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1124.         (action_tile "tile13" "(setq pt1 "会客")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1125.         (action_tile "tile14" "(setq pt1 "餐厅")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1126.         (action_tile "tile15" "(setq pt1 "厨房")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1127.         (action_tile "tile16" "(setq pt1 "盥洗")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1128.         (action_tile "tile17" "(setq pt1 "卫生")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1129.         (action_tile "tile18" "(setq pt1 "厕所")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1130.         (action_tile "tile19" "(setq pt1 "书房")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1131.         (action_tile "tile20" "(setq pt1 "过厅")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1132.         (action_tile "tile21" "(setq pt1 "过道")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1133.         (action_tile "tile22" "(setq pt1 "走廊")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1134.         (action_tile "tile23" "(setq pt1 "储藏")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1135.         (action_tile "tile24" "(setq pt1 "楼梯")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1136.         (action_tile "tile25" "(setq pt1 "壁柜")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1137.         (action_tile "tile26" "(setq pt1 "冰箱")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1138.         (action_tile "tile27" "(setq pt1 "洗衣机")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1139.         (action_tile "tile28" "(setq pt1 "活动")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1140.         (action_tile "tile29" "(setq pt1 "会议")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1141.         (action_tile "tile30" "(setq pt1 "值班")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1142.         (action_tile "tile31" "(setq pt1 "办公")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1143.         (action_tile "tile32" "(setq pt1 "接待")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1144.         (action_tile "tile33" "(setq pt1 "休息")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1145.         (action_tile "tile34" "(setq pt1 "微机")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1146.         (action_tile "tile35" "(setq pt1 "打字")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1147.         (action_tile "tile36" "(setq pt1 "档案")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1148.         (action_tile "tile37" "(setq pt1 "电梯")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1149.         (action_tile "tile38" "(setq pt1 "财务")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1150.         (action_tile "tile39" "(setq pt1 "秘书")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1151.         (action_tile "tile40" "(setq pt1 "库房")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1152.         (action_tile "tile41" "(setq pt1 "写字")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1153.         (action_tile "tile42" "(setq pt1 "开水")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1154.         (action_tile "tile43" "(setq pt1 "洗消")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1155.         (action_tile "tile44" "(setq pt1 "消防")(setq s (strcat s pt1))(setq n (+ n 1))(set_tile "tile0" s)")
  1156.         (action_tile "accept" "(done_dialog 1)")
  1157.         (start_dialog)
  1158.         (unload_dialog dcl_id)
  1159. )

  1161. ;;----------------------------------------------------------------------

  1163. (defun DCL-ZB (/ lst_str str file f)
  1164.         (setq lst_str '(
  1165.                   " dzb:dialog {"
  1166.                   " label="请给出文字或进行选择（编者：陈传建）:?";"
  1167.                   "  initial_focus=tile0;"
  1168.                   " :boxed_radio_row {"
  1169.                   "   label="文字内容为= :";"
  1170.                   "    :edit_box {"
  1171.                   "      key="tile0";"
  1172.                   "      value="";"
  1173.                   "      allow_accept=true;"
  1174.                   "    }"
  1175.                   "  }"
  1176.                   " :boxed_radio_row {"
  1177.                   "   :radio_button {"
  1178.                   "   label="室";"
  1179.                   "   key="tile1";"
  1180.                   "   }"
  1181.                   "   :radio_button {"
  1182.                   "   label="空间";"
  1183.                   "   key="tile2";"
  1184.                   "   }"
  1185.                   "   :radio_button {"
  1186.                   "   label="示意";"
  1187.                   "   key="tile3";"
  1188.                   "   }"
  1189.                   "   :radio_button {"
  1190.                   "   label="主";"
  1191.                   "   key="tile4";"
  1192.                   "   }"
  1193.                   "   :radio_button {"
  1194.                   "   label="前";"
  1195.                   "   key="tile5";"
  1196.                   "   }"
  1197.                   "   :radio_button {"
  1198.                   "   label="后";"
  1199.                   "   key="tile6";"
  1200.                   "   }"
  1201.                   "   :radio_button {"
  1202.                   "   label="正";"
  1203.                   "   key="tile7";"
  1204.                   "   }"
  1205.                   "   :radio_button {"
  1206.                   "   label="侧";"
  1207.                   "   key="tile8";"
  1208.                   "   }"
  1209.                   "   :radio_button {"
  1210.                   "   label="间";"
  1211.                   "   key="tile9";"
  1212.                   "   }"
  1213.                   "  }"
  1214.                   " :row {"
  1215.                   "   label="房间名:";"
  1216.                   "   :column {"  
  1217.                   "   :radio_button {"
  1218.                   "   label="门厅";"
  1219.                   "   key="tile10";"
  1220.                   "   }"
  1221.                   "   :radio_button {"
  1222.                   "   label="卧室";"
  1223.                   "   key="tile11";"
  1224.                   "   }"
  1225.                   "   :radio_button {"
  1226.                   "   label="起居";"
  1227.                   "   key="tile12";"
  1228.                   "   }"
  1229.                   "   :radio_button {"
  1230.                   "   label="会客";"
  1231.                   "   key="tile13";"
  1232.                   "   }"
  1233.                   "   :radio_button {"
  1234.                   "   label="餐厅";"
  1235.                   "   key="tile14";"
  1236.                   "   }"
  1237.                   "  }"
  1238.                   "   :column {"
  1239.                   "   :radio_button {"
  1240.                   "   label="厨房";"
  1241.                   "   key="tile15";"
  1242.                   "   }"
  1243.                   "   :radio_button {"
  1244.                   "   label="盥洗";"
  1245.                   "   key="tile16";"
  1246.                   "   }"
  1247.                   "   :radio_button {"
  1248.                   "   label="卫生";"
  1249.                   "   key="tile17";"
  1250.                   "   }"
  1251.                   "   :radio_button {"
  1252.                   "   label="厕所";"
  1253.                   "   key="tile18";"
  1254.                   "   }"
  1255.                   "   :radio_button {"
  1256.                   "   label="书房";"
  1257.                   "   key="tile19";"
  1258.                   "   }"
  1259.                   "   }"
  1260.                   "   :column {"  
  1261.                   "   :radio_button {"
  1262.                   "   label="过厅";"
  1263.                   "   key="tile20";"
  1264.                   "   }"
  1265.                   "   :radio_button {"
  1266.                   "   label="过道";"
  1267.                   "   key="tile21";"
  1268.                   "   }"
  1269.                   "   :radio_button {"
  1270.                   "   label="走廊";"
  1271.                   "   key="tile22";"
  1272.                   "   }"
  1273.                   "   :radio_button {"
  1274.                   "   label="储藏";"
  1275.                   "   key="tile23";"
  1276.                   "   }"
  1277.                   "   :radio_button {"
  1278.                   "   label="楼梯";"
  1279.                   "   key="tile24";"
  1280.                   "   }"
  1281.                   "  }"
  1282.                   "   :column {"  
  1283.                   "   :radio_button {"
  1284.                   "   label="壁柜";"
  1285.                   "   key="tile25";"
  1286.                   "   }"
  1287.                   "   :radio_button {"
  1288.                   "   label="冰箱";"
  1289.                   "   key="tile26";"
  1290.                   "   }"
  1291.                   "   :radio_button {"
  1292.                   "   label="洗衣机";"
  1293.                   "   key="tile27";"
  1294.                   "   }"
  1295.                   "   :radio_button {"
  1296.                   "   label="活动";"
  1297.                   "   key="tile28";"
  1298.                   "   }"
  1299.                   "   :radio_button {"
  1300.                   "   label="会议";"
  1301.                   "   key="tile29";"
  1302.                   "   }"
  1303.                   "  }"
  1304.                   "   :column {"  
  1305.                   "   :radio_button {"
  1306.                   "   label="值班";"
  1307.                   "   key="tile30";"
  1308.                   "   }"
  1309.                   "   :radio_button {"
  1310.                   "   label="办公";"
  1311.                   "   key="tile31";"
  1312.                   "   }"
  1313.                   "   :radio_button {"
  1314.                   "   label="接待";"
  1315.                   "   key="tile32";"
  1316.                   "   }"
  1317.                   "   :radio_button {"
  1318.                   "   label="休息";"
  1319.                   "   key="tile33";"
  1320.                   "   }"
  1321.                   "   :radio_button {"
  1322.                   "   label="微机";"
  1323.                   "   key="tile34";"
  1324.                   "   }"
  1325.                   "  }"   
  1326.                   "   :column {"  
  1327.                   "   :radio_button {"
  1328.                   "   label="打字";"
  1329.                   "   key="tile35";"
  1330.                   "   }"
  1331.                   "   :radio_button {"
  1332.                   "   label="档案";"
  1333.                   "   key="tile36";"
  1334.                   "   }"
  1335.                   "   :radio_button {"
  1336.                   "   label="电梯";"
  1337.                   "   key="tile37";"
  1338.                   "   }"
  1339.                   "   :radio_button {"
  1340.                   "   label="财务";"
  1341.                   "   key="tile38";"
  1342.                   "   }"
  1343.                   "   :radio_button {"
  1344.                   "   label="秘书";"
  1345.                   "   key="tile39";"
  1346.                   "   }"
  1347.                   "  }"   
  1348.                   "   :column {"  
  1349.                   "   :radio_button {"
  1350.                   "   label="库房";"
  1351.                   "   key="tile40";"
  1352.                   "   }"
  1353.                   "   :radio_button {"
  1354.                   "   label="写字";"
  1355.                   "   key="tile41";"
  1356.                   "   }"
  1357.                   "   :radio_button {"
  1358.                   "   label="开水";"
  1359.                   "   key="tile42";"
  1360.                   "   }"
  1361.                   "   :radio_button {"
  1362.                   "   label="洗消";"
  1363.                   "   key="tile43";"
  1364.                   "   }"
  1365.                   "   :radio_button {"
  1366.                   "   label="消防";"
  1367.                   "   key="tile44";"
  1368.                   "   }"
  1369.                   "  }"
  1370.                   "  }"   
  1371.                   "  ok_cancel;"
  1372.                   " }"
  1373.                 )
  1374.         )
  1375.         (setq file (vl-filename-mktemp "DclTemp.dcl"))
  1376.         (setq f (open file "w"))
  1377.         (foreach str lst_str
  1378.                 (princ "\n" f)
  1379.                 (princ str f)
  1380.         )
  1381.         (close f)
  1382.         ;;返回
  1383.         file
  1384. )
  1385. ;;----------------------------------------------------------------------
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-24 00:19 , Processed in 0.208437 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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