您的位置：网站首页 > CAD新闻

点坐标标注LISP

时间:2011-01-04 16:00:35 来源:未知

使用方法：先把下面的代码复制,再打开CAD,工具-AutoLIST-VISUAL LISP编辑器-新建-粘贴-保存-退出
再之就工具-AutoLIST-加载应用程序,找到你保存的那个东东,加载,关闭退出,输入ZBBZ就可以啦!!!!!

 

  1. (defun C:zbbz( / zb gd cld osm )
     
  2.   (setq osm (getvar"osmode"))
     
  3.   (setvar "osmode" 33)
     
  4.   (setq gd (getreal "指定标注文字高度:>"))
     
  5.   (if (= gd nil) (setq gd 0.5))
     
  6.   (while (setq zb (getpoint "指定坐标点："))
     
  7.    
     
  8.   (setq cld(getpoint  zb  "指定文字插入点："))
     
  9.    
     
  10.   (entmake (list
     
  11.        '(0 . "LINE")
     
  12.        '(67 . 0)
     
  13.       '(8 . "0")
     
  14.       (list  10  (car zb)  (cadr zb) 0)
     
  15.       (list 11 (car cld) (cadr cld)  0)
     
  16.       '(210 0.0 0.0 1.0)
     
  17.       )
     
  18. )
     
  19.   (entmake (list
     
  20.       '(0 . "text")
     
  21.        (list 10  (+ (car cld) gd)  (car(cdr cld)) )
     
  22.        (cons 40 gd)
     
  23.        (cons 1 ( strcat  "X="  (rtos (cadr zb)  2 3)))
     
  24.       '(50 . 0)
     
  25.       )
     
  26.     )
     
  27.   (entmake (list
     
  28.       '(0 . "text")
     
  29.        (list 10  (+ (car cld) gd)
     
  30.           (- (car(cdr cld))  (+ gd (/ gd 3))  )
     
  31.           )
     
  32.        (cons 40 gd)
     
  33.        (cons 1 (strcat "Y="(rtos (car zb) 2 3)))
     
  34.       '(50 . 0)
     
  35.       )
     
  36.     )
     
  37. )
     
  38.   (setvar "osmode" osm)
     
  39.   (princ)
     
  40.    
     
  41.   )
复制代码

  • 上一篇： 公司内部总结的CAD快捷键指令
  • 下一篇： 把Auto-CAD文件转换成JPG图片或者PDF格式的方法

    • 相关文章

    推荐文章
    随机文章

    Copyright © 2008-2020 CAD之家 鄂ICP备16001808号-12

    本站内容均来源自网络，仅供大家学习交流，如果侵害了您的权益，请联系站长，我们会及时予以删除。