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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › 源码共享 › [求助]斑竹 。帮忙编个程序好吗？？
返回列表 发新帖
查看: 2992|回复: 8

[求助]斑竹 。帮忙编个程序好吗？？

[复制链接]
lxyufo
发表于 2003-5-14 09:35:00 | 显示全部楼层 |阅读模式

背面是图幅
通过 点击 “图幅对话框”的 确定 来 将 一张图幅插入的CAD中。 A0 A1 A2...............代表的是 固定大小尺寸的 图幅
分 “横向 纵向” 总共14张。
例如： 点击 A1 纵向 后这是一张图， 当点击 不同的 比例时 这张图幅 随着 所选的 比例 变化。
就是这个 要求。。谢谢斑竹

本帖子中包含更多资源

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

x
回复

使用道具 举报

leeyeafu
发表于 2003-5-14 11:18:00 | 显示全部楼层

这样的程序应该不太困难，给个思路，最好你自己亲自编程

首先你可以手工制作14张图并以不同的文件名存盘。在用户点击“确定”后，根据图幅、方向控件组中各控件值来决定插入不同的存盘文件，根据比例输入决定插入的比例。你若熟悉LISP语言的话，很容易编写出自己的程序。若还不太熟悉LISP，也应该利用LISP帮助尝试自己编程。你已经能够编写不错的DCL，可以循序渐近地学习LISP语言了。
在编程过程中有什么具体问题，欢迎继续提问。
回复 支持 反对

使用道具 举报

lxyufo
 楼主| 发表于 2003-5-14 13:55:00 | 显示全部楼层

斑竹  我自己也编了一段  但是 怎么让图幅随所选比例插入不会

本帖最后由 作者 于 2003-5-14 13:55:45 编辑

斑竹  我自己也编了一段  但是 怎么让图幅随所选比例插入不会写。请指教！！谢谢！1[求助][br]请你看一下 请 指教  图幅随所选比例插入 这段代码怎么写？
回复 支持 反对

使用道具 举报

leeyeafu
发表于 2003-5-14 15:04:00 | 显示全部楼层

Re:

我不是学机械的，对于不同的比例，图幅有什么不同，我不太清楚。但是我认为你能回答这个问题，把比例和图幅的关系整理出来并数学化，然后将数学语言转换成程序设计语言，这就是通常的算法设计方法。
回复 支持 反对

使用道具 举报

webhun
发表于 2003-6-11 14:18:00 | 显示全部楼层

我现没ACAD，没看你的程序，但我想可以如内解决

1、如果用leeyeafu的思路，则使用图块插入命令把图框作为图块插入，插入命令有比例选项。
2、如果是用程序完成绘图过程，则首先确定一个基准点，然后用实际尺寸X比例因子所得的数值来计算其余点的坐标。
  不知现在回答是否有些晚?
回复 支持 反对

使用道具 举报

ltqt007
发表于 2003-7-20 16:30:00 | 显示全部楼层
这个程序好做，可以参照教程。
回复 支持 反对

使用道具 举报

jingsabing
发表于 2003-7-20 17:00:00 | 显示全部楼层
我的工具中有这个程序,只和你的要求有一点点不同
LISP代码给你,也可以在LISP中去找,以前我发过

  2. ;这是一个基于AutoCad 14.0下关于图框的插入的程序
  3. ;它可以插入A0-A4的图框；同时删除以前的图框
  4. ;本程序作者b.w
  5. ;本程序无偿使用
  6. ;如有更好建议，请联系b.w
  7. ;版本:1.1.00
  8. ;日期:27/12-2001

  10.   (cond
  11.      (  (and ai_dcl (listp ai_dcl)))          ; it's already loaded.

  13.      (  (not (findfile "ai_utils.lsp"))                     ; find it
  14.         (ai_abort "DDMODIFY"
  15.                   (strcat "Can't locate file AI_UTILS.LSP."
  16.                           "\n Check support directory.")))

  18.      (  (eq "failed" (load "ai_utils" "failed"))            ; load it
  19.         (ai_abort "DDMODIFY" "Can't load file AI_UTILS.LSP"))
  20.   )

  22. (defun B_DRAWING_HILITE
  23.   (
  24.   B_drawing_tile
  25.   /
  26.   )
  27.   (if (/= B_drawing_last_slide B_drawing_tile)
  28.      (progn
  29.         (mode_tile B_drawing_tile 4)
  30.         (if (/= B_drawing_last_slide nil)
  31.            (mode_tile B_drawing_last_slide 4)
  32.         );end-if
  33.      );end-progn
  34.   );end-if
  35.   (setq B_drawing_last_slide B_drawing_tile)
  36. );end-B_DRAWING_HILITE

  38. (defun B_DRAWING_STAR;启动幻灯片
  39.   (
  40.   /
  41.   )
  42.   (foreach B_DRAWING '("B_DRAWING_A4" "B_DRAWING_A3" "B_DRAWING_A2" "B_DRAWING_A1" "B_DRAWING_A0" "B_DRAWING_A4_ZP" "B_DRAWING_A3_ZP" "B_DRAWING_A2_ZP" "B_DRAWING_A1_ZP" "B_DRAWING_A0_ZP"
  43.     );对幻灯片库中的各幻灯片建立图象
  44.     (start_image B_DRAWING)
  45.     (slide_image 0 0 (dimx_tile B_DRAWING) (dimy_tile B_DRAWING) (strcat "B_DRAWING("B_DRAWING")")
  46.     );end-silde_image从幻灯片库中调入幻灯片
  47.     (end_image)
  48.   );end-foreach
  49. );end-B_DRAWING_STAR

  51. (defun B_DRAWING_INIT;起动DCL，选择图框并分别赋值
  52.   (
  53.   /
  54.   B_drawing_id
  55.   B_drawing_old_cmd
  56.   stat
  57.   )
  58.   (setq B_drawing_old_cmd (getvar "CMDECHO"))
  59.   (setvar "CMDECHO" 0)
  60.   (setq B_drawing_id (load_dialog "B_DRAWING"));装入B_DRAWING.DCL
  61.   (if (not (new_dialog "B_DRAWING" B_drawing_id))
  62.      (exit)
  63.   );end-if
  64.   (B_DRAWING_STAR)
  65.   (setq stat 0)
  66.   (set_tile "B_DRAWING_SCALE_DCL"  (ai_rtos (setq B_drawing_scale 1.0)))
  67.   (set_tile "B_DRAWING_A4" (ai_rtos (setq stat 10104)))
  68.   (action_tile "B_DRAWING_A4" "(B_DRAWING_HILITE B_DRAWING_A4) (setq stat 10104)")
  69.   (action_tile "B_DRAWING_A3" "(B_DRAWING_HILITE B_DRAWING_A3) (setq stat 10103)")
  70.   (action_tile "B_DRAWING_A2" "(B_DRAWING_HILITE B_DRAWING_A2) (setq stat 10102)")
  71.   (action_tile "B_DRAWING_A1" "(B_DRAWING_HILITE B_DRAWING_A1) (setq stat 10101)")
  72.   (action_tile "B_DRAWING_A0" "(B_DRAWING_HILITE B_DRAWING_A0) (setq stat 10100)")
  73.   (action_tile "B_DRAWING_A4_ZP" "(B_DRAWING_HILITE B_DRAWING_A4_ZP) (setq stat 10114)")
  74.   (action_tile "B_DRAWING_A3_ZP" "(B_DRAWING_HILITE B_DRAWING_A3_ZP) (setq stat 10113)")
  75.   (action_tile "B_DRAWING_A2_ZP" "(B_DRAWING_HILITE B_DRAWING_A2_ZP) (setq stat 10112)")
  76.   (action_tile "B_DRAWING_A1_ZP" "(B_DRAWING_HILITE B_DRAWING_A1_ZP) (setq stat 10111)")
  77.   (action_tile "B_DRAWING_A0_ZP" "(B_DRAWING_HILITE B_DRAWING_A0_ZP) (setq stat 10110)")
  78.   (action_tile "B_DRAWING_SCALE_DCL" "(setq B_drawing_scale (distof $value))")
  79.   (action_tile "cancel" "(done_dialog)(exit)")
  80.   (action_tile "accept" "(done_dialog stat)");初始化ACCDPT
  81.   (setq B_drawing_what (start_dialog))
  82.   (setvar "USERR1" B_drawing_scale)
  83.   (cond
  84.     ((= B_drawing_what 10100)
  85.       (setvar "USERI1" 1)
  86.       (setq B_drawing_name "*B_DRAWING_A0")
  87.      (setq B_drawing_date_x (* B_drawing_scale 999.0))
  88.       (setq B_drawing_date (list B_drawing_date_x (* B_drawing_scale 10.0) 0.0))
  89.       (setq B_drawing_x_scale 1)
  90.       (setq B_drawing_y_scale 1)
  91.     )
  92.     ((= B_drawing_what 10101)
  93.       (setvar "USERI1" 1)
  94.       (setq B_drawing_name "*B_DRAWING_A1")
  95.       (setq B_drawing_date_x (* B_drawing_scale 651.0))
  96.       (setq B_drawing_date (list B_drawing_date_x (* B_drawing_scale 10.0) 0.0))
  97.       (setq B_drawing_x_scale 1)
  98.       (setq B_drawing_y_scale 1)
  99.     )
  100.     ((= B_drawing_what 10102)
  101.       (setvar "USERI1" 1)
  102.       (setq B_drawing_name "*B_DRAWING_A2")
  103.       (setq B_drawing_date_x (* B_drawing_scale 404.0))
  104.       (setq B_drawing_date (list B_drawing_date_x (* B_drawing_scale 10.0) 0.0))
  105.       (setq B_drawing_x_scale 1)
  106.       (setq B_drawing_y_scale 1)
  107.     )
  108.     ((= B_drawing_what 10103)
  109.       (setvar "USERI1" 1)
  110.       (setq B_drawing_name "*B_DRAWING_A3")
  111.       (setq B_drawing_date_x (* B_drawing_scale 235.0))
  112.       (setq B_drawing_date (list B_drawing_date_x (* B_drawing_scale 5.0) 0.0))
  113.       (setq B_drawing_x_scale 1)
  114.       (setq B_drawing_y_scale 1)
  115.     )
  116.     ((= B_drawing_what 10104)
  117.       (setvar "USERI1" 1)
  118.       (setq B_drawing_name "*B_DRAWING_A4")
  119.       (setq B_drawing_date_x (* B_drawing_scale 25.0))
  120.       (setq B_drawing_date (list B_drawing_date_x (* B_drawing_scale 5.0) 0.0))
  121.       (setq B_drawing_x_scale 1)
  122.       (setq B_drawing_y_scale 1)
  123.     )
  124.     ((= B_drawing_what 10110)
  125.       (setvar "USERI1" 1)
  126.       (setq B_drawing_name "*B_DRAWING_A0_ZP")
  127.       (setq B_drawing_date_x (* B_drawing_scale 999.0))
  128.       (setq B_drawing_date (list B_drawing_date_x (* B_drawing_scale 10.0) 0.0))
  129.       (setq B_drawing_x_scale 1)
  130.       (setq B_drawing_y_scale 1)
  131.     )
  132.     ((= B_drawing_what 10111)
  133.       (setvar "USERI1" 1)
  134.       (setq B_drawing_name "*B_DRAWING_A1_ZP")
  135.       (setq B_drawing_date_x (* B_drawing_scale 651.0))
  136.       (setq B_drawing_date (list B_drawing_date_x (* B_drawing_scale 10.0) 0.0))
  137.       (setq B_drawing_x_scale 1)
  138.       (setq B_drawing_y_scale 1)
  139.     )
  140.     ((= B_drawing_what 10112)
  141.       (setvar "USERI1" 1)
  142.       (setq B_drawing_name "*B_DRAWING_A2_ZP")
  143.       (setq B_drawing_date_x (* B_drawing_scale 404.0))
  144.       (setq B_drawing_date (list B_drawing_date_x (* B_drawing_scale 10.0) 0.0))
  145.       (setq B_drawing_x_scale 1)
  146.       (setq B_drawing_y_scale 1)
  147.     )
  148.     ((= B_drawing_what 10113)
  149.       (setvar "USERI1" 1)
  150.       (setq B_drawing_name "*B_DRAWING_A3_ZP")
  151.       (setq B_drawing_date_x (* B_drawing_scale 235.0))
  152.       (setq B_drawing_date (list B_drawing_date_x (* B_drawing_scale 5.0) 0.0))
  153.       (setq B_drawing_x_scale 1)
  154.       (setq B_drawing_y_scale 1)
  155.     )
  156.     ((= B_drawing_what 10114)
  157.       (setvar "USERI1" 1)
  158.       (setq B_drawing_name "*B_DRAWING_A4_ZP")
  159.       (setq B_drawing_date_x (* B_drawing_scale 25.0))
  160.       (setq B_drawing_date (list B_drawing_date_x (* B_drawing_scale 5.0) 0.0))
  161.       (setq B_drawing_x_scale 1)
  162.       (setq B_drawing_y_scale 1)
  163.     )
  164. );end-cond

  166. );end-B_DRAWING_INIT

  168. (defun B_DRAWING_INS;无图框时插入图框
  169.   (
  170.   /
  171.   )
  172.   (if (null B_INITVAR_SYS) (load "B_INITVAR_SYS"))
  173.   (B_INITVAR_SYS)
  174.   (setvar "OSMODE"        0)
  175.   (command "insert" B_drawing_name "0,0,0" B_drawing_scale "0")
  176.   (command "zoom" "e")
  177.   (setvar "ATTDIA"        1)
  178.   (setq B_drawing_date_layer (getvar "CLAYER"))
  179.   (if (tblsearch "layer" "P_TEMPLATE")
  180.     (setvar "CLAYER" "P_TEMPLATE")
  181.   );end-if

  183.   (command "insert" "B_DRAWING_DATA" B_drawing_date B_drawing_date_scale_x0 B_drawing_date_scale_y0 "0")
  184.   (setvar "CLAYER" B_drawing_date_layer)
  185.   (setvar "OSMODE"        51)
  186. );end-B_DRAWING_INS

  188. (defun B_DRAWING_CHANGE;更改图框
  189.   (
  190.   /
  191.   B_drawing_block_sset
  192.   B_drawing_attrib_ent
  193.   B_drawing_attrib_data
  194.   B_drawing_attrib_list
  195.   B_drawing_dwgset
  196.   B_drawing_attrib_input
  197.   )
  198.   (if (ssget "x" (list (cons 0 "INSERT") (cons 2 "B_DRAWING_DATA")))
  199.     (progn
  200.       (setq B_drawing_block_sset (ssget "x" (list (cons 0 "INSERT") (cons 2 "B_DRAWING_DATA"))))
  201.       (setq B_drawing_attrib_ent (entnext (ssname B_drawing_block_sset 0)))
  202.       (while (/= (cdr (assoc 0 (entget B_drawing_attrib_ent))) "SEQEND")
  203.         (setq B_drawing_attrib_data (cdr (assoc 1 (entget B_drawing_attrib_ent))))
  204.         (setq B_drawing_attrib_list (append B_drawing_attrib_list (list B_drawing_attrib_data)))
  205.         (setq B_drawing_attrib_ent (entnext B_drawing_attrib_ent))
  206.       );end-while取B_DRAWING_DATA块的属性值
  207.       (setq B_drawing_dwgset (ssget "x" (list (cons 8 "P_TEMPLATE"))))
  208.       (if B_drawing_dwgset
  209.         (command "erase" B_drawing_dwgset B_drawing_block_sset "")
  210.         (command "erase" B_drawing_block_sset "")
  211.       );end-if
  212.       (setvar "OSMODE"        0)
  213.       (command "insert" B_drawing_name "0,0,0" B_drawing_scale "0")
  214.       (command "zoom" "e")
  215.       (setvar "attdia" 0)
  216.       (setq B_drawing_date_layer (getvar "CLAYER"))
  217.       (if (tblsearch "layer" "P_TEMPLATE")
  218.         (setvar "CLAYER" "P_TEMPLATE")
  219.       );end-if
  220.       (command "insert" "B_DRAWING_DATA" B_drawing_date B_drawing_date_scale_x0 B_drawing_date_scale_y0 "0")
  221.       (setvar "OSMODE"        51)
  222.       (while B_drawing_attrib_list
  223.         (setq B_drawing_attrib_input (car B_drawing_attrib_list))
  224.         (setq B_drawing_attrib_list (cdr B_drawing_attrib_list))
  225.         (command B_drawing_attrib_input)
  226.       );end-while
  227.     );end-progn
  228.     (progn
  229.       (setq B_drawing_dwgset (ssget "x" (list (cons 8 "P_TEMPLATE"))))
  230.       (if B_drawing_dwgset
  231.       (command "erase" B_drawing_dwgset "")
  232.       );end-if
  233.       (setvar "OSMODE"        0)
  234.       (command "insert" B_drawing_name "0,0,0" B_drawing_scale "0")
  235.       (command "zoom" "e")
  236.       (setvar "attdia" 1)
  237.       (setq B_drawing_date_layer (getvar "CLAYER"))
  238.       (if (tblsearch "layer" "P_TEMPLATE")
  239.         (setvar "CLAYER" "P_TEMPLATE")
  240.       );end-if
  241.       (command "insert" "B_DRAWING_DATA" B_drawing_date B_drawing_date_scale_x0 B_drawing_date_scale_y0 "0")
  242.       (setvar "OSMODE"        51)
  243.     );end-progn
  244.   );end-if
  245.   (setvar "CLAYER" B_drawing_date_layer)
  246.   (setvar "attdia" 1)
  247. );end-B_DRAWING_CHANGE

  249. (defun B_DIM_INS;无标注时插入标注
  250.   (
  251.   /
  252.   )
  253.   (B_INITVAR_DIM)
  254.   (setvar "DIMTIH"        1)
  255.   (setvar "DIMTOH"        1)
  256.   (setvar "DIMFIT"        2)
  257.   (command "dimstyle" "S" (strcat B_drawing_dim "$3"))
  258.   (command "dimstyle" "S" (strcat B_drawing_dim "$4"))
  259.   (setvar "DIMFIT"        3)
  260.   (setvar "DIMTIH"        0)
  261.   (setvar "DIMTOH"        0)
  262.   (command "dimstyle" "S" B_drawing_dim)
  263. );end-B_DIM_INS

  265. (defun B_DIM_MAKE;循环更改标注
  266.   (
  267.   B_drawing_den_sset
  268.   B_dim_before
  269.   B_dim_after
  270.   /
  271.   B_drawing_dim_sset_list
  272.   B_dim_repeat_i
  273.   )
  274.   (setq B_dim_repeat_i 0)
  275.   (repeat (sslength B_drawing_den_sset)
  276.     (setq B_drawing_dim_sset_list (entget (ssname B_drawing_den_sset B_dim_repeat_i)))
  277.     (cond
  278.       ((= (cdr (assoc 3 B_drawing_dim_sset_list)) B_dim_before)
  279.         (setq B_drawing_dim_sset_list (subst (cons 3 B_dim_after) (assoc 3 B_drawing_dim_sset_list) B_drawing_dim_sset_list))
  280.       )
  281.       ((= (cdr (assoc 3 B_drawing_dim_sset_list)) (strcat B_dim_before "$3"))
  282.         (setq B_drawing_dim_sset_list (subst (cons 3 (strcat B_dim_after "$3")) (assoc 3 B_drawing_dim_sset_list) B_drawing_dim_sset_list))
  283.       )
  284.       ((= (cdr (assoc 3 B_drawing_dim_sset_list)) (strcat B_dim_before "$4"))
  285.         (setq B_drawing_dim_sset_list (subst (cons 3 (strcat B_dim_after "$4")) (assoc 3 B_drawing_dim_sset_list) B_drawing_dim_sset_list))
  286.       )
  287.     );end-cond
  288.     (entmod B_drawing_dim_sset_list)
  289.     (setq B_dim_repeat_i (1+ B_dim_repeat_i))
  290.   );end-repeat
  291. );end-B_DIM_MAKE

  293. (defun B_DIM_CHANGE;更改标注
  294.   (
  295.   /
  296.   B_drawing_dim_sset
  297.   B_drawing_lea_sset
  298.   B_drawing_tol_sset
  299.   B_dim_repeat_i
  300.   B_drawing_dim_t
  301.   )
  302.   (setq B_drawing_dim_sset (ssget "x" (list (cons 0 "DIMENSION") (cons 3 (strcat B_drawing_dim "*")))))
  303.   (setq B_drawing_lea_sset (ssget "x" (list (cons 0 "LEADER") (cons 3 (strcat B_drawing_dim "*")))))
  304.   (setq B_drawing_tol_sset (ssget "x" (list (cons 0 "TOLERANCE") (cons 3 (strcat B_drawing_dim "*")))))
  305.   (setq B_drawing_dim_t (or B_drawing_dim_sset B_drawing_lea_sset B_drawing_tol_sset))
  306.   (if B_drawing_dim_t
  307.     (progn
  308.       (command "dimstyle" "S" (strcat B_dim_temp "$3"))
  309.       (command "dimstyle" "S" (strcat B_dim_temp "$4"))
  310.       (command "dimstyle" "S" B_dim_temp)
  311.       (if B_drawing_dim_sset
  312.          (B_DIM_MAKE B_drawing_dim_sset B_drawing_dim B_dim_temp)
  313.       );end-if
  314.       (if B_drawing_lea_sset
  315.          (B_DIM_MAKE B_drawing_lea_sset B_drawing_dim B_dim_temp)
  316.       );end-if
  317.       (if B_drawing_tol_sset
  318.          (B_DIM_MAKE B_drawing_tol_sset B_drawing_dim B_dim_temp)
  319.       );end-if
  320.       (command "dimstyle" "r" "STANDARD")
  321.       (command "purge" "d" (strcat B_drawing_dim "$3") "n")
  322.       (command "purge" "d" (strcat B_drawing_dim "$4") "n")
  323.       (command "purge" "d" B_drawing_dim "n")
  324.       (B_INITVAR_DIM)
  325.       (setvar "DIMTIH"        1)
  326.       (setvar "DIMTOH"        1)
  327.       (setvar "DIMFIT"        2)
  328.       (command "dimstyle" "S" (strcat B_drawing_dim "$3"))
  329.       (command "dimstyle" "S" (strcat B_drawing_dim "$4"))
  330.       (setvar "DIMFIT"        3)
  331.       (setvar "DIMTIH"        0)
  332.       (setvar "DIMTOH"        0)
  333.       (command "dimstyle" "S" B_drawing_dim)
  334.       (if (/= B_drawing_lea_sset nil)
  335.         (B_DIM_MAKE B_drawing_lea_sset B_dim_temp B_drawing_dim)
  336.       );end-if
  337.       (if (/= B_drawing_dim_sset nil)
  338.         (B_DIM_MAKE B_drawing_dim_sset B_dim_temp B_drawing_dim)
  339.       );end-if
  340.       (if (/= B_drawing_tol_sset nil)
  341.         (B_DIM_MAKE B_drawing_tol_sset B_dim_temp B_drawing_dim)
  342.       );end-if
  343.       (command "purge" "d" (strcat B_dim_temp "$3") "n")
  344.       (command "purge" "d" (strcat B_dim_temp "$4") "n")
  345.       (command "purge" "d" B_dim_temp "n")
  346.     );end-progn
  347.     (progn
  348.       (command "dimstyle" "r" "STANDARD")
  349.       (command "purge" "d" (strcat B_drawing_dim "$3") "n")
  350.       (command "purge" "d" (strcat B_drawing_dim "$4") "n")
  351.       (command "purge" "d" B_drawing_dim "n")
  352.       (B_INITVAR_DIM)
  353.       (setvar "DIMTIH"        1)
  354.       (setvar "DIMTOH"        1)
  355.       (setvar "DIMFIT"        2)
  356.       (command "dimstyle" "S" (strcat B_drawing_dim "$3"))
  357.       (command "dimstyle" "S" (strcat B_drawing_dim "$4"))
  358.       (setvar "DIMFIT"        3)
  359.       (setvar "DIMTIH"        0)
  360.       (setvar "DIMTOH"        0)
  361.       (command "dimstyle" "S" B_drawing_dim)
  362.     );end-progn
  363.   );end-if
  364. );end-B_DIM_CHANGE


  367. (defun B_DRAWING
  368.   (
  369.   /
  370.   B_drawing_what
  371.   B_drawing_name
  372.   B_drawing_exist
  373.   B_drawing_last_slide
  374.   B_drawing_tile
  375.   B_drawing_date
  376.   B_drawing_scale
  377.   B_drawing_date_x
  378.   B_drawing_x_scale
  379.   B_drawing_y_scale
  380.   B_drawing_date_scale_x0
  381.   B_drawing_date_scale_y0
  382.   B_drawing_date_layer
  383.   B_drawing_dim
  384.   B_dim_temp
  385.   )
  386.   (setvar "ATTDIA"        1)
  387.   (B_DRAWING_INIT)
  388.   (if (null B_INITVAR_DIM) (load "B_INITVAR_DIM"))
  389.   (setq B_drawing_dim "B_DRAWING_DIM")
  390.   (setq B_dim_temp "B_DIM_TEMP")
  391.   (if (= (tblsearch "DIMSTYLE" B_drawing_dim) nul)
  392.      (B_DIM_INS)
  393.      (B_DIM_CHANGE)
  394.   );end-if
  395.   (setq B_drawing_date_scale_x0 (* B_drawing_scale B_drawing_x_scale))
  396.   (setq B_drawing_date_scale_y0 (* B_drawing_scale B_drawing_y_scale))
  397.   (setq B_drawing_exist (tblsearch "BLOCK" "B_DRAWING_DATA"))
  398.   (if B_drawing_exist
  399.     (B_DRAWING_CHANGE)
  400.     (B_DRAWING_INS)
  401.   );end-if
  402.   (setvar "ORTHOMODE"        1)
  403.   (setvar "ATTDIA"        1)
  404.   (princ)
  405. );end-B_DRAWING

评分

参与人数 1威望 +1 金钱 +10 贡献 +1 激情 +2 收起 理由
mccad + 1 + 10 + 1 + 2 【好评】好软件

查看全部评分

回复 支持 反对

使用道具 举报

jingsabing
发表于 2003-7-20 17:03:00 | 显示全部楼层
根据我这多年的经验,计算程序都好做,但设计一个项目就难多了
趁年轻,还是多做项目吧!项目做多了,你就对程序不敢兴趣了
回复 支持 反对

使用道具 举报

jsyang_ren
发表于 2003-8-5 11:27:00 | 显示全部楼层
我个人认为用VB编这个程序更直观简单
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-29 01:57 , Processed in 0.184225 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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