分享一个entmake坐标标注函数

13648893846

;;;(setq pt1 (getpoint "\n 请选择标注点: "))
;;;(setq pt2 (getpoint "\n 请选择标注位置: "))
;;;(LC-MAK-YXBZ-TEXT (getpoint "\n 请选择标注点: ") (getpoint "\n 请选择标注位置: "))
;;;(angle pt1 pt2)
(defun LC-MAK-YXBZ-TEXT (pt1 pt2 / pt3);创建引线标注
  (IF (> (car pt2) (car pt1))
      (SETQ PT3 (polar PT2 0 13))
      (SETQ PT3 (polar PT2 3.1415926 13))
  )
  (entmake (list '(0 . "LWPOLYLINE")
          '(100 . "AcDbEntity")
          '(100 . "AcDbPolyline")
           (cons 90 3)
    (cons 10 pt1)
           (cons 10 pt2)
           (cons 10 pt3)
           (cons 8 "标注")
    (cons 62 1)))
  (setq x_text "Y " y_text "X " Z_text "H ")
  (setq xx (strcat x_text (rtos (car pt1) 2 3))
yy (strcat y_text (rtos (cadr pt1) 2 3))
ZZ (strcat Z_text (rtos (caddr pt1) 2 3)))
  (entmake (list '(0 . "TEXT");创建测量坐标X值字体
    '(102 . "{ACAD_REACTORS")
    (cons 1 yy)
    (cons 10 (polar (IF (>= (car pt2) (car pt1))
          pt2
          pt3) 0.7853981 0.707));45度0.7853981
    (cons 40 1.0)
    (cons 62 1)
    (cons 8 "标注")))
  (entmake (list '(0 . "TEXT");创建测量坐标Y值字体
   '(102 . "{ACAD_REACTORS")
    (cons 1 xx);变量得用cons
    (cons 10 (polar (IF (>= (car pt2) (car pt1))
          pt2
          pt3) 5.03414 1.581))
    (cons 40 1.0)
    (cons 62 1)
    (cons 8 "标注")))
  (entmake (list '(0 . "TEXT");创建测量高程Z字体
   '(102 . "{ACAD_REACTORS")
    (cons 1 zz);变量得用cons
    (cons 10 (polar (IF (>= (car pt2) (car pt1))
          pt2
          pt3) 4.87754 3.041))
    (cons 40 1.0)
    (cons 62 1)
    (cons 8 "标注")))
  (princ)
  )

H-浩浩-H

谢谢分享…

yxl88168

谢谢分享，源码就是好

zhenz02

谢谢楼主分享