旋转视口

xmlk · 发表于 2019-1-14 16:39:10

谢谢分享！

xmlk · 发表于 2019-1-14 17:51:36

adc 发表于 2016-9-1 14:06
我这里也是提示这个

我也有这个提示于是去掉一些代码这边就可以运行可以试一试;;;;;;;;;;;;;;;;;;;;;;旋转视口自贡黄明儒 2014.10.10
(defun C:RV (/ CMD1 P1 P2)
  (vl-load-com)
  (or *ACAD* (setq *ACAD* (vlax-get-acad-object)))
   (setq cmd1 (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (if (equal (getvar "TILEMODE") 0)
(cond
   ((equal (getvar "CVPORT") 1)
   (princ "\n 请双击激活视口运行本程序")
   )
   (T
   (cond
      ((and (setq p1 (getpoint "\n 旋转基点"))
            (setq p2 (getpoint p1 "\n 旋转终点"))
      )
      (command "_.ucs" "_Z" "non" p1 "non" p2)
      (command "_.Plan" "")
      )
   )
   )
)
(princ "\n 请切换到布局")
  )
  (setvar "cmdecho" cmd1)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;旋转视口自贡黄明儒 2014.10.10

qyming2000 · 发表于 2019-1-15 01:17:57

学习
来自: 微社区

naruto018 · 发表于 2019-1-15 08:27:06

来学习一下

bennyzhang · 发表于 2019-1-16 15:50:36

下载学习。谢谢！

线路板 · 发表于 2019-1-29 09:39:28

确实不错确实不错

发表于 2019-3-18 16:46:03

RE: 旋转视口 [修改]

evayleung · 发表于 2019-3-21 07:10:27

谢谢分享。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

a6262 · 发表于 2019-3-21 09:37:31

想学习学习一下

fengyun7000 · 发表于 2019-3-21 09:55:35

不错不错，学习感谢

ketxu · 发表于 2019-3-28 16:46:23

Nice to learn. Thank you

coverne · 发表于 2019-3-28 18:23:44

学习下！！！谢谢！！！

satan421 · 发表于 2019-3-28 20:43:39

学习一下，谢谢分享

土贤葛炮 · 发表于 2019-4-16 16:12:46

回复看看现在手里有个水利项目需要大量调整

土贤葛炮 · 发表于 2019-4-16 16:15:39

回复看看现在手里有个水利项目需要大量调整

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

[每日一码] 旋转视口