CAD屏幕旋转命令
这是我在网上花100元请人从FAS文件中还原出来的屏幕旋转源文件，里面有两个命令FNZP和CADZP两个命令可用。在cad模型和布局中使用效果很好，旋转后可还原。
比论坛中的其它转屏命令要好用很多！
本帖最后由 zmzk 于 2019-12-15 09:16 编辑
还有你这功能和我以前在本论坛下载的"斜轴线对正垂直显示"程序功能一样，请看下边(defun C:gv (/ os ctscale tt pt pt1 pt2 pt3 by ang)
(setvar "CMDECHO" 0)
(setvar "ucsfollow" 0)
(setvar "regenmode" 1)
(setq os (getvar "OSMODE"))
;;;(if (= cts nil)(setq cts 100))
;;;(setq ctscale (getreal (strcat "\n出图比例(1:?) <" (rtos cts 2 0) ">:")))
;;;(if (= ctscale nil)(setq ctscale cts))
;;;(setq cts ctscale)
(setq ctscale 100)
(initget "Y W")
(setq tt (getkword "\nW-世界坐标系/<垂直显示>: "))
(if (or (= tt "w") (= tt "W"))
(progn
(command "plan" "w")
(command "ucs" "w")
(command "view" "r" "dz")
(setq ptt nil)
(command "regen")
)
(progn
(if (= ptt nil)(command "view" "s" "dz"))
(setvar "osmode" 513)
(setq pt1 (getpoint "\n点取Y轴原点<退出>:"))
(if pt1
(progn
(setq pt2 (getpoint "\n选择Y轴正向<退出>:"))
(if pt2
(progn
(setq ang (angle pt1 pt2))
;;;(command "color" "250")
(setq pt3 (polar pt1 (- ang (/ pi 2)) (* 0.1 ctscale)))
(setvar "osmode" (+ 16384 os))
(command "line" pt1 pt3 "")
(command "color" "Bylayer")
(setq pt (entlast))
(command "ucs" "e" pt)
(command "plan" "")
(setq ptt '(0 0))
(setq by (* 150 ctscale))
(command "zoom" "c" ptt by)
(entdel pt)
(command "regen")
) ;progn
) ;if pt2
) ;progn
) ;if pt1
(setvar "osmode" os)
) ;progn
) ;if tt
(princ)
)
本帖最后由 nyistjz 于 2018-10-9 23:07 编辑
石井鱼 发表于 2018-10-8 12:22
这个还要收费啊，试试这个呢
(command "DVIEW" "" "TW" "270" "")
(command "DVIEW" "" "TW" "0" " ...
您这个也是个好办法。
因为我自己不会编程，用过很多其它方法，总体上来讲，感觉这个小程序里的操作是最方便的。
可以任意角度，并且在布局中表现也很好！
收两个币，是因为我毕竟是花了100元人民币的啊！
xinxirong 发表于 2018-10-7 22:12
造福社会是好事，但不要损害别人正当利益。另外，旋转屏幕这种简单的命令纯粹是cad基础，一个ucs和plan命令 ...
严重同意您的观点！
因为CAD基本功不好，不会编程，没有办法把命令简单化。不好意思，让您见笑了！ 谢谢! nyistjz 分享程序!!!!! 谢谢分享。不知道有什么用呢？ 怎么样旋转的？能给个GIF图来看看么？我通常是直接旋转显示器的。 造福社会是好事，但不要损害别人正当利益。另外，旋转屏幕这种简单的命令纯粹是cad基础，一个ucs和plan命令就能搞定 evayleung 发表于 2018-10-7 20:44
怎么样旋转的？能给个GIF图来看看么？我通常是直接旋转显示器的。
李时珍的皮:lol CAD 基本功，不明觉厉 这个还要收费啊，试试这个呢
(command "DVIEW" "" "TW" "270" "")
(command "DVIEW" "" "TW" "0" "")
页:
[1]
2