求一个修改长大件的程序

shakeapple

机械制图画的长大件都是简化画法的，就是中间是断开的，所以想根据这种图进行无纸化加工是不可能的。因此希望能通过lisp程序重新生成一张符合实际长度的1：1的图用于加工，不知道哪位dx可以帮我做一下程序？

shakeapple

我把图发来了，是一个示意，要达到的修改效果是下面那张，主要修改２点：


断裂部分的补齐，还有就是长度和标注一致

xyp1964

只适合提供的特定文件：

2. (load "xyp_lib")      ;加载通用函数
3. ;|
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 通用函数下载地址:
11. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
12. |;;;;
13. (defun c:test ()
14.    (CMDLA0)
15.    (setvar "dimdec" 0)
16.    (setvar "DIMEXO" 10)
17.    (Setvar "DIMTXT" (* sc 300))
18.    (setq  s1   (entsel "\n选择数值 : ")
19.   pt1 (getpoint "\n构件左下角点 : ")
20.   pt2 (getcorner pt1 "\n构件右上角点 : ")
21.   num (atof (dxf 1 (entget (car s1))))
22.   s3   (ssget "X"
23.          '((0 . "LINE") (62 . 3))
24.          )
25.   ss1 (ssget "x")
26.    )
27.    (setvar "osmode" 0)
28.    (command "select" ss1 "r" s3 "")
29.    (setq ss2 (ssget "P"))
30.    (command "erase" ss2 "")
31.    (mkla "构件" 4)
32.    (command "rectang" pt1 pt2)
33.    (setq  ss (ssget "x")
34.   sc (/ num (- (car pt2) (car pt1)))
35.    )
36.    (command "-block" "test" pt1 ss "")
37.    (command "-insert" "test" pt1 "" "" "")
38.    (setq s1 (entlast))
39.    (SUB_UPD s1 41 sc)
40.    (command "explode" "l" "")
41.    (COMMAND "-PURGE" "b" "test" "" "y")
42.    (mkla "标注" 3)
43.    (command "dim1"
44.        "hor"
45.        pt1
46.        (polar pt1 0 num)
47.        (polar pt1 (* pi 1.5) 30)
48.        ""
49.    )
50.    (CMDLA1)
51. )

(load "xyp_lib")      ;加载通用函数 ;| 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554 |;;;; (defun c:test ()    (CMDLA0)    (setvar "dimdec" 0)    (setvar "DIMEXO" 10)    (Setvar "DIMTXT" (* sc 300))    (setq  s1   (entsel "\n选择数值 : ")   pt1 (getpoint "\n构件左下角点 : ")   pt2 (getcorner pt1 "\n构件右上角点 : ")   num (atof (dxf 1 (entget (car s1))))   s3   (ssget "X"          '((0 . "LINE") (62 . 3))          )   ss1 (ssget "x")    )    (setvar "osmode" 0)    (command "select" ss1 "r" s3 "")    (setq ss2 (ssget "P"))    (command "erase" ss2 "")    (mkla "构件" 4)    (command "rectang" pt1 pt2)    (setq  ss (ssget "x")   sc (/ num (- (car pt2) (car pt1)))    )    (command "-block" "test" pt1 ss "")    (command "-insert" "test" pt1 "" "" "")    (setq s1 (entlast))    (SUB_UPD s1 41 sc)    (command "explode" "l" "")    (COMMAND "-PURGE" "b" "test" "" "y")    (mkla "标注" 3)    (command "dim1"        "hor"        pt1        (polar pt1 0 num)        (polar pt1 (* pi 1.5) 30)        ""    )    (CMDLA1) )