|
1934| 2
|
[资源] 求大师帮写个偏移的插件功能 |
|
5明经币
最佳答案试试这个：
(defun c:00 (/ *error* dist en n os pt)
(defun *error* ( msg )
(if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
(progn (princ (strcat "\n错误： " msg)) (setvar "OSMODE" os))
)
(princ)
)
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 16384)
(setq dist (getreal "\n指定偏移距离< 默认：8 >：")
n (getint "\n输入偏移数量< 默认：8 >：")
en (car (entsel ...
评分
| ||||||||
发表于 2018-10-24 17:26:55
置顶卡
变色卡
显身卡
楼主