读取长度偏移

caoliu023

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


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

1. 
   
2. ;感谢ZZXXQQ的帮助和不知道名字的前辈的MJ:GetCurveLength函数，我才能完成这个小程序
   
3. (defun c:oi ()
   
4.   (vl-load-com)
   
5.   (Setq osmode_bak (getvar "osmode"))
   
6.   (Setvar "osmode" 0)
   
7.   (Setq clayer_bak (getvar "clayer"))
   
8.   (Setq cecolor_bak (getvar "cecolor"))
   
9.   (Setq celtype_bak (getvar "celtype"))
   
10.   (Setq textstyle_bak (getvar "textstyle"))
    
11.   (setq aa (MJ:GetCurveLength (car (entsel "\n请选择一个长度:"))))
    
12. (princ "\n请选择偏移对象")
    
13. (command "_OFFSET" aa)
    
14. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
15.   (Setvar "osmode" osmode_bak)
    
16. (Setvar "clayer" clayer_bak)
    
17. (Setvar "cecolor" cecolor_bak)
    
18. (Setvar "celtype" celtype_bak)
    
19. (Setvar "textstyle" textstyle_bak)
    
20.   (princ)
    
21. 
    
22. )
    
23. 
    

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

该贴已经同步到 caoliu023的微博

caoliu023

自己坐沙发

注册

楼主的名字碉堡咧

caoliu023

ヾ(＠⌒ー⌒＠)ノ

清风明月名字

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

混沌初开

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

chbddzx12

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

ketxu

Thanks for sharing.. Collected ^^

LIULISHENG

感谢楼主的源码

paulpipi

很好用