“坐标网格”高手看看哪里的问题

fengjian11 · 发表于 2009-12-12 23:33

(defun c:zbwg()
(setq os (getvar "osmode"))
(setq zxzb(getpoint"输入左下角坐标："))
(setq yszb(getcorner zxzb "\n输入右上角坐标：")
wgbl(getint"输入比例： 1："))
(setq xzeng (- (car yszb) (car zxzb))
yzeng (- (cadr yszb) (cadr zxzb))
wgjj (/ wgbl 10))
(setq xwgs (fix(/ xzeng wgjj))
ywgs (fix(/ yzeng wgjj)))
(setq aa zxzb
bb zxzb)
(setq wzgd (* 3 (* 0.01 wgjj))
wzpy (* 5 (* 0.01 wgjj)))
(setvar "osmode" 0)
(repeat (+ 1 xwgs)
      (setq pt1 aa)
      (setq pt2 (polar pt1 (* pi 0.5) yzeng))
      (command"line" pt1 pt2 "")
      (setq wzpt1 (polar pt1 (* pi 1.5) wzpy)
     wzpt2 (polar pt2 (* pi 0.5) wzpy))
      (setq wznr (fix(car wzpt1)))
      (command"text""j""m" wzpt1 wzgd 0 wznr)
      (command"text""j""m" wzpt2 wzgd 0 wznr)
      (setq aa (polar aa 0 wgjj))
    )
   (repeat (+ 1 ywgs)
      (setq pt3 bb)
      (setq pt4 (polar pt3 0 xzeng))
      (command"line" pt3 pt4 "")
      (setq wzpt3 (polar pt3 pi wzpy)
     wzpt4 (polar pt4 0 wzpy))
      (setq wznr1 (fix(cadr wzpt3)))
      (command"text""j""m" wzpt3 wzgd 0 wznr1)
      (command"text""j""m" wzpt4 wzgd 0 wznr1)
      (setq bb (polar bb (* pi 0.5) wgjj))
    )
     (while (/= pt2 yszb)
      (setq pt5 (polar yszb (* pi 1.5) yzeng))
      (command"line" pt5 yszb "")
(setq wzpt1 (polar pt5 (* pi 1.5) wzpy)
       wzpt2 (polar yszb (* pi 0.5) wzpy))
        (setq wznr (fix(car wzpt1)))
        (command"text""j""m" wzpt1 wzgd 0 wznr)
        (command"text""j""m" wzpt2 wzgd 0 wznr)
        (setq pt2 yszb)
)
     (while (/= pt4 yszb)
        (setq pt6 (polar yszb pi xzeng))
(command"line" pt6 yszb "")
        (setq wzpt3 (polar pt6 pi wzpy)
       wzpt4 (polar yszb 0 wzpy))
        (setq wznr1 (fix(cadr wzpt3)))
      (command"text""j""m" wzpt3 wzgd 0 wznr1)
      (command"text""j""m" wzpt4 wzgd 0 wznr1)
(setq pt4 yszb)
       )
(setq ab (* 10 (* 0.01 wgjj)))
      (setq wkj (abs(sqrt(* 2 (expt ab 2)))))
      (setq pt7 (polar zxzb (* pi 1.25) wkj)
     pt8 (polar yszb (* pi 0.25) wkj))
      (command"rectang" pt7 pt8)
   (setvar "osmode" os)
(princ)
    )

程序可以用，比如坐标输入1000，2000，-3600，-4700啦都可以，但是比如输入坐标19725800，4192600就会出错标注的内容不对，高手看看怎么回事

fengjian11 · 发表于 2009-12-12 23:37

!wznr !wznr1的值都对呀，为什么标注出来的文字内容不对呢

fengjian11 · 发表于 2009-12-13 10:33

有人帮帮忙吗？谢谢

xianaihua · 发表于 2009-12-13 11:18

本帖最后由作者于 2009-12-13 11:50:02 编辑

(defun c:zbwg ()
;;; (setq os (getvar "osmode"))
;;; (setq zxzb (getpoint "输入左下角坐标："))
;;; (setq yszb (getcorner zxzb "\n输入右上角坐标：")
;;; wgbl (getint "输入比例： 1：")
;;; )
;;; (if (not wgbl) (setq wgbl 1))
(setq zxzb '(0.0 0.0)
yszb '(19725800 4192600)
wgbl 10000000
)
(setq xzeng (- (car yszb) (car zxzb))
yzeng (- (cadr yszb) (cadr zxzb))
wgjj (/ wgbl 10.0)
)
(setq xwgs (fix (/ xzeng wgjj))
ywgs (fix (/ yzeng wgjj))
)
(setq aa zxzb
bb zxzb
)
(setq wzgd (* 3 (* 0.01 wgjj))
wzpy (* 5 (* 0.01 wgjj))
)
(setvar "osmode" 0)
(repeat (+ 1 xwgs)
(setq pt1 aa)
(setq pt2 (polar pt1 (* pi 0.5) yzeng))
(command "line" pt1 pt2 "")
(setq wzpt1 (polar pt1 (* pi 1.5) wzpy)
wzpt2 (polar pt2 (* pi 0.5) wzpy)
)
(setq wznr (rtos (fix (car wzpt1))))
(command "text" "j" "m" wzpt1 wzgd 0 wznr)
(command "text" "j" "m" wzpt2 wzgd 0 wznr)
(setq aa (polar aa 0 wgjj))
)
(repeat (+ 1 ywgs)
(setq pt3 bb)
(setq pt4 (polar pt3 0 xzeng))
(command "line" pt3 pt4 "")
(setq wzpt3 (polar pt3 pi wzpy)
wzpt4 (polar pt4 0 wzpy)
)
(setq wznr1 (rtos (fix (cadr wzpt3))))
(command "text" "j" "m" wzpt3 wzgd 0 wznr1)
(command "text" "j" "m" wzpt4 wzgd 0 wznr1)
(setq bb (polar bb (* pi 0.5) wgjj))
)
(while (/= pt2 yszb)
(setq pt5 (polar yszb (* pi 1.5) yzeng))
(command "line" pt5 yszb "")
(setq wzpt1 (polar pt5 (* pi 1.5) wzpy)
wzpt2 (polar yszb (* pi 0.5) wzpy)
)
(setq wznr (rtos (fix (car wzpt1))))
(command "text" "j" "m" wzpt1 wzgd 0 wznr)
(command "text" "j" "m" wzpt2 wzgd 0 wznr)
(setq pt2 yszb)
)
(while (/= pt4 yszb)
(setq pt6 (polar yszb pi xzeng))
(command "line" pt6 yszb "")
(setq wzpt3 (polar pt6 pi wzpy)
wzpt4 (polar yszb 0 wzpy)
)
(setq wznr1 (rtos (fix (cadr wzpt3))))
(command "text" "j" "m" wzpt3 wzgd 0 wznr1)
(command "text" "j" "m" wzpt4 wzgd 0 wznr1)
(setq pt4 yszb)
)
(setq ab (* 10 (* 0.01 wgjj)))
(setq wkj (abs (sqrt (* 2 (expt ab 2)))))
(setq pt7 (polar zxzb (* pi 1.25) wkj)
pt8 (polar yszb (* pi 0.25) wkj)
)
(command "rectang" pt7 pt8)
(setvar "osmode" os)
(princ)
)

(defun c:zbwg ()
;;;  (setq os (getvar "osmode"))
;;;  (setq zxzb (getpoint "输入左下角坐标："))
;;;  (setq yszb (getcorner zxzb "\n输入右上角坐标：")
;;; wgbl (getint "输入比例： 1：")
;;;  )
;;;  (if (not wgbl) (setq wgbl 1))
  (setq zxzb '(0.0 0.0)
 yszb '(19725800 4192600)
 wgbl 10000000
  )
  (setq xzeng (- (car yszb) (car zxzb))
 yzeng (- (cadr yszb) (cadr zxzb))
 wgjj  (/ wgbl 10.0)
  )
  (setq xwgs (fix (/ xzeng wgjj))
 ywgs (fix (/ yzeng wgjj))
  )
  (setq aa zxzb
 bb zxzb
  )
  (setq wzgd (* 3 (* 0.01 wgjj))
 wzpy (* 5 (* 0.01 wgjj))
  )
  (setvar "osmode" 0)
  (repeat (+ 1 xwgs)
    (setq pt1 aa)
    (setq pt2 (polar pt1 (* pi 0.5) yzeng))
    (command "line" pt1 pt2 "")
    (setq wzpt1 (polar pt1 (* pi 1.5) wzpy)
   wzpt2 (polar pt2 (* pi 0.5) wzpy)
    )
    (setq wznr (rtos  (fix (car wzpt1))))
    (command "text" "j" "m" wzpt1 wzgd 0 wznr)
    (command "text" "j" "m" wzpt2 wzgd 0 wznr)
    (setq aa (polar aa 0 wgjj))
  )
  (repeat (+ 1 ywgs)
    (setq pt3 bb)
    (setq pt4 (polar pt3 0 xzeng))
    (command "line" pt3 pt4 "")
    (setq wzpt3 (polar pt3 pi wzpy)
   wzpt4 (polar pt4 0 wzpy)
    )
    (setq wznr1 (rtos  (fix (cadr wzpt3))))
    (command "text" "j" "m" wzpt3 wzgd 0 wznr1)
    (command "text" "j" "m" wzpt4 wzgd 0 wznr1)
    (setq bb (polar bb (* pi 0.5) wgjj))
  )
  (while (/= pt2 yszb)
    (setq pt5 (polar yszb (* pi 1.5) yzeng))
    (command "line" pt5 yszb "")
    (setq wzpt1 (polar pt5 (* pi 1.5) wzpy)
   wzpt2 (polar yszb (* pi 0.5) wzpy)
    )
    (setq wznr (rtos  (fix (car wzpt1))))
    (command "text" "j" "m" wzpt1 wzgd 0 wznr)
    (command "text" "j" "m" wzpt2 wzgd 0 wznr)
    (setq pt2 yszb)
  )
  (while (/= pt4 yszb)
    (setq pt6 (polar yszb pi xzeng))
    (command "line" pt6 yszb "")
    (setq wzpt3 (polar pt6 pi wzpy)
   wzpt4 (polar yszb 0 wzpy)
    )
    (setq wznr1 (rtos  (fix (cadr wzpt3))))
    (command "text" "j" "m" wzpt3 wzgd 0 wznr1)
    (command "text" "j" "m" wzpt4 wzgd 0 wznr1)
    (setq pt4 yszb)
  )
  (setq ab (* 10 (* 0.01 wgjj)))
  (setq wkj (abs (sqrt (* 2 (expt ab 2)))))
  (setq pt7 (polar zxzb (* pi 1.25) wkj)
 pt8 (polar yszb (* pi 0.25) wkj)
  )
  (command "rectang" pt7 pt8)
  (setvar "osmode" os)
  (princ)
)

在写文本时，应将实数转换为字符串类型： (rtos (fix (cadr wzpt3)))

fengjian11 · 发表于 2009-12-13 12:23

谢谢，我试一下

xiewawa · 发表于 2010-1-29 00:52

版主xianaihua真好！谢谢

tuokang · 发表于 2010-4-8 11:47

该程序很好

就是能否把其改成标注的坐标数据前都带有X和Y

其次就是标注出来的数据改成都是整数

guankuiwu · 发表于 2022-9-14 15:07

学习参考一下，正想做一个这种！

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

[基础] “坐标网格”高手看看哪里的问题