求高人写横断面垂直移动到线上程序

jhzlx · 发表于 2017-9-15 23:06

言戲無軍发表于 2017-9-10 15:33
写的粗糙，貌似可用

谢谢你！命令是

言戲無軍 · 发表于 2017-9-17 13:31

加载后会提示gcdtopmx

13648893846 · 发表于 2017-9-18 11:13

有软件锁的才有，有的时候用到盗版的就没有这功能了

jhzlx · 发表于 2017-9-22 16:39

没有提示，你说的命令用不了

jhzlx · 发表于 2017-9-23 09:07

本人莱鸟，网上找的。请高手修正。

言戲無軍 · 发表于 2017-9-24 16:44

blocktopmx

言戲無軍 · 发表于 2018-4-23 22:54

jhzlx 发表于 2017-9-23 09:07
本人莱鸟，网上找的。请高手修正。

解决了吗，楼主的问题

f4800 · 发表于 2022-3-17 07:54

不错的工具支持

f4800 · 发表于 2022-3-27 20:08

;程序－移动高程点至断面线上
;程序较小,附源码,有注释
(DEFUN C:TT () (C:MGC))
( defun C:MGC (  /  pt sl pd) ; 垂直移动高程点到断面线上的程序，
; appload 加载后，运行 mgc 命令即可，The pro- gram written by wang shaowen
( setq  sl  ( entsel "\n选择横断直线:" ) )
( if ( null vlax-dump-object) ( vl-load-com) )  ; 加载 vlax 扩展函数
( setq sl ( vlax-ename->vla-object ( car sl) ) )  ; 转换直线为 vla 对象
( setq en T) ;  对象为 T 值，t 为常量，非 NiL 值 ( while en ; 循环语句
( while( not ( setq en ( entsel" \n选择高程点 [Esc退出]:" ) ) ) ); 循环选择，过滤空选
( setq en_data ( entget ( car en) ) ); 取得元体资料列表
( setq pt ( cdr ( assoc 10 en_data) ) ); 求得高程点坐标 pt
( setq  pd ( vlax-curve-getclosestpointto  sl pt) ); 求出直线上距选择点最近的点
( setq  pd1 ( list ( car pd )  ( cadr pd )  ( caddr pt) ) ); 改变 Z 值，避免 0 值
( command "_move" en "" pt pd1)
(princ)
)
(prompt "\n高程点垂直移动到横断直线 [MGC/TT]"  )
(princ)

f4800 · 发表于 2022-3-27 20:08

感谢分享。。。。。。。。。。。。。。。。。

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

[源码] 求高人写横断面垂直移动到线上程序

本帖子中包含更多资源