caoliu023 发表于 2012-12-10 18:35:55

读取长度偏移

本帖最后由 caoliu023 于 2022-8-15 18:48 编辑

根据在明经找的源码在ZZXXQQ的帮助下改编出这个小程序，


谢谢明经提供的平台和前辈们分享的源码才让我对lisp产生了浓厚的兴趣，
以后更加努力学习，用更多的源码回馈论坛
完整的源码在附件里，刚学编程抄的代码，取消收币

;感谢ZZXXQQ的帮助和不知道名字的前辈的MJ:GetCurveLength函数，我才能完成这个小程序
(defun c:oi ()
(vl-load-com)
(Setq osmode_bak (getvar "osmode"))
(Setvar "osmode" 0)
(Setq clayer_bak (getvar "clayer"))
(Setq cecolor_bak (getvar "cecolor"))
(Setq celtype_bak (getvar "celtype"))
(Setq textstyle_bak (getvar "textstyle"))
(setq aa (MJ:GetCurveLength (car (entsel "\n请选择一个长度:"))))
(princ "\n请选择偏移对象")
(command "_OFFSET" aa)
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))
(Setvar "osmode" osmode_bak)
(Setvar "clayer" clayer_bak)
(Setvar "cecolor" cecolor_bak)
(Setvar "celtype" celtype_bak)
(Setvar "textstyle" textstyle_bak)
(princ)

)




http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 caoliu023的微博

caoliu023 发表于 2012-12-17 23:17:05

自己坐沙发

注册 发表于 2012-12-18 09:55:19

楼主的名字碉堡咧

caoliu023 发表于 2012-12-19 00:02:11

ヾ(＠⌒ー⌒＠)ノ

清风明月名字 发表于 2013-6-29 11:59:53

谢谢楼主的分享！收藏备用。

混沌初开 发表于 2013-12-26 23:22:00

楼主怎么用啊?贴个效果图啊!金币很贵啊!

chbddzx12 发表于 2018-3-25 17:59:53

不错~~~~~~~~~~~~~~~

ketxu 发表于 2019-11-25 21:48:15

Thanks for sharing.. Collected ^^

LIULISHENG 发表于 2020-5-12 15:28:06

感谢楼主的源码

paulpipi 发表于 2020-10-5 10:40:39

很好用
页: [1]
查看完整版本: 读取长度偏移