相对Copy.lsp

jfxia

       明经币不多了，学习中，谢

yanshengjiang

mei  kan dong!

pizg

這是我寫的, 有數種輸入方式的相對複製, 請大家參考並指教:

;;2011-06-03 by PizG
(defun c:MCopy(/ sl cmd blp osm p0 p1)
  (if (setq sl (ssget))
    (progn
      (setq cmd (getvar "cmdecho")
            blp (getvar "blipmode")
            osm (getvar "osmode")
      )
      (setvar "cmdecho" 0)
      (setvar "blipmode" 0)
      (setvar "osmode" 0)
      (setq p0 (getvar "viewctr") p1 p0)
      (while (setq p1 (getpoint p1 "\n指定第二點:"))
        (command ".copy" sl "" p0 p1)
        (setvar "lastpoint" p1)
      )
      (setvar "cmdecho" cmd)
      (setvar "blipmode" blp)
      (setvar "osmode" osm)
    )
  )
  (princ)
)

指令: MCopy
選取物件: ....
選取物件: <Enter>
指定第二點: (用滑鼠指定一點)
指定第二點:50 (用滑鼠拉出方向再輸入距離)
指定第二點:@50<45
指定第二點:@50,0
指定第二點: (按Enter結束)

hbshyjch

为什么要收费呢

xiaxiang

pizg 发表于 2011-6-3 12:36
這是我寫的, 有數種輸入方式的相對複製, 請大家參考並指教:

;;2011-06-03 by PizG

为何要这样处理基点，不懂

自贡黄明儒

回复 hbshyjch 的帖子

因为你有明经币8个，留来干什么呢？

pizg

回复 xiaxiang 的帖子

這個程序很簡單但功用卻不小,
在放置螺栓孔時很常用.

zh74

还收币呀。。。。。飘

cjjh8301

自己不会写，只能花币买了，比我以前那个强点！

gbhsu

回复 LLXXZZ 的帖子

我有时间编一个给你