高度+箭头

whosa · 发表于 2022-7-5 18:01:12

你好
有人用lisp生成箭头加上y（或z）坐标的文本？
谢谢

Tharwat · 发表于 2022-7-5 18:05:23

你好

上载示例图形以编写具有相同文本高度和箭头大小的程序。
插入点是否位于向下箭头的头部？
文本值指的是什么？

Lee Mac · 发表于 2022-7-5 18:10:48

类似：立面标记

whosa · 发表于 2022-7-5 18:13:38

是的，插入点是向下的，文本值是Y坐标。
我试过“仰角标记”，但箭头块太复杂了，我想要一个简单的箭头。
谢谢
斑点图纸

Tharwat · 发表于 2022-7-5 18:15:54

将块作为属性块导入当前图形，然后使用以下例程：

copy


(defun c:Test  (/ sp p)
 ;; Tharwat 15.Feb.2016 ;;
 (setq sp
        (vlax-get (vla-get-activelayout
                    (vla-get-ActiveDocument (vlax-get-acad-object)))
                  'Block)
       )
 (if (tblsearch "BLOCK" "spot")
   (while (setq p (getpoint "\nSpecify point :"))
     (vla-put-textstring
       (car (vlax-invoke
              (vla-insertblock
                sp
                (vlax-3d-point p)
                "spot"
                1.0
                1.0
                1.0
                0.0)
              'getattributes))
       (rtos (cadr p) 2 2)
       )
     )
   )
 (princ)
 )(vl-load-com)

斑点图纸

whosa · 发表于 2022-7-5 18:22:03

完美的多谢。有时我也需要这个注释。是镜像的。我试图制作另一个“块”文件，并用相同的块名编辑代码，但没有成功。

copy


(defun c:Test2  (/ sp p)
 ;; Tharwat 15.Feb.2016 ;;
 (setq sp
        (vlax-get (vla-get-activelayout
                    (vla-get-ActiveDocument (vlax-get-acad-object)))
                  'Block)
       )
 (if (tblsearch "BLOCK" "spot2")
   (while (setq p (getpoint "\nSpecify point :"))
     (vla-put-textstring
       (car (vlax-invoke
              (vla-insertblock
                sp
                (vlax-3d-point p)
                "spot"
                1.0
                1.0
                1.0
                0.0)
              'getattributes))
       (rtos (cadr p) 2 2)
       )
     )
   )
 (princ)
 )(vl-load-com)