社区 › Auto Lisp › 高度+箭头

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

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

(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

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

(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)


 
spot2.dwg

Tharwat 发表于 2022-7-5 18:25:36

 
很高兴它能按您的需要工作。
更改块的名称，因为我已经在上面的报价中对其进行了修改。
 
我已附上块名spot2，供您测试和一次成功。
spot2.dwg

whosa 发表于 2022-7-5 18:27:42

谢谢，做得好。还有一件事。有没有一种方法可以更改箭头和文本的大小/比例，而无需重新生成块？

Tharwat 发表于 2022-7-5 18:32:35

 
不客气。
 
您可以通过播放函数vla insertBlock（1.0 1.0 1.0）中的最后三个数字来更改插入块的比例，它们代表X Y Z，因此可以根据需要进行最佳更改。

whosa 发表于 2022-7-5 18:36:07

太好了，谢谢。有没有办法改变文本中的单位比例？例如：我有mm的图纸，但我想把文字米。12300应该是12.30。
谢谢你抽出时间

查看完整版本: 高度+箭头