[日积月累]：有用的Lisp小工具（3）--带等分功能的平行复制

841594

autocad的offset命令的有一个小困难：比如想复制三次（或其他奇数次），总的距离是一个整数，而每次的复制距离却是碎数，要想准确作图就很麻烦。
这个小工具为offset增加了一个均分的选项，可以输入总的距离和均分的段数，程序帮你算出精确值。
很有用哦！

2. 
   
3. (defun c:lof( / dis n)
   
4.   (initget "Divide Through")
   
5.   (setq dis (getdist "\n请输入平行复制的距离(计算均分D/通过点T): "))
   
6.   (if (= dis "Divide") (progn
   
7.     (setq dis (getdist "\n总距离: ")
   
8.           n (getint "\n复制数量: ")
   
9.           dis (/ dis n)
   
10.     )
    
11.   ))
    
12.   (command "offset" dis)
    
13.   (princ)
    
14. )

<br /> (defun c:lof( / dis n)<br />   (initget "Divide Through")<br />   (setq dis (getdist "\n请输入平行复制的距离(计算均分D/通过点T): "))<br />   (if (= dis "Divide") (progn<br />     (setq dis (getdist "\n总距离: ")<br />           n (getint "\n复制数量: ")<br />           dis (/ dis n)<br />     )<br />   ))<br />   (command "offset" dis)<br />   (princ)<br /> )

eachy

最初由 841594 发布
[B]autocad的offset命令的有一个小困难：比如想复制三次（或其他奇数次），总的距离是一个整数，而每次的复制距离却是碎数，要想准确作图就很麻烦。
这个小工具为offset增加了一个均分的选项，可以输入总的距离和均分?.. [/B]

其实CAD命令行可以接受Lisp表达式的，比如等分可以这样

1. 
   
2. 命令: offset
   
3. 
   
4. 指定偏移距离或 [通过(T)] <1.0000>:[color=blue] (/ 500. 6)[/color]
   
5. 83.3333
   
6. 
   
7. 选择要偏移的对象或 <退出>
   

复制代码

841594

程序的优点有两点：
1.给定距离时，用在图上点取的办法速度比较快、也不容易出错，最大的好处是不用数字过脑，思路更连贯。
2.适用于总的距离也是碎数的情况。
当然工具的使用要看具体的情况，选择最好的办法。
谢谢eachy的评点！

liberal520

不错的插件哈 多谢分享哈