[求助]：问一个简单的菜鸟问题

pisces_zy

刚在论坛下的一个双向偏移lisp

;;;|双向偏移 SNSJ 2004.3.8
(defun ptlay (x y)  (vla-put-layer(car(vlax-safearray->list(vlax-variant-value x)))y))
(defun c:2os (/ getds obj lynm)
(vl-load-com)(setq lynm (getstring "\n输入想要偏移的层名:"))
  (if (null(tblsearch "layer" lynm))(vl-cmdf ".layer" "n" lynm ""))   
(initget 2)(setq getds (getdist "\n输入偏移距离<可直接量取>:"))
(if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
  (vlax-for obj (vla-get-activeselectionset
              (vla-get-activedocument (vlax-get-acad-object)))         
    (ptlay (vla-offset obj getds) lynm)(ptlay (vla-offset obj (* getds -1)) lynm)
     )(vlax-release-object obj)
  )(princ)  
  )

本人系lisp菜鸟，对编程一窍不通，想问一下这个lisp加载后命令是
2os，如果我想把它的命令改成另外一个的话，比方说oo
是不是改动其中的(defun c:2os 为(defun c:oo，即可？？

aidraft

是的，其实你自己试试便知。

pisces_zy

自己瞎试了一下，如上所述修改后出错了

双向偏移变成了单向偏移，还提示出错

aidraft

你必须输入图层，否则会出错。
但我修改了一下，光回车也行。

;;;|双向偏移 SNSJ 2004.3.8
(defun ptlay (x y)
  (vla-put-layer
    (car (vlax-safearray->list (vlax-variant-value x)))
    y
  )
)
(defun c:OO (/ getds obj lynm)
  (vl-load-com)
  (setq lynm (getstring "\n输入想要偏移的层名<不换层>:"))
  (if (/= lynm "")
    (if (null (tblsearch "layer" lynm))
        (vl-cmdf ".layer" "n" lynm "")
    )
  )
  (initget 2)
  (setq getds (getdist "\n输入偏移距离<可直接量取>:"))
  (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
    (vlax-for obj (vla-get-activeselectionset
                    (vla-get-activedocument (vlax-get-acad-object))
                  )
      (if (= lynm "")(setq lynm (vla-get-layer obj)))
      (ptlay (vla-offset obj getds) lynm)
      (ptlay (vla-offset obj (* getds -1)) lynm)
    )
    (vlax-release-object obj)
  )
  (princ)
)

pisces_zy

谢谢楼上的

感激ing

lixuedong

完全对。