qq1254582201 发表于 2015-12-8 14:59:02

自己做的跟随旋转，在大神的帮助下已经完善

本帖最后由 qq1254582201 于 2015-12-9 15:24 编辑

经过不断的探索终于解决最新代码如下，多谢大神的提点(DEFUN C:XZ( )
    (SETQ OBJ(SSGET))
    (command ".rotate" OBJ""
      (setq d1(getpoint "\n选择基点: "))
      "r"
      d1   
    )
    (PRINC)
)

ZZXXQQ 发表于 2015-12-8 15:24:16

(defun C:XZ( )
(setq OBJ1 (ssget))
(command ".rotate" OBJ1 ""
            (setq d1(getpoint "\n选择基点: "))
            "r" d1
            (setq d2(getpoint d1 "\n选择参照点: "))
            (progn (grdraw d1 d2 0 1) (setq d3(getpoint "\n选择下一点: ")))
)
(princ)
)

qq1254582201 发表于 2015-12-8 16:31:56

ZZXXQQ 发表于 2015-12-8 15:24 static/image/common/back.gif


这样就不会体现动态跟随变化的效果了

qq1254582201 发表于 2015-12-9 09:05:26

跪求解决方案

ZZXXQQ 发表于 2015-12-9 12:47:50

(defun C:XZ( )
(setq OBJ1 (ssget))
(command ".rotate" OBJ1 ""
            (setq d1(getpoint "\n选择基点: "))
            "r" d1
            (setq d2(getpoint d1 "\n选择参照点: "))
            (progn (grdraw d1 d2 0 1) PAUSE)
)
(princ)
)

qq1254582201 发表于 2015-12-9 15:05:14

ZZXXQQ 发表于 2015-12-9 12:47 static/image/common/back.gif


谢谢大神，问题已完美解决，原来可以省略捕捉的2、3点就可以实现旋转啊。(DEFUN C:XZ( )
    (SETQ OBJ(SSGET))
    (command ".rotate" OBJ""
            (setq d1(getpoint "\n选择基点: "))
            "r"
            d1        
    )
    (PRINC)
)

999999 发表于 2020-9-5 17:01:04

收下楼主及各位大神讨论的代码，学习学习

zmzk 发表于 2024-1-31 22:24:20

测试了，确实好用！
页: [1]
查看完整版本: 自己做的跟随旋转，在大神的帮助下已经完善