铁路线绘制。

eachy

铁路线绘制，作匿名块改用api中的block_make.

梦断江南

ea,请完善你的帖子

eachy

最初由 eachy 发布
[B]铁路线绘制，作匿名块改用api中的block_make. [/B]

2. 
   
3. (defun c:XDTB_Tlx (/ ss e tf1 sp lp0 lp1 ang e1 e2 _dist ptl num filter)
   
4.   (if (not $XDTB_GLOBAL_SCALE)
   
5.     (setq $XDTB_GLOBAL_SCALE 100.0)
   
6.   )
   
7.   (xdrx_begin "铁路")
   
8.   (xdrx_SysVar_Push "cmdecho" "osmode" "offsetdist")
   
9.   (setvar "osmode" 0)
   
10.   (princ "\n选择Line、Arc、Spline、ELLIPSE、非样条化Pline<回车退出>....")
    
11.   (setq        filter (list '(-4 . "<AND")
    
12.                      '(0 . "*LINE,ARC,ELLIPSE")
    
13.                      '(-4 . "<NOT")
    
14.                      '(-4 . "<AND")
    
15.                      '(0 . "*POLYLINE")
    
16.                      '(70 . 4)
    
17.                      '(-4 . "AND>")
    
18.                      '(-4 . "NOT>")
    
19.                      '(-4 . "AND>"))
    
20.   )
    
21.   (setq ss (ssget filter))
    
22.   (if ss
    
23.     (progn
    
24.       (xdrx_setsstodb ss 0)
    
25.       (if (setq tf1 (apply 'xdrx_isptoffscr (xdrx_entity_box ss)))
    
26.         (progn
    
27.           (xdrx_drawing_viewsave)
    
28.           (xdrx_drawing_zoomw
    
29.             (car (xdrx_entity_box ss))
    
30.             (nth 3 (xdrx_entity_box ss))
    
31.           )
    
32.         )
    
33.       )
    
34.       (while (setq e (xdrx_getentdata 0))
    
35.         (if (> (last (xdrx_getarea e))
    
36.                (* $XDTB_GLOBAL_SCALE 20.0)
    
37.             )
    
38.           (progn
    
39.             (xdrx_modent 8 "TLX")
    
40.             (if        (or (= (xdrx_getentdxf 0) "SPLINE")
    
41.                     (= (xdrx_getentdxf 0) "ELLIPSE")
    
42.                     (AND (= (xdrx_getentdxf 0) "POLYLINE")
    
43.                          (= (XDRX_GETENTDXF 70) 2)
    
44.                     )
    
45.                 )
    
46.               (PROGN
    
47.                 (SETQ ptl (xdrx_getsamplept e))
    
48.                 (apply
    
49.                   'command
    
50.                   (cons "pline" (reverse ptl))
    
51.                 )
    
52.                 (if (xdrx_curve_isclosed e)
    
53.                   (command "c")
    
54.                   (command "")
    
55.                 )
    
56.                 (entdel e)
    
57.                 (xdrx_setenttodb (setq e (entlast)))
    
58.               )
    
59.             )             
    
60.             (setq sp        (car (xdrx_curve_getpoint e))
    
61.                   ep (last (xdrx_curve_getpoint e))
    
62.                   _dist        (/ (rem        (last (xdrx_getarea e))
    
63.                                 (* $XDTB_GLOBAL_SCALE 20.0)
    
64.                            )
    
65.                            2
    
66.                         )
    
67.                   ang        (last
    
68.                           (xdrx_getperpline
    
69.                             e
    
70.                             (list (car sp) (cadr sp) '0)
    
71.                           )
    
72.                         )
    
73.                   num        (fix (/        (last (xdrx_getarea e))
    
74.                                 (* $XDTB_GLOBAL_SCALE 20.0)
    
75.                              )
    
76.                         )
    
77.                   lp0        (polar sp ang 1)
    
78.                   lp1        (polar sp (+ ang pi) 1)
    
79.                   PTL        (xdrx_getpointatdist E (* $XDTB_GLOBAL_SCALE 20.0))
    
80.             )
    
81.             (mapcar 'setvar
    
82.                     '("offsetdist" "osmode")
    
83.                     (list (* $XDTB_GLOBAL_SCALE 0.500) 0)
    
84.             )
    
85.             (c:xdrx_setmark)
    
86.             (command ".offset" "" (cons e (list sp)) lp0 "")
    
87.             (setq e1 (entlast))
    
88.             (redraw e1 2)
    
89.             (command ".offset" "" (cons e (list sp)) lp1 "")
    
90.             (setq e2 (entlast))
    
91.             (redraw e2 2)
    
92.             (if        (not (and
    
93.                        (/= (rem num 2) 0)
    
94.                        (= _dist 0)
    
95.                      )
    
96.                 )
    
97.               (progn (setq ptl ($Xdlsp_list_del ptl (1- (length ptl))))
    
98.                      (setq ptl
    
99.                             (mapcar '(lambda (x)
    
100.                                        (xdrx_getpointatdist
     
101.                                          e
     
102.                                          x
     
103.                                          (+ (* $XDTB_GLOBAL_SCALE 10.0) _dist)
     
104.                                        )
     
105.                                      )
     
106.                                     ptl
     
107.                             )
     
108.                      )
     
109.                      (setq ptl (cons ep (reverse (cons sp ptl))))
     
110.               )
     
111.               (setq ptl (reverse ptl))
     
112.             )
     
113.             (while (>= (LENGTH Ptl) 2)
     
114.               (setvar "osmode" 0)
     
115.               (command ".break"
     
116.                        (cons e (list sp))
     
117.                        "f"
     
118.                        (car ptl)
     
119.                        (cadr ptl)
     
120.               )
     
121.               (xdrx_setenttodb (entlast))
     
122.               (if (and (not (equal (entlast) e1))
     
123.                        (not (equal (entlast) e2))
     
124.                   )
     
125.                 (if (wcmatch (xdrx_getentdxf 0) "*POLYLINE")
     
126.                   (command ".pedit" (entlast) "w" $XDTB_GLOBAL_SCALE "")
     
127.                   (command ".pedit"
     
128.                            (entlast)
     
129.                            "y"
     
130.                            "w"
     
131.                            $XDTB_GLOBAL_SCALE
     
132.                            ""
     
133.                   )
     
134.                 )
     
135.               )
     
136.               (setq ptl (cddr ptl))
     
137.             )
     
138.             (if        (and e
     
139.                      (xdrx_setenttodb e)
     
140.                      (wcmatch (xdrx_getentdxf 0) "*POLYLINE")
     
141.                 )
     
142.               (command ".pedit"
     
143.                        (cons e (list sp))
     
144.                        "w"
     
145.                        $XDTB_GLOBAL_SCALE
     
146.                        ""
     
147.               )
     
148.               (command ".pedit"
     
149.                        (cons e (list sp))
     
150.                        "y"
     
151.                        "w"
     
152.                        $XDTB_GLOBAL_SCALE
     
153.                        ""
     
154.               )
     
155.             )
     
156.                 (redraw e1 1)
     
157.             (redraw e2 1)
     
158.             (xdrx_block_make (ssadd e (c:xdrx_getss)) sp T)
     
159.             (xdrx_setenttodb (entlast))
     
160.             (xdrx_modent 8 "TLX")
     
161.           )
     
162.         )
     
163.       )
     
164.     )
     
165.   )
     
166.   (if tf1
     
167.     (xdrx_drawing_viewres)
     
168.   )
     
169.   (xdrx_end)
     
170.   (xdrx_SysVar_Pop)
     
171.   (princ)
     
172. )

<br /> (defun c:XDTB_Tlx (/ ss e tf1 sp lp0 lp1 ang e1 e2 _dist ptl num filter)<br />   (if (not $XDTB_GLOBAL_SCALE)<br />     (setq $XDTB_GLOBAL_SCALE 100.0)<br />   )<br />   (xdrx_begin "铁路")<br />   (xdrx_SysVar_Push "cmdecho" "osmode" "offsetdist")<br />   (setvar "osmode" 0)<br />   (princ "\n选择Line、Arc、Spline、ELLIPSE、非样条化Pline<回车退出>....")<br />   (setq        filter (list '(-4 . "<AND")<br />                      '(0 . "*LINE,ARC,ELLIPSE")<br />                      '(-4 . "<NOT")<br />                      '(-4 . "<AND")<br />                      '(0 . "*POLYLINE")<br />                      '(70 . 4)<br />                      '(-4 . "AND>")<br />                      '(-4 . "NOT>")<br />                      '(-4 . "AND>"))<br />   )<br />   (setq ss (ssget filter))<br />   (if ss<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (if (setq tf1 (apply 'xdrx_isptoffscr (xdrx_entity_box ss)))<br />         (progn<br />           (xdrx_drawing_viewsave)<br />           (xdrx_drawing_zoomw<br />             (car (xdrx_entity_box ss))<br />             (nth 3 (xdrx_entity_box ss))<br />           )<br />         )<br />       )<br />       (while (setq e (xdrx_getentdata 0))<br />         (if (> (last (xdrx_getarea e))<br />                (* $XDTB_GLOBAL_SCALE 20.0)<br />             )<br />           (progn<br />             (xdrx_modent 8 "TLX")<br />             (if        (or (= (xdrx_getentdxf 0) "SPLINE")<br />                     (= (xdrx_getentdxf 0) "ELLIPSE")<br />                     (AND (= (xdrx_getentdxf 0) "POLYLINE")<br />                          (= (XDRX_GETENTDXF 70) 2)<br />                     )<br />                 )<br />               (PROGN<br />                 (SETQ ptl (xdrx_getsamplept e))<br />                 (apply<br />                   'command<br />                   (cons "pline" (reverse ptl))<br />                 )<br />                 (if (xdrx_curve_isclosed e)<br />                   (command "c")<br />                   (command "")<br />                 )<br />                 (entdel e)<br />                 (xdrx_setenttodb (setq e (entlast)))<br />               )<br />             )              <br />             (setq sp        (car (xdrx_curve_getpoint e))<br />                   ep (last (xdrx_curve_getpoint e))<br />                   _dist        (/ (rem        (last (xdrx_getarea e))<br />                                 (* $XDTB_GLOBAL_SCALE 20.0)<br />                            )<br />                            2<br />                         )<br />                   ang        (last<br />                           (xdrx_getperpline<br />                             e<br />                             (list (car sp) (cadr sp) '0)<br />                           )<br />                         )<br />                   num        (fix (/        (last (xdrx_getarea e))<br />                                 (* $XDTB_GLOBAL_SCALE 20.0)<br />                              )<br />                         )<br />                   lp0        (polar sp ang 1)<br />                   lp1        (polar sp (+ ang pi) 1)<br />                   PTL        (xdrx_getpointatdist E (* $XDTB_GLOBAL_SCALE 20.0))<br />             )<br />             (mapcar 'setvar<br />                     '("offsetdist" "osmode")<br />                     (list (* $XDTB_GLOBAL_SCALE 0.500) 0)<br />             )<br />             (c:xdrx_setmark)<br />             (command ".offset" "" (cons e (list sp)) lp0 "")<br />             (setq e1 (entlast))<br />             (redraw e1 2)<br />             (command ".offset" "" (cons e (list sp)) lp1 "")<br />             (setq e2 (entlast))<br />             (redraw e2 2)<br />             (if        (not (and<br />                        (/= (rem num 2) 0)<br />                        (= _dist 0)<br />                      )<br />                 )<br />               (progn (setq ptl ($Xdlsp_list_del ptl (1- (length ptl))))<br />                      (setq ptl<br />                             (mapcar '(lambda (x)<br />                                        (xdrx_getpointatdist<br />                                          e<br />                                          x<br />                                          (+ (* $XDTB_GLOBAL_SCALE 10.0) _dist)<br />                                        )<br />                                      )<br />                                     ptl<br />                             )<br />                      )<br />                      (setq ptl (cons ep (reverse (cons sp ptl))))<br />               )<br />               (setq ptl (reverse ptl))<br />             )<br />             (while (>= (LENGTH Ptl) 2)<br />               (setvar "osmode" 0)<br />               (command ".break"<br />                        (cons e (list sp))<br />                        "f"<br />                        (car ptl)<br />                        (cadr ptl)<br />               )<br />               (xdrx_setenttodb (entlast))<br />               (if (and (not (equal (entlast) e1))<br />                        (not (equal (entlast) e2))<br />                   )<br />                 (if (wcmatch (xdrx_getentdxf 0) "*POLYLINE")<br />                   (command ".pedit" (entlast) "w" $XDTB_GLOBAL_SCALE "")<br />                   (command ".pedit"<br />                            (entlast)<br />                            "y"<br />                            "w"<br />                            $XDTB_GLOBAL_SCALE<br />                            ""<br />                   )<br />                 )<br />               )<br />               (setq ptl (cddr ptl))<br />             )<br />             (if        (and e<br />                      (xdrx_setenttodb e)<br />                      (wcmatch (xdrx_getentdxf 0) "*POLYLINE")<br />                 )<br />               (command ".pedit"<br />                        (cons e (list sp))<br />                        "w"<br />                        $XDTB_GLOBAL_SCALE<br />                        ""<br />               )<br />               (command ".pedit"<br />                        (cons e (list sp))<br />                        "y"<br />                        "w"<br />                        $XDTB_GLOBAL_SCALE<br />                        ""<br />               )<br />             )<br />                 (redraw e1 1)<br />             (redraw e2 1)<br />             (xdrx_block_make (ssadd e (c:xdrx_getss)) sp T)<br />             (xdrx_setenttodb (entlast))<br />             (xdrx_modent 8 "TLX")<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (if tf1<br />     (xdrx_drawing_viewres)<br />   )<br />   (xdrx_end)<br />   (xdrx_SysVar_Pop)<br />   (princ)<br /> )

grj1998

我还是不懂啊，那些代码怎么用？复制下来？

andyhua5240

那些代码复制下来，新建一个记事本，然后粘贴到记事本，然后将记事的文件扩展名TXT改为LSP，打开你的CAD，将这个文件扩展名为LSP的文件拖到你的CAD绘图窗口中就可以输入启动命令，可以使用了。
启动命令：XDTB_Tlx，不知道要不要安装晓东工具箱呀？
谢谢！

zp441

唉，楼主，我按照你的说明去做了，可是一直都没有成功，我用appload命令加载后再用XDTL_Tlx命令时，提示按F1键寻求帮助，这是怎么回事？

andyhua5240

我就是不知道要不要安装晓东工具箱呀？看你的情况，我想应该安装晓东工具箱后，才能用吧？

eachy

两年前的帖子了，不需要加载工具箱，只要加载 xdapi 即可。

credsm

还有一个办法，就就是　运行命令_vlide，在打开的窗口里把上面的内容复制进去，保存，然后加载就可以用拉！　　哈哈　　

冰斌

请用我的铁路线程序，请用“铁路线”或我的名字搜索吧