请斑竹帮忙。绘制新图式围墙的程序

yx1985321

绘制新图式围墙的程序能否发一个啊

461045462

yx1985321发表于2010-11-24 13:15:00绘制新图式围墙的程序能否发一个啊 站内搜索更多有关 的信息

 

 

 

 

 

新图式围墙有两种

采用有关测绘软件就可以了，很方便

网络上有下载

yx1985321

老大帮帮忙啊。找不到呀。急啊

461045462

下载南方cass200以上版本都行

yx1985321

现在变成了新图式了。没有办法绘制出来啊

461045462

有一个修改围墙短线为2007版格式的，不知你能否使用？
因为有些画围墙的方式不一样。你试试吧。
命令:gwq

lichunyu

haoyong

lichunyu

在04 内可以吗

mandala

新图式的围墙有几种做法，一种是画线、插块的，一种是用线型的。前一种方法的缺点是删除比较麻烦，还得选中一个个块删除，另外很多这类程序存在围墙转弯时，块有时候会伸出在墙外的情况，当然花些功夫这个问题还是能够解决的。用线型的缺点是前期得做线型，但有了线型之后就一劳永逸了。


发一个我自己写的lsp吧，是用线型的，1比500比例下，单位为米。你可以参考一下思路。不过你得先做一个新围墙的线型wq2012，和一个符号间隔为一半的线型wq2012b，如图：。

2. (defun c:wq (/ *error* lay ltp E2 en enl a E3 ss n ssn vss len el ent1)
   
3. 
   
4.   (prompt "绘制07版按比例围墙，符号在前进方向左侧。")
   
5.   (print)
   
6.   (defun *error* (msg)
   
7.     (prompt "程序出错！返回到起始状态。")
   
8.     (setvar "CMDECHO" 0)
   
9.     (command "._undo" "_e")
   
10.     ；；设置undo结束点
    
11.     (command "._u")
    
12.     (princ)
    
13.   ) ;_ 结束defun
    
14.   ;;把*error*函数放在主程序里边作为内部定义
    
15. 
    
16.   (setvar "CMDECHO" 0)
    
17.   (command "._undo" "_be")
    
18.   ;;建立undo点
    
19.   (setq lay (getvar "clayer"))
    
20.   (setq ltp (getvar "celtype"))
    
21. ； (setvar "clayer" "wall")
    
22.   (setvar "celtype" "wq2012")
    
23.   (setvar "plinewid" 0)
    
24.   (setvar "plinegen" 1)
    
25.   (setvar "CMDECHO" 1)
    
26.   (if (= (setq th (getreal "输入墙厚度：（默认为0.5）：")) nil)
    
27.     (setq th 0.5)
    
28.   ) ;_ 结束if
    
29.   (command "._PLINE")
    
30.   (while (> (getvar "cmdactive") 0) (command pause))
    
31.   (setvar "CMDECHO" 0)
    
32.   (setq E2 (entlast))
    
33.   (setq en (entlast))
    
34.   (setq enl (entget en))
    
35.   (setq enl (vl-remove-if '(lambda (x) (/= 42 (car x))) enl))
    
36.   (setq a (vlax-ename->vla-object (entlast)))
    
37.   (vla-offset a (- th))
    
38.   (setq E3 (entlast))
    
39.   (if (eq E3 (entnext E2))
    
40.     ;;判断是否只生成一个对象
    
41.     (progn
    
42.       (command "_.LINE"
    
43.          "_NON"
    
44.          (vlax-curve-getStartPoint E2)
    
45.          "_NON"
    
46.          (vlax-curve-getStartPoint E3)
    
47.          ""
    
48.       ) ;_ 结束command
    
49.       (command "_.LINE"
    
50.          "_NON"
    
51.          (vlax-curve-getEndPoint E2)
    
52.          "_NON"
    
53.          (vlax-curve-getEndPoint E3)
    
54.          ""
    
55.       ) ;_ 结束command
    
56.       (command "chprop" E3 "" "lt" "continuous" "")
    
57.       (command "_.explode" e2)
    
58.       (setq ss (SSGET "P")
    
59.       n  0
    
60.       ) ;_ 结束setq
    
61.       (repeat (sslength ss)
    
62.   (setq ssn (ssname ss n))
    
63.   (setq vss (vlax-ename->vla-object ssn))
    
64.   (setq len (vlax-curve-getDistAtPoint
    
65.         vss
    
66.         (vlax-curve-getEndPoint vss)
    
67.       ) ;_ 结束vlax-curve-getDistAtPoint
    
68.   ) ;_ 结束setq
    
69.   (setq el (entget ssn))
    
70.   (if (and (< len 10) (> len 4.5))
    
71.     (if (< (cdr (nth n enl)) 0)
    
72.       (progn
    
73.         (setq el (subst (cons 6 "WQ2012b") (assoc 6 el) el))
    
74.         (entmod el)
    
75.         (command "pedit" ssn "y" "")
    
76.         (setq ent1 (entlast))
    
77.         (reverseLwp ent1)
    
78.       ) ;_ 结束progn
    
79.       (progn
    
80.         (setq el (subst (cons 6 "WQ2012b") (assoc 6 el) el))
    
81.         (entmod el)
    
82.       ) ;_ 结束progn
    
83.     ) ;_ 结束if
    
84.     (if (< (cdr (nth n enl)) 0)
    
85.       (progn
    
86.         (command "pedit" ssn "y" "")
    
87.         (setq ent1 (entlast))
    
88.         (reverseLwp ent1)
    
89.       ) ;_ 结束progn
    
90.     ) ;_ 结束if
    
91.   ) ;_ 结束if
    
92.   (setq n (1+ n))
    
93.       ) ;_ 结束repeat
    
94.     ) ;_ 结束progn
    
95.     (progn
    
96.       (princ "绘制失败。同一条围墙请勿交叉!!!! ")
    
97.       (setq E3 E2)
    
98.       (while (setq E2 (entnext E2))
    
99.   (entdel E2)
    
100.       ) ;_ 结束while
     
101.       (entdel E3)
     
102.     ) ;_ 结束progn
     
103.   ) ;_ 结束if
     
104.   (setvar "clayer" lay)
     
105.   (setvar "celtype" ltp)
     
106.   (command "._undo" "_e")
     
107.   ；；设置undo结束点
     
108.   (princ)
     
109. ) ;_ 结束defun
     

(defun c:wq (/ *error* lay ltp E2 en enl a E3 ss n ssn vss len el ent1)<br /> <br />   (prompt "绘制07版按比例围墙，符号在前进方向左侧。")<br />   (print)<br />   (defun *error* (msg)<br />     (prompt "程序出错！返回到起始状态。")<br />     (setvar "CMDECHO" 0)<br />     (command "._undo" "_e")<br />     ；；设置undo结束点<br />     (command "._u")<br />     (princ)<br />   ) ;_ 结束defun<br />   ;;把*error*函数放在主程序里边作为内部定义<br /> <br />   (setvar "CMDECHO" 0)<br />   (command "._undo" "_be")<br />   ;;建立undo点<br />   (setq lay (getvar "clayer"))<br />   (setq ltp (getvar "celtype"))<br /> ； (setvar "clayer" "wall")<br />   (setvar "celtype" "wq2012")<br />   (setvar "plinewid" 0)<br />   (setvar "plinegen" 1)<br />   (setvar "CMDECHO" 1)<br />   (if (= (setq th (getreal "输入墙厚度：（默认为0.5）：")) nil)<br />     (setq th 0.5)<br />   ) ;_ 结束if<br />   (command "._PLINE")<br />   (while (> (getvar "cmdactive") 0) (command pause))<br />   (setvar "CMDECHO" 0)<br />   (setq E2 (entlast))<br />   (setq en (entlast))<br />   (setq enl (entget en))<br />   (setq enl (vl-remove-if '(lambda (x) (/= 42 (car x))) enl))<br />   (setq a (vlax-ename->vla-object (entlast)))<br />   (vla-offset a (- th))<br />   (setq E3 (entlast))<br />   (if (eq E3 (entnext E2))<br />     ;;判断是否只生成一个对象<br />     (progn<br />       (command "_.LINE"<br />          "_NON"<br />          (vlax-curve-getStartPoint E2)<br />          "_NON"<br />          (vlax-curve-getStartPoint E3)<br />          ""<br />       ) ;_ 结束command<br />       (command "_.LINE"<br />          "_NON"<br />          (vlax-curve-getEndPoint E2)<br />          "_NON"<br />          (vlax-curve-getEndPoint E3)<br />          ""<br />       ) ;_ 结束command<br />       (command "chprop" E3 "" "lt" "continuous" "")<br />       (command "_.explode" e2)<br />       (setq ss (SSGET "P")<br />       n  0<br />       ) ;_ 结束setq<br />       (repeat (sslength ss)<br />   (setq ssn (ssname ss n))<br />   (setq vss (vlax-ename->vla-object ssn))<br />   (setq len (vlax-curve-getDistAtPoint<br />         vss<br />         (vlax-curve-getEndPoint vss)<br />       ) ;_ 结束vlax-curve-getDistAtPoint<br />   ) ;_ 结束setq<br />   (setq el (entget ssn))<br />   (if (and (< len 10) (> len 4.5))<br />     (if (< (cdr (nth n enl)) 0)<br />       (progn<br />         (setq el (subst (cons 6 "WQ2012b") (assoc 6 el) el))<br />         (entmod el)<br />         (command "pedit" ssn "y" "")<br />         (setq ent1 (entlast))<br />         (reverseLwp ent1)<br />       ) ;_ 结束progn<br />       (progn<br />         (setq el (subst (cons 6 "WQ2012b") (assoc 6 el) el))<br />         (entmod el)<br />       ) ;_ 结束progn<br />     ) ;_ 结束if<br />     (if (< (cdr (nth n enl)) 0)<br />       (progn<br />         (command "pedit" ssn "y" "")<br />         (setq ent1 (entlast))<br />         (reverseLwp ent1)<br />       ) ;_ 结束progn<br />     ) ;_ 结束if<br />   ) ;_ 结束if<br />   (setq n (1+ n))<br />       ) ;_ 结束repeat<br />     ) ;_ 结束progn<br />     (progn<br />       (princ "绘制失败。同一条围墙请勿交叉!!!! ")<br />       (setq E3 E2)<br />       (while (setq E2 (entnext E2))<br />   (entdel E2)<br />       ) ;_ 结束while<br />       (entdel E3)<br />     ) ;_ 结束progn<br />   ) ;_ 结束if<br />   (setvar "clayer" lay)<br />   (setvar "celtype" ltp)<br />   (command "._undo" "_e")<br />   ；；设置undo结束点<br />   (princ)<br /> ) ;_ 结束defun<br />

tianguo_hell

  线形怎么做的？