海南省BIM中心

 找回密码
 注册请加微信xycost

QQ登录

只需一步,快速开始

搜索
热搜: 活动 交友 discuz
查看: 687|回复: 0

[重发原创]一个坐标标注的Lisp!

[复制链接]

0

主题

2726

帖子

2652

积分

论坛游侠

Rank: 1

积分
2652
发表于 2008-9-5 09:59:57 | 显示全部楼层 |阅读模式
原来在文章里发过,现在自已都找不到了!现在重帖一个!
  
(defun C:zbbz (/ zb gd cld MM)
  (setq gd (getreal "指定标注文字高度:>"))  (if (= gd nil)    (setq gd 0.5)  )
  (while (setq zb (getpoint "指定坐标点:"))
    (setq cld (getpoint zb "指定文字插入点:"))    (setq MM (getvar "osmode"))    (setvar "osmode" 0)    (command "pline"      zb      "w"      0.0      (* gd 0.5)      (list (+ (car zb) (* (cos (angle zb cld)) gd))     (+ (car (cdr zb)) (* (sin (angle zb cld)) gd))     0.0      )      "w"      0.0      0.0      cld      ""      ""    )
    (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" mm)  )  (princ))
回复

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /2 下一条


QQ|小黑屋|手机版|Archiver|ChinaBIM ( 琼ICP备14001050号-1 )

GMT+8, 2024-12-23 03:44 , Processed in 0.021740 second(s), 21 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表