王航 发表于 2015-4-16 20:34:23

分享一个标注沉孔的小程序，请大家多多指教。

分享一个标注沉孔的小程序，请大家多多指教。
(defun c:tt()
(VL-LOAD-COM)
(setq        AcadObject   (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument Acadobject)
        mSpace             (vla-get-ModelSpace Acaddocument)
)
;;输入孔的数量
(setq        prefix1        (vla-GetString
                  (vla-get-Utility AcadDocument)
                  :vlax-false
                  "请输入孔的数量<1>:"
                )
)
(if (= prefix1 "")

    (setqprefix"φ" )

(setq prefix (strcat prefix1 "-φ"))
)
(setq suffix1 (GetString "请输大孔直径:"))
(setq suffix (strcat "\\X" "沉孔φ" suffix1 "×" "90%%d" ))
;;选择一个标注
(setq dimObj1 (car (entsel)))
(setq dimObj (vlax-ename->vla-object dimObj1))

;;添加前缀
(vla-put-TextPrefix dimObj prefix)
;;添加后缀
(vla-put-TextSuffix dimObj suffix)
(princ)
)

王航 发表于 2015-4-16 20:36:33

自己抢个沙发！

王航 发表于 2015-4-21 14:26:49

怎么没人回应？是不是太简单了，大家都不屑一顾？

lucas_3333 发表于 2015-4-21 15:50:10

跟这里这个不是差不多么？http://bbs.mjtd.com/thread-113472-1-1.html

真的很简单， 哪天有空我将我的标沉孔的演示给你看。

AshineZHANG 发表于 2015-10-6 18:47:52

不太适合我喔，楼主能否帮忙按照附图的说明写一个沉孔的自动注解程序。
谢谢！！

l982414603 发表于 2021-11-7 17:10:10

不太适合我喔，楼主能否帮忙按照附图的说明写一个沉孔的自动注解程序。
谢谢！！

l982414603 发表于 2021-12-16 00:00:55

不太适合我喔，楼主能否帮忙按照附图的说明写一个沉孔的自动注解程序。
谢谢！！

gzsod 发表于 2022-5-12 13:31:03

可以啊 6666
页: [1]
查看完整版本: 分享一个标注沉孔的小程序，请大家多多指教。