【KAIXIN】 发表于 2011-12-13 18:13:19

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

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


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


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

JHX948954875 发表于 2019-9-16 09:20:44

谢谢楼主分享

paulpipi 发表于 2019-9-15 11:55:03

高人就是牛

邹锋 发表于 2011-12-13 18:24:07

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

【KAIXIN】 发表于 2011-12-13 18:28:20

邹锋 发表于 2011-12-13 18:24 static/image/common/back.gif
顶一下。。。。还有木有，，

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

vlisp2012 发表于 2011-12-13 19:39:48

希望kanxin继续发展。

VBALISPER 发表于 2011-12-13 20:09:54

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

【KAIXIN】 发表于 2011-12-13 20:16:36

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

不是,COMMAND就不行！

VBALISPER 发表于 2011-12-13 20:18:37

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

500w008 发表于 2011-12-13 22:47:04

完整武器 发表于 2011-12-13 22:59:41

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

zqb05 发表于 2011-12-14 00:41:11

页: [1] 2 3 4
查看完整版本: 分享一句搞定的常用程序（经典例子）