cass通用升级版CGC圆圈高程(标高Gu_xl)点CFC三角形高程(标高77077)点创建

寒潮大冬瓜

三角形高程点容易有上下左右之分，而lsp似乎还没有大侠直接实现动态夹点功能，也给下一步绘图造成困扰！
实心高程点容易遮盖线线交点，给下一步绘图造成困扰！

升级后是圆圈高程(标高)点，CGC快捷键生成，每分钟之后自动更改图层和块名，能通过‘按块全选’删除，轻松修改绘图过程，同时不影响其他图元！防止误删除，免去很多分离图元之苦！拾取还是原来的位置，用(xyp-DXF 10 (car (entsel"\n选择实体: <退出>"))) 同样轻松获取坐标值。
CFC三角形的高程(标高)，能轻松实现图纸剖面图制图需要！

用BGTY获取高程块GC200属性(height值和Z值)为参照点高程值然后框选N个B点后计算高差值并逐个写入B高程块GC200属性(height值和Z值)中去当于是属性块的高程的属性更新高程刷20241113→实现快速刷新高程点的值→当然比不上天正的带夹点的属性块！

;;;BGTY获取高程块GC200属性(height值和Z值)为参照点高程值然后框选N个B点后计算高差值并逐个写入B高程块GC200属性(height值和Z值)中去当于是属性块的高程的属性更新高程刷。
(DEFUN C:BGTY() (BGTY2023)(princ))
(defun BGTY2023(/ b10 b101 en0b en1b ent0b ent1b i laynama10 pt0b sel99 sela ss1a ssb str1a str22a str22aabb str22ab str22abb str31b strxb10 strya10 stryb10 stryb10b strzb10 x10 y10 z z199 z1a z998 za);Z99在这上面不能出现，否则失去输入参数的记忆功能！
……
(SETQ str22AABB(* str22ABB z99));用计算比值(比例因子)乘上Y轴方向的计算差值
……
(princ "成功更新高程点Z值于")(princ(lsp20230908))

比例因子的参数的输入→能够顺利的绘图的时候往往建筑总图是m为单位，而建筑平面是mm，剖面大样图又往往是其他比例！