只需一步,快速开始
使用道具 举报
(setq p1 (getpoint "\n 请选择第一点: "))
(setq p2 (getpoint p1 "\n 请选择第二点: "))
***L.CAD***Lib Smart Mold Design***
主要做如下设置,其他的部分比如打开数据库关闭数据库,打开表打开记录等等自己写了
Dim P3ddResult As PromptPointResult
Dim PointPrompt As PromptPointOptions = New PromptPointOptions("")
PointPrompt.BasePoint = P3ddResult.Value ' 橡皮筋基点坐标PointPrompt.UseBasePoint = True‘允许使用橡皮筋,可以不要,默认为Ture
PointPrompt.UseDashedLine = True '设置橡皮筋的线型为虚线,可以不要
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-11-25 20:37 , Processed in 0.150282 second(s), 24 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.