分享一句搞定的常用程序（经典例子）

【KAIXIN】

今天心情好！.....无需多说，直接上程序：

2. 
   
3. ;一句搞定的常用程序——【KAIXIN】分享
   
4. ;旋转1度:  
   
5. (vl-cmdf "rotate"  (ssget)  "" (getpoint "\n选择基点:") 1)
   
6. ;旋转复制1度
   
7. (vl-cmdf "copy" (setq ww (ssget)) "" '(0 0) '(0 0)
   
8.         "rotate" ww "" (getpoint "\n请选择基点:") 1)
   
9. ;改颜色,改线型
   
10. (vl-cmdf "Chprop" (ssget) "" "c" "red" "")
    
11. (vl-cmdf "Chprop" (ssget) "" "LT" "continuous" "")
    
12. ;标注前后加字
    
13. (vl-cmdf "DIMLINEAR" (getpoint) (getpoint) "m" "%%C<>")加字

<br /> ;一句搞定的常用程序——【KAIXIN】分享<br /> ;旋转1度:  <br /> (vl-cmdf "rotate"  (ssget)  "" (getpoint "\n选择基点:") 1)<br /> ;旋转复制1度<br /> (vl-cmdf "copy" (setq ww (ssget)) "" '(0 0) '(0 0)<br />         "rotate" ww "" (getpoint "\n请选择基点:") 1)<br /> ;改颜色,改线型<br /> (vl-cmdf "Chprop" (ssget) "" "c" "red" "")<br /> (vl-cmdf "Chprop" (ssget) "" "LT" "continuous" "")<br /> ;标注前后加字<br /> (vl-cmdf "DIMLINEAR" (getpoint) (getpoint) "m" "%%C<>")加字

该贴已经同步到 【KAIXIN】的微博

JHX948954875

谢谢楼主分享

paulpipi

高人就是牛

邹锋

顶一下。。。。还有木有，，

【KAIXIN】

邹锋 发表于 2011-12-13 18:24
顶一下。。。。还有木有，，

这个只是例子，可以发展............

vlisp2012

希望kanxin继续发展。

VBALISPER

好象LISP都可以一句搞定,不分行,写在一行就行.个别时候添加个中间变量什么的.最终可以一行完成.

【KAIXIN】

VBALISPER 发表于 2011-12-13 20:09
好象LISP都可以一句搞定,不分行,写在一行就行.个别时候添加个中间变量什么的.最终可以一行完成.

不是,COMMAND  就不行！

VBALISPER

哦.,你说得对.我以为错了

完整武器

开心这个天东东好多哦 继续继续

zqb05

[em0]