把一定范围内的高程点移动到道路中线和横断面线交点

mj0000 · 发表于 2022-3-15 11:45:20

圈选可以用这个
;;; Cen - 插入点
;;; Rad - 圆的半径
;;; N --- 圆的等分数量
(defun Get_CirclePtS (Cen Rad N / angdiv ANG ENLST)
  (setq angdiv (/ (* 2 pi) N))
  (setq ang 0)
  (setq enlst (list (polar cen ang Rad)))
  (repeat (1- N)
(setq enlst (cons (polar cen (setq ang (+ ang angdiv)) Rad) enlst)) ;画红色圆弧，100等分，模拟圆弧
  )
  enlst
)
(ssget "CP" (Get_CirclePtS (getpoint "\n指定点:") 0.2 36)) ;圈交--圆36等分

f4800 · 发表于 2022-3-15 11:51:08

mj0000 发表于 2022-3-15 11:45
圈选可以用这个
;;; Cen - 插入点
;;; Rad - 圆的半径

多谢多谢我再试试

xyp1964 · 发表于 2022-3-15 13:54:19

找道路中线
逐个择横断面线
求交点，逐个交点范围选高程图块，距离小于给定值的移位

f4800 · 发表于 2022-3-15 15:04:27

xyp1964 发表于 2022-3-15 13:54
找道路中线
逐个择横断面线
求交点，逐个交点范围选高程图块，距离小于给定值的移位

给力

f4800 · 发表于 2022-3-17 08:34:18

mj0000 发表于 2022-3-15 11:45
圈选可以用这个
;;; Cen - 插入点
;;; Rad - 圆的半径

运行OK

多谢大师

f4800 · 发表于 2022-3-31 23:25:29

mj0000 发表于 2022-3-15 11:45
圈选可以用这个
;;; Cen - 插入点
;;; Rad - 圆的半径

大师又发现一个问题
这种方法移动高程点以后高程点的Z值会变成0

f4800 · 发表于 2022-4-2 07:37:51

(vl-cmdf "_MOVE" en "" pt1 Pt0)

f4800 · 发表于 2022-4-2 07:40:30

(vl-cmdf "_MOVE" en "" pt1 Pt0)这个命令中的新点位置Z值为0，是导致移动后的高程点缺少Z值

mj0000 · 发表于 2022-4-2 08:42:22

需要Z值，目标点的坐标要改三维
   (setq en (ssname sel (1- (sslength sel)))) ;获得选集中第一个图元名
   (setq pt1 (cdr (assoc 10 (entget en))))
   (setq BG_Z (last pt1)) ;获取图块Z值（也可以自己写成获取图块中的数字）
   (setq Pt0 (list (car Pt0) (cadr Pt0) BG_Z));重组3维坐标点
   (vl-cmdf "_MOVE" en "" pt1 Pt0)

f4800 · 发表于 2022-4-2 08:51:10

mj0000 发表于 2022-4-2 08:42
需要Z值，目标点的坐标要改三维
(setq en (ssname sel (1- (sslength sel)))) ;获得选集中第一个图 ...

明白了多谢多谢。。。。。。

账号		自动登录	找回密码
密码			注册

[提问] 把一定范围内的高程点移动到道路中线和横断面线交点

本帖子中包含更多资源

评分