mokson 发表于 2018-10-8 20:44:28

人才济济呀。望而生畏。

zmzk 发表于 2019-12-15 09:05:19

请问，两个命令FNZP和CADZP有什么区别？怎么我试过了，感觉功能一样呢？？

zmzk 发表于 2019-12-15 09:08:28

本帖最后由 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)

)

andyzha 发表于 2019-12-15 19:15:34

总用视口布局的人需要掌握的基本技能，编程更便捷。值得分享，希望是无私的。

nyistjz 发表于 2020-5-11 12:34:24

cjjh8301 发表于 2020-5-13 13:23:27

李钊伟2012 发表于 2020-5-14 08:57:50

感觉这一百元不值得，如何告诉你怎么破解，就值钱了

mokson 发表于 2020-8-30 15:22:57

居然有这样的命令？

ferious 发表于 2024-11-26 15:35:53

evayleung 发表于 2018-10-7 20:44
怎么样旋转的？能给个GIF图来看看么？我通常是直接旋转显示器的。

这是高手:lol
页: 1 [2]
查看完整版本: CAD屏幕旋转命令