[原创]：坐标标注程序，很方便

LNASER · 发表于 2006-3-25 23:32:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:zbz ()
  (setvar "CMDECHO" 0)
  (setvar "BLIPMODE" 0)
  (setq s1 (getreal "\n Select word scale:"))
  (while
(setq p1 (getpoint "\n Point out ZB point:(Int or End)"))
(prompt "\n Point out two point to ZB area: ")
(setq p2 (getpoint "\n"))
(setq p3 (getpoint "\n"))
(setq a1 (angle p2 p3))
(setq a2 (/ (* 180 a1) PI))
(setq zb (osnap p1 "int,END"))
(setq x (rtos (cadr zb) 2 3))
   (setq x (strcat "X " x))
(setq y (rtos (car zb) 2 3))
   (setq y (strcat "Y " y))
(if (>= (strlen x) (strlen y))
   (setq n (strlen x))
   (setq n (strlen y))
)
(setq m (* 1 n s1))
(if (or (<= a2 45) (> a2 315)) (progn
      (setq pe (polar p2 0 m))
      (setq pz (polar p2 (/ PI 4) 0.9))
      (setq pz (polar pz (/ PI 2) (/ s1 2)))
      (setq pa 0) (setq pz1 (polar pz (* PI 1.5) (* 2.0 s1)))))
(if (and (<= a2 135) (> a2 45)) (progn
      (setq pe (polar p2 (/ PI 2) m))
      (setq pz (polar p2 2.3562 0.9))
      (setq pz (polar pz PI (/ s1 2)))
      (setq pa 90) (setq pz1 (polar pz 0 (* 2.0 s1)))))
(if (and (<= a2 225) (> a2 135)) (progn
      (setq pe (polar p2 3.14159 m))
      (setq pz (polar pe (/ PI 4) 0.9))
      (setq pz (polar pz (/ PI 2) (/ s1 2)))
      (setq pa 0) (setq pz1 (polar pz (* PI 1.5) (* 2.0 s1)))))
(if (and (<= a2 315) (> a2 225)) (progn
            (setq pe (polar p2 4.7124 m))
            (setq pz (polar pe 2.3562 0.9))
            (setq pz (polar pz PI (/ s1 2)))
            (setq pa 90) (setq pz1 (polar pz 0 (* 2.0 s1)))
))
(command "LINE" zb p2 pe "")
(command "TEXT" pz s1 pa x "")
(command "TEXT" pz1 s1 pa y "")
  )
  (setvar "CMDECHO" 1)
  (setvar "BLIPMODE" 1)
)

aichong · 发表于 2006-3-25 23:59:40

命令: zbz

Select word scale:100

Point out ZB point:(Int or End)
Point out two point to ZB area:

参数类型错误: numberp: nil

LNASER · 发表于 2006-3-31 23:24:54

你常写搞100的字？

aichong · 发表于 2006-3-31 23:54:18

最初由 LNASER 发布
[B]你常写高100的字？ [/B]

高度＝3的字都有啊！
例如：地形图是以m为单位的，1：1000的比例，则必须以1：1出图，1图形单位＝1mm，所以高度为3的字就是3mm啦！

zzqxuexicad · 发表于 2006-4-14 14:44:14

Select word scale:500
Point out ZB point:(Int or End)
Point out two point to ZB area:
错误: 参数类型错误: numberp: nil

chengfana · 发表于 2006-9-5 00:28:55

楼主有错啊，请改过

dlsgj · 发表于 2006-9-6 16:13:41

命令: zbz
Select word scale: 1
Point out ZB point:(Int or End)
Point out two point to ZB area:
; 错误: 参数类型错误: numberp: nil
命令:

怎么回出现错误呢？
请楼主看看啊

coolcome · 发表于 2006-10-4 21:28:09

可能是那个参数使用错了或者没有调用对!

zhaoyafei19 · 发表于 2006-10-12 21:00:21

修正一下该多好啊

sjy2005 · 发表于 2006-10-30 13:26:36

命令JJJ2006ZB
功能:可画在图中,并将坐标写入文件;也可仅将坐标写入文件.之后调如EXCEL即为成果文件
中文提示,懂点CAD的一看即用.
常困币值低,而下不了所需
如好用请多加币,
见谅

jx2008 · 发表于 2006-11-21 18:46:03

10楼的老兄，源码可否发一份 jxphklibin@163.cjom ，谢谢你！

ght320 · 发表于 2006-11-23 11:54:14

稍微有点问题哦

zqwx · 发表于 2007-7-18 18:27:02

要批量标注高程点的东东，那位大大给编个

abcabcxyz · 发表于 2009-1-31 08:27:02

很好的程序，我看看　

asdfafasdfadf · 发表于 2009-2-19 16:15:22

似乎不错，看看先。

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

[原创]：坐标标注程序，很方便

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子