11
33
22
初露锋芒
(setq pt1(getpoint"\nInsert Point:"))(setq pt2(getpoint pt1"\nLength :"))
使用道具 举报
106
1万
101
顶梁支柱
63
6297
6283
后起之秀
(if (setq pt1 (getpoint "\n Insert Point:")) (progn (if (not Len )(setq Len 5.)) (setq pt2 (cond ((getdist (strcat "\n Length < "(rtos Len 2 2) "> :")))(T Len))) (setq Len pt2) ) (princ) )
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-7-6 14:45 , Processed in 0.460371 second(s), 62 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端