两个高程点或两条等高线内插高程

陈亚娣

1. ;;内插高程
   
2. (defun c:zgx()
   
3. (bl_c)
   
4. (co_lt)
   
5. (setq osvar (getvar "osmode"))
   
6. (cond ((= pz nil) (setvar "osmode" 512))
   
7.       ((= pz 1) (setvar "osmode" 8))
   
8.       ((= pz 2) (setvar "osmode" 4))
   
9. );cond
   
10. (initget 128)
    
11. (setq p1 (getpoint "\nN 捕捉模式/<选择一条等高线>: "))(PRINT)
    
12. (while (and (/= p1 nil) (/= (type (list 0 0)) (type p1)))
    
13. (if (or (= p1 "n") (= p1 "N")) (setq pz (getint "1 节点/2 圆心/<最近点>:")))
    
14. (cond ((= pz 1) (setvar "osmode" 8))
    
15.       ((= pz 2) (setvar "osmode" 4))
    
16.       ((= pz nil) (setvar "osmode" 512))
    
17. );cod
    
18. (initget 128)
    
19. (setq p1 (getpoint "\nN 捕捉模式/<选择一条等高线>: "))(PRINT)
    
20. );while
    
21. (setq p2 (getpoint "\n选择另一条等高线: "))(PRINT)
    
22. (setvar "osmode" 0)
    
23. (setq p3 (getpoint "\n选择选择高程注记点: "))(PRINT)
    
24. (setq h1 (caddr p1))
    
25. (setq h2 (caddr p2))
    
26. (setq d (distance (list (car p1) (cadr p1)) (list (car p2) (cadr p2))))
    
27. (setq d1 (distance (list (car p1) (cadr p1)) (list (car p3) (cadr p3))))
    
28. (setq h (- h2 h1))
    
29. (setq h (* h d1))
    
30. (setq h (/ h d))
    
31. (setq h (+ h1 h))
    
32. (setq p3 (list (car p3) (cadr p3) h))
    
33. (setq h (rtos h 2 1))
    
34. (if (tblsearch "layer" "gcd")
    
35. (setvar "clayer" "GCD")
    
36. (command "layer" "m" "GCD" "c" 1 "" "")
    
37. );if
    
38. (command "insert" "gc200" p3 "xyz" (/ blc 1000.0) (/ blc 1000.0) (/ blc 1000.0) 0)
    
39. (setq ent1 (entlast))
    
40. (setq ent (entget ent1))
    
41. (b_m "202101")
    
42. (command "text" (list (+ (car p3) 2.2) (- (cadr p3) 2) (caddr p3)) (* 2 (/ blc 1000.0)) "0"  h)
    
43. (setq ent2 (entlast))
    
44. (setq ent (entget ent2))
    
45. (b_m "202111")
    
46. (command "RESUMEGCD" ent1 ent2 "")
    
47. (setvar "clayer" "0")
    
48. (setvar "osmode" osvar)
    
49. (princ)
    
50. );defun
    
51. ;;------------------------------------------------------------------------------------
    
52. ;;比例尺函数
    
53. (defun bl_c()
    
54. (if (<= (setq blc (getvar "userr1")) 0)
    
55. (progn
    
56. (setq blc (getint"\n图形比例尺1:<500>:"))
    
57. (if (= blc nil) (setq blc 500.0) (setq blc (* 1.0 blc)))
    
58. (setvar "userr1" blc )
    
59. (setvar "ltscale" (/ blc 1000.0))
    
60. );progn
    
61. );if
    
62. );defun
    
63. ;;;-------------------------------------------------------------------
    
64. ;颜色线型设置函数
    
65. (defun co_lt()
    
66. ;;关闭编组选择
    
67. (if (/= (getvar "PICKSTYLE") 0) (setvar "PICKSTYLE" 0))
    
68. ;;设定新对象的颜色为缺省颜色
    
69. (if (/= (getvar "cecolor") "BYLAYER") (setvar "cecolor" "BYLAYER"))
    
70. ;;设定新对象的线型为连续
    
71. (if (/= (getvar "celtype") "CONTINUOUS") (setvar "celtype" "CONTINUOUS"))
    
72. );defun
    
73. ;;-----------------------------------------------------------------------------
    
74. ;;设置编码函数
    
75. (defun b_m(bm)
    
76. (setq app_x
    
77.             (list
    
78.                  (list -3
    
79.                        (list "SOUTH"
    
80.                              (cons 1000 bm)
    
81.                         );list
    
82.                   );list
    
83.              );list
    
84. );setq
    
85. (setq ent (append ent app_x))
    
86. (entmod ent)
    
87. );defun

;;内插高程<br /> (defun c:zgx()<br /> (bl_c)<br /> (co_lt)<br /> (setq osvar (getvar "osmode"))<br /> (cond ((= pz nil) (setvar "osmode" 512))<br />       ((= pz 1) (setvar "osmode" 8))<br />       ((= pz 2) (setvar "osmode" 4))<br /> );cond<br /> (initget 128)<br /> (setq p1 (getpoint "\nN 捕捉模式/<选择一条等高线>: "))(PRINT)<br /> (while (and (/= p1 nil) (/= (type (list 0 0)) (type p1)))<br /> (if (or (= p1 "n") (= p1 "N")) (setq pz (getint "1 节点/2 圆心/<最近点>:")))<br /> (cond ((= pz 1) (setvar "osmode" 8))<br />       ((= pz 2) (setvar "osmode" 4))<br />       ((= pz nil) (setvar "osmode" 512))<br /> );cod<br /> (initget 128)<br /> (setq p1 (getpoint "\nN 捕捉模式/<选择一条等高线>: "))(PRINT)<br /> );while<br /> (setq p2 (getpoint "\n选择另一条等高线: "))(PRINT)<br /> (setvar "osmode" 0)<br /> (setq p3 (getpoint "\n选择选择高程注记点: "))(PRINT)<br /> (setq h1 (caddr p1))<br /> (setq h2 (caddr p2))<br /> (setq d (distance (list (car p1) (cadr p1)) (list (car p2) (cadr p2))))<br /> (setq d1 (distance (list (car p1) (cadr p1)) (list (car p3) (cadr p3))))<br /> (setq h (- h2 h1))<br /> (setq h (* h d1))<br /> (setq h (/ h d))<br /> (setq h (+ h1 h))<br /> (setq p3 (list (car p3) (cadr p3) h))<br /> (setq h (rtos h 2 1))<br /> (if (tblsearch "layer" "gcd")<br /> (setvar "clayer" "GCD")<br /> (command "layer" "m" "GCD" "c" 1 "" "")<br /> );if<br /> (command "insert" "gc200" p3 "xyz" (/ blc 1000.0) (/ blc 1000.0) (/ blc 1000.0) 0)<br /> (setq ent1 (entlast))<br /> (setq ent (entget ent1))<br /> (b_m "202101")<br /> (command "text" (list (+ (car p3) 2.2) (- (cadr p3) 2) (caddr p3)) (* 2 (/ blc 1000.0)) "0"  h)<br /> (setq ent2 (entlast))<br /> (setq ent (entget ent2))<br /> (b_m "202111")<br /> (command "RESUMEGCD" ent1 ent2 "")<br /> (setvar "clayer" "0")<br /> (setvar "osmode" osvar)<br /> (princ)<br /> );defun<br /> ;;------------------------------------------------------------------------------------<br /> ;;比例尺函数<br /> (defun bl_c()<br /> (if (<= (setq blc (getvar "userr1")) 0)<br /> (progn<br /> (setq blc (getint"\n图形比例尺1:<500>:"))<br /> (if (= blc nil) (setq blc 500.0) (setq blc (* 1.0 blc)))<br /> (setvar "userr1" blc )<br /> (setvar "ltscale" (/ blc 1000.0))<br /> );progn<br /> );if<br /> );defun<br /> ;;;-------------------------------------------------------------------<br /> ;颜色线型设置函数<br /> (defun co_lt()<br /> ;;关闭编组选择<br /> (if (/= (getvar "PICKSTYLE") 0) (setvar "PICKSTYLE" 0))<br /> ;;设定新对象的颜色为缺省颜色<br /> (if (/= (getvar "cecolor") "BYLAYER") (setvar "cecolor" "BYLAYER"))<br /> ;;设定新对象的线型为连续<br /> (if (/= (getvar "celtype") "CONTINUOUS") (setvar "celtype" "CONTINUOUS"))<br /> );defun<br /> ;;-----------------------------------------------------------------------------<br /> ;;设置编码函数<br /> (defun b_m(bm)<br /> (setq app_x<br />             (list<br />                  (list -3<br />                        (list "SOUTH"<br />                              (cons 1000 bm)<br />                         );list<br />                   );list<br />              );list<br /> );setq<br /> (setq ent (append ent app_x))<br /> (entmod ent)<br /> );defun

陈亚娣

lioun4105 发表于 2017-9-4 20:46
这个最好用，还有更好的吗，点出高程不用按空格就好了

你可以修改一下就能实现了

lioun4105

这个最好用，还有更好的吗，点出高程不用按空格就好了

lioun4105

这个好用，谢谢

q3_2006

(command "insert" "gc200" 什么意思？

004

q3_2006 发表于 2013-6-21 17:26
(command "insert" "gc200" 什么意思？

插入名为gc200的块

szxgsh

xiabin68

g版这么快就给源码了，，，

461045462

谢谢楼主的分享！

陈亚娣

004 发表于 2013-6-21 17:58
插入名为gc200的块

gc200块是在南方CASS里高程相对位置的一个点位块

陈亚娣

q3_2006 发表于 2013-6-21 17:26
(command "insert" "gc200" 什么意思？

gc200块是在南方CASS里高程相对位置的一个点位块

zyhandw

思路清晰，功能实用，感谢楼主分享！

清风明月名字

谢谢楼主的分享！收藏备用。就是没有gc200.dwg块文件，所以无法测试