[LISP程序]：我自编的偏移到当前层的小LSP

andyding · 发表于 2005-2-19 00:57:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

小东西,见笑了!!!把对象从其他层偏移到当前层.
2005.02.21重新上传.
经R2002及R2004测试通过!!!

li809 · 发表于 2005-2-21 13:14:02

下了，但还没用呢

贱人 · 发表于 2005-2-21 22:17:36

命令: oc
; 错误: no function definition: START00
命令:

我用的是2004

ss1025 · 发表于 2005-2-22 10:37:14

把START00这句删掉再试试。

andyding · 发表于 2005-2-26 21:44:47

最初由贱人发布
[B]命令: oc
; 错误: no function definition: START00
命令:

我用的是2004 [/B]

彻底解决,如下:
(DEFUN C:OC() (vl-cmdf "_.undo" "_group")
            (mapcar 'princ (list "Current offset dist= " (getvar "OFFSETDIST")" "))
            (setq di (getstring "\nEnter Offset Dist:"))
            (setq o (ssget))
            (setq po (getpoint "\nSide to offset"))
            (setq LAY (getvar "CLAYER"))
            (if (/= di nil)
            (COMMAND "OFFSET" di o po "")
            (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" ""))
            (if (= di nil)
            (COMMAND "OFFSET" "" o po "")
            (COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer" ""))
            (vl-cmdf "_.undo" "_end")(princ))

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：我自编的偏移到当前层的小LSP

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

解决了!!!