848818376 发表于 2012-12-14 12:31:56

标注尺寸加减前后缀

本帖最后由 848818376 于 2012-12-14 12:34 编辑

哪位大侠帮忙编一个lsp，用于标注尺寸自定义前后缀，例如下图，前缀为：2-Φ，后缀：x10,总之可以选择标准尺寸后，可以添加前后缀，感谢帮忙

wx302008008 发表于 2021-11-21 16:55:36

本帖最后由 wx302008008 于 2021-11-21 16:57 编辑

<div class="blockcode"><blockquote>(defun c:ttt ( / a ss n i qz hz qz0 hz0)
(setq a (getint ":" ))
(princ)
(cond
        ((= a 1)
                (princ "选择需要添加前后缀的线性标注：")
        (princ)
        (setq ss (ssget '((0 . "DIMENSION")))
                   n (sslength ss)
                   i 0
        )
    (setq qz (getstring "输入要添加的前缀："))
    (if
          (= qz nil)
          (setq qz "")
    )
    (setq hz (getstring "输入要添加的后缀："))
    (if
          (= hz nil)
          (setq hz "")
    )
        (while (< i n)
                (setq qz0 (Vlax-Get (Vlax-Ename->Vla-Object (ssname ss i)) 'TextPrefix )
                          hz0 (Vlax-Get (Vlax-Ename->Vla-Object (ssname ss i)) 'TextSuffix )
                )
                (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextPrefix (if (= qz0 "") qz (strcat qz qz0)))
                (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextSuffix (if (= hz0 "") hz (strcat hz0 hz)))
          (setq i (+ i 1))
        )
        )
        ((= a 2)
                                (princ "选择需要删除前缀的线性标注：")
        (princ)
        (setq ss (ssget '((0 . "DIMENSION")))
                   n (sslength ss)
                   i 0
        )
        (while (< i n)
                (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextPrefix "")
          (setq i (+ i 1))
        )
        )
        ((= a 3)
                                (princ "选择需要删除后缀的线性标注：")
        (princ)
        (setq ss (ssget '((0 . "DIMENSION")))
                   n (sslength ss)
                   i 0
        )
        (while (< i n)
                (Vlax-Put-Property (Vlax-Ename->Vla-Object (ssname ss i)) 'TextSuffix "")
          (setq i (+ i 1))
        )
        )
)
)




KO你 发表于 2020-6-24 19:08:56

848818376 发表于 2012-12-15 15:17
没人回复，我自己来咯，作者：明经 ZZXXQQ 2008.2.12

标注尺寸加减前后缀
怎么只有加，没有减？
建议加个对话框和记忆功能

菜鸟初来乍到 发表于 2023-3-5 08:16:11

848818376 发表于 2012-12-15 15:17
没人回复，我自己来咯，作者：明经 ZZXXQQ 2008.2.12

感谢楼主分享

848818376 发表于 2012-12-15 15:17:10

没人回复，我自己来咯，作者：明经 ZZXXQQ 2008.2.12

cheng714951554 发表于 2015-11-3 14:56:46

怎么下载不了啊!

QJGUANBA 发表于 2016-1-18 14:27:46

你怎么自问自答？

848818376 发表于 2018-3-26 21:22:59

QJGUANBA 发表于 2016-1-18 14:27
你怎么自问自答？

在别处找到了

小熊-小熊- 发表于 2018-6-17 14:24:13

顶，学习一下。

paulpipi 发表于 2020-9-15 23:59:58


顶，学习一下。

00放飞梦想00 发表于 2020-12-8 22:27:16

848818376 发表于 2018-3-26 21:22
在别处找到了

发上来看看

lxf20190917 发表于 2020-12-11 10:14:30

学习一下，看看
页: [1] 2
查看完整版本: 标注尺寸加减前后缀