feelg 发表于 2013-12-24 16:53:08

旋转参照连续复制，求完善

现在此LSP可，旋转参照单复制，不能够连续选择参照点进行旋转复制。求完善，谢谢

言社长 发表于 2016-3-18 13:08:10

本帖最后由 言社长 于 2016-3-18 13:21 编辑

;;;;旋转复制 By 言社长;;;;;;
(defun c:tt ( / ent ent1 pt1 pt2 ss)
(setq ent (ssget))
(setq pt1 (getpoint "\n-->请选择基点:"))
(while
(setq pt2 (getpoint "\n-->请选择放置点:"))
(setq ent1 (entlast))
(setvar "cmdecho" 0)
(command "copy" ent "" pt1 pt2 )
(setq ss (ssadd ))
(while (setq ent1 (entnext ent1)) (ssadd ent1 ss) )
(command "rotate" ss "" pt2)
(princ "\n-->请指定旋转角度：")
(command pause)
)
(princ))

ZZXXQQ 发表于 2013-12-24 21:09:03

(defun c:rfc()
(while (setq ss (ssget))
(command "rotate" ss "" pause)
(setq p1 (getvar "lastpoint"))
(command "C" "R" p1 pause pause)
)
(princ)
)

feelg 发表于 2013-12-26 22:33:54

求助

feelg 发表于 2014-1-22 21:54:20

ZZXXQQ 发表于 2013-12-24 21:09 static/image/common/back.gif


好像还不行呢，程序完成后应该是选择对像后选择旋转点然后选参照点，然后鼠标点那就能复制到那。。

xyp1964 发表于 2014-1-22 22:49:43

(defun c:tt ()
(setq ss (ssget))
(command "rotate" ss "" pause pause)
(setq p0 (getvar "lastpoint"))
(while (setq p1 (getpoint "\n基点<退出>: "))
    (command "copy" ss "" p0 p1)
)
(princ)
)

hooboxu 发表于 2014-11-6 02:45:30

四个立面旋转？

mjj3468 发表于 2016-3-18 11:42:06

xyp1964 发表于 2014-1-22 22:49 static/image/common/back.gif


要旋转复制，原来位置的图形要保留
页: [1]
查看完整版本: 旋转参照连续复制，求完善