[LISP程序]：坐标标注的程序

ght320 · 发表于 2006-11-23 11:46:57

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

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

×

(defun C:zbbz( / zb gd cld osm )
  (setq osm (getvar"osmode"))
  (setvar "osmode" 33)
  (setq gd (getreal "指定标注文字高度:>"))
  (if (= gd nil) (setq gd 0.5))

  (while (setq zb (getpoint "指定坐标点："))

  (setq cld(getpoint  zb  "指定文字插入点："))

  (entmake (list
   '(0 . "LINE")
   '(67 . 0)
   '(8 . "0")
   (list  10  (car zb)  (cadr zb) 0)
   (list 11 (car cld) (cadr cld)  0)
   '(210 0.0 0.0 1.0)
   )
)
  (entmake (list
   '(0 . "text")
   (list 10  (+ (car cld) gd)  (car(cdr cld)) )
   (cons 40 gd)
   (cons 1 ( strcat  "X="  (rtos (cadr zb)  2 3)))
   '(50 . 0)
   )
)
  (entmake (list
   '(0 . "text")
   (list 10  (+ (car cld) gd)
      (- (car(cdr cld))  (+ gd (/ gd 3))  )
      )
   (cons 40 gd)
   (cons 1 (strcat "Y="(rtos (car zb) 2 3)))
   '(50 . 0)
   )
)
)

  (setvar "osmode" osm)
  (princ)

  )

TLHMQH · 发表于 2006-11-24 01:31:23

好！我下了不少，只有这个好。
请问楼主，不带小数应该怎么改？

zhanglq314 · 发表于 2006-11-26 11:55:14

可不可以标注用户坐标系，收藏学学，谢谢楼主

yr1986 · 发表于 2007-1-1 18:33:35

收藏，学习，谢谢

killer9806 · 发表于 2007-1-16 13:17:19

个人建议，将TEXTSIZE这个系统变量，加进去，会更好一些。

jx2008 · 发表于 2007-1-30 23:38:55

没多大意义，太简单

23315297 · 发表于 2007-2-1 14:29:44

收藏，学习，谢谢

huahuashao66 · 发表于 2007-2-5 10:20:04

这个东西用处不大吧，现在CAD都自带这些功能了啊

tow · 发表于 2008-5-7 14:05:10

學習學習﹗

luow · 发表于 2009-4-9 13:46:59

没有横向标注线啊？

youjun4991 · 发表于 2009-4-13 23:42:46

努力赚钱下东东啊

wangyi168 · 发表于 2009-4-27 13:59:15

不好，不适合测量用

sahara124 · 发表于 2009-4-28 09:39:37

功能不强大

新黎既 · 发表于 2010-1-7 13:49:22

使用效果一般

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

[LISP程序]：坐标标注的程序

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

相关帖子